1016 |
;; read a key the normal way. |
;; read a key the normal way. |
1017 |
;; Word search does not apply (yet) to regexp searches, |
;; Word search does not apply (yet) to regexp searches, |
1018 |
;; no check is made here. |
;; no check is made here. |
1019 |
(message (isearch-message-prefix nil nil t)) |
(message "%s" (isearch-message-prefix nil nil t)) |
1020 |
(if (memq (lookup-key isearch-mode-map (vector e)) |
(if (memq (lookup-key isearch-mode-map (vector e)) |
1021 |
'(isearch-yank-word |
'(isearch-yank-word |
1022 |
isearch-yank-word-or-char)) |
isearch-yank-word-or-char)) |