(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 ef40bc36c9e..5f19204e0b5 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  Eli Zaretskii  <eliz@gnu.org>
 
         * view.el (view-file-other-window, view-file-other-frame): Don't
diff --git a/lisp/woman.el b/lisp/woman.el
index a04b606280b..595bb6cc9a1 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -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