Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Peter Liljenberg
lyskom-elisp-client
Commits
c08f56f4
Commit
c08f56f4
authored
Jul 24, 2002
by
Johan Sundström
Browse files
Bugfix in lyskom-minusp. :)
parent
cc74d2fd
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
c08f56f4
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
View file @
c08f56f4
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment