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