From: Glenn Morris Date: Sat, 12 Jan 2008 23:21:25 +0000 (+0000) Subject: (woman-parse-numeric-arg): Change handling of `==': can be interned X-Git-Tag: emacs-pretest-23.0.90~8589 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e1cbbbff99d787ae8c558d5ae627ffff46aced6;p=emacs.git (woman-parse-numeric-arg): Change handling of `==': can be interned without a function definition. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d9fb0dfc13..5ffcef352c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-01-12 Glenn Morris + + * woman.el (woman-parse-numeric-arg): Change handling of `==': + can be interned without a function definition. + 2008-01-12 Jason Rumney * nxml/nxml-mode.el (nxml-enable-unicode-char-name-sets) diff --git a/lisp/woman.el b/lisp/woman.el index 0778d424324..2ba414aef9c 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -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