andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(woman-parse-numeric-arg): Change handling of `==': can be interned

Browse source 
without a function definition.
This commit is contained in:
Glenn Morris 2008-01-12 23:21:43 +00:00
parent dd18f44f3b
commit 2769422068
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-01-12 Glenn Morris <rgm@gnu.org>
* woman.el (woman-parse-numeric-arg): Change handling of `==':
can be interned without a function definition.
2008-01-12 Eli Zaretskii <eliz@gnu.org>
* view.el (view-file-other-window, view-file-other-frame): Don't

6
lisp/woman.el
View file

@ -3558,8 +3558,10 @@ The expression may be an argument in quotes."
(setq value (funcall op value (woman-parse-numeric-value))))
((looking-at "[<=>]=?") ; relational operators
(goto-char (match-end 0))
(setq op (or (intern-soft (match-string 0))
(intern-soft "=")))
(setq op (intern-soft
(if (string-equal (match-string 0) "==")
"="
(match-string 0))))
(setq value (if (funcall op value (woman-parse-numeric-value))
1 0)))
((memq (setq op (following-char)) '(?& ?:)) ; Boolean and / or