mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases 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
Show Stats 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)