(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 29e18be7743599bbd5c7ac0a145442518113f6da..f3023b82c1a26a8423f9d9eb14439ade811cecbf 100644 (file)
--- 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)