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

without a function definition.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef40bc36c9eef8b154756c9f4d9a0c4d98d2c6b5..5f19204e0b589263edd6c9dedc9c56ae276869f8 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  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 a04b606280b5c32c3c083a3593776d171e7176d1..595bb6cc9a1d643c790d0401ad5987b4dee364a9 100644 (file)
--- 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