diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-01-12 23:21:25 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-01-12 23:21:25 +0000 |
| commit | 1e1cbbbff99d787ae8c558d5ae627ffff46aced6 (patch) | |
| tree | 8a5bb6a235e45fdf300e280e8340c54423b84a31 /lisp/woman.el | |
| parent | 0ebec7d35c363197865d0d4ba7fdfb9eda221b3b (diff) | |
| download | emacs-1e1cbbbff99d787ae8c558d5ae627ffff46aced6.tar.gz | |
(woman-parse-numeric-arg): Change handling of `==': can be interned
without a function definition.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |