Commit c08f56f4 authored by Johan Sundström's avatar Johan Sundström
Browse files

Bugfix in lyskom-minusp. :)

parent cc74d2fd
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment