# HG changeset patch # User Glenn Morris # Date 1200180073 0 # Node ID 574f52dee169497e694836f7b5abd3d9ffdf5570 # Parent 9e016359082585f3628c256195e4afe0ccf58ebc (woman-parse-numeric-arg): Change handling of `==': can be interned without a function definition. diff -r 9e0163590825 -r 574f52dee169 lisp/woman.el --- 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