847 |
;; Word search does not apply (yet) to regexp searches, |
;; Word search does not apply (yet) to regexp searches, |
848 |
;; no check is made here. |
;; no check is made here. |
849 |
(message (isearch-message-prefix nil nil t)) |
(message (isearch-message-prefix nil nil t)) |
850 |
(if (eq 'isearch-yank-word |
(if (memq (lookup-key isearch-mode-map (vector e)) |
851 |
(lookup-key isearch-mode-map (vector e))) |
'(isearch-yank-word |
852 |
|
isearch-yank-word-or-char)) |
853 |
(setq isearch-word t;; so message-prefix is right |
(setq isearch-word t;; so message-prefix is right |
854 |
isearch-new-word t) |
isearch-new-word t) |
855 |
(cancel-kbd-macro-events) |
(cancel-kbd-macro-events) |