Mercurial > emacs

changeset 79833:9c942c47d656

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:20:54 +0000
parents af0726efa450
children 59059317a011
files lisp/woman.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/woman.el	Sat Jan 12 17:17:41 2008 +0000
+++ b/lisp/woman.el	Sat Jan 12 23:20:54 2008 +0000
@@ -3558,8 +3558,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