From 2769422068be44ed3b8af00e23beb6ede145d6bb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 12 Jan 2008 23:21:43 +0000 Subject: [PATCH] (woman-parse-numeric-arg): Change handling of `==': can be interned without a function definition. --- lisp/ChangeLog | 5 +++++ lisp/woman.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ef40bc36c9e..5f19204e0b5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-01-12 Glenn Morris + + * woman.el (woman-parse-numeric-arg): Change handling of `==': + can be interned without a function definition. + 2008-01-12 Eli Zaretskii * view.el (view-file-other-window, view-file-other-frame): Don't diff --git a/lisp/woman.el b/lisp/woman.el index a04b606280b..595bb6cc9a1 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -3558,8 +3558,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 -- 2.39.2