mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(isearch-edit-string):

Browse source 
Treat isearch-yank-word-or-char specially, like isearch-yank-word.
This commit is contained in:
Richard M. Stallman 2001-12-16 03:53:15 +00:00
parent 1ca6a9c4cc
commit 88715f05a1
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/isearch.el
View file

@ -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)