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

without a function definition.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d9fb0dfc13e33b0165ee9694297360a53462d7b..5ffcef352c32575fc5bdd7092cba14a08c8ab8ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)

diff --git a/lisp/woman.el b/lisp/woman.el
index 0778d4243249647f7f73bc14df6839c80f7330bb..2ba414aef9c2df406674e7282058881893734b28 100644 (file)
--- 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