Bugfix in lyskom-minusp. :)

src/ChangeLog

+2002-07-24  Johan Sundstrm  <jhs@lysator.ida.liu.se>
+
+	* utilities.el (lyskom-minusp): Very significant bugfix. :)
+
 2002-07-24  Johan Sundstrm  <jhs@lysator.liu.se>
 
 	* lyskom-rest.el (lyskom-limited-make-overlay): XEmacs compat fix.

src/utilities.el

@@ -820,8 +820,8 @@ its first argument and remaining list items appended to the argument list."
                      (funcall strategy-pred current-prefix-arg)))
             (setq text-no (lyskom-evaluate-text-no-strategy
                            what-text prompt default constraint))
-                                        ;	      (lyskom-insert (format "cmp: %s\npred: %s\ntext-no: %s\n\n"
-                                        ;				     compare-value strategy-pred text-no))
+;	    (lyskom-insert (format "cmp: %s\npred: %s\ntext-no: %s\n\n"
+;				   compare-value strategy-pred text-no))
             (when (and (not (stringp text-no)) text-no constraint)
               (setq constraint-not-met
                     (apply constraint-func text-no constraint-args))
@@ -923,7 +923,7 @@ added to the result. The comparison is done with eq."
 
 (defun lyskom-minusp (int)
   "Returns t for integers smaller than 0, nil otherwise."
-  (and (integerp int) (> int 0)))
+  (and (integerp int) (< int 0)))
 
 ;;; ======================================================================
 ;;; Display device management