Mercurial > emacs

changeset 87726:574f52dee169

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(woman-parse-numeric-arg): Change handling of `==': can be interned without a function definition.
author Glenn Morris <rgm@gnu.org>
date Sat, 12 Jan 2008 23:21:13 +0000
parents 9e0163590825
children 9b21752de22e
files lisp/woman.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/woman.el	Sat Jan 12 15:50:33 2008 +0000
+++ b/lisp/woman.el	Sat Jan 12 23:21:13 2008 +0000
@@ -3540,8 +3540,10 @@
 	     (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