From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 16 Dec 2001 03:53:15 +0000 (+0000)
Subject: (isearch-edit-string):
X-Git-Tag: ttn-vms-21-2-B4~17694
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88715f05a1a6c48324adc199d710f670071d441f;p=emacs.git

(isearch-edit-string):
Treat isearch-yank-word-or-char specially, like isearch-yank-word.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 29e18be7743..f3023b82c1a 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -847,8 +847,9 @@ If first char entered is \\[isearch-yank-word], then do word search instead."
 		;; Word search does not apply (yet) to regexp searches,
 		;; no check is made here.
 		(message (isearch-message-prefix nil nil t))
-		(if (eq 'isearch-yank-word
-			(lookup-key isearch-mode-map (vector e)))
+		(if (memq (lookup-key isearch-mode-map (vector e))
+			  '(isearch-yank-word
+			    isearch-yank-word-or-char))
 		    (setq isearch-word t;; so message-prefix is right
 			  isearch-new-word t)
 		  (cancel-kbd-macro-events)