mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(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:25 +00:00
parent 0ebec7d35c
commit 1e1cbbbff9
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 Jason Rumney <jasonr@gnu.org>
* nxml/nxml-mode.el (nxml-enable-unicode-char-name-sets)

6
lisp/woman.el
View File

@ -3540,8 +3540,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