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

without a function definition.

2 files changed, 9 insertions, 2 deletions

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  <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 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