diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-01-12 23:21:43 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-01-12 23:21:43 +0000 |
| commit | 2769422068be44ed3b8af00e23beb6ede145d6bb (patch) | |
| tree | def269d899bf4232be6446bf88fc5f1dcd64e8c7 | |
| parent | dd18f44f3b00001171e7b98b8ca5a8b036e337f2 (diff) | |
| download | emacs-2769422068be44ed3b8af00e23beb6ede145d6bb.tar.gz | |
(woman-parse-numeric-arg): Change handling of `==': can be interned
without a function definition.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/woman.el | 6 |
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 |