Mercurial > emacs
comparison lisp/isearch.el @ 90228:fa0da9b57058
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 542-553)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 116-121)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 19 Sep 2005 10:20:33 +0000 |
parents | 2d92f5c9d6ae 4d1085b02d64 |
children | b1c1fc853d2f |
comparison
equal
deleted
inserted
replaced
90227:10fe5fadaf89 | 90228:fa0da9b57058 |
---|---|
1010 ;; for a string is the yank-word character, then go into | 1010 ;; for a string is the yank-word character, then go into |
1011 ;; word-search mode. Otherwise unread that character and | 1011 ;; word-search mode. Otherwise unread that character and |
1012 ;; read a key the normal way. | 1012 ;; read a key the normal way. |
1013 ;; Word search does not apply (yet) to regexp searches, | 1013 ;; Word search does not apply (yet) to regexp searches, |
1014 ;; no check is made here. | 1014 ;; no check is made here. |
1015 (message (isearch-message-prefix nil nil t)) | 1015 (message "%s" (isearch-message-prefix nil nil t)) |
1016 (if (memq (lookup-key isearch-mode-map (vector e)) | 1016 (if (memq (lookup-key isearch-mode-map (vector e)) |
1017 '(isearch-yank-word | 1017 '(isearch-yank-word |
1018 isearch-yank-word-or-char)) | 1018 isearch-yank-word-or-char)) |
1019 (setq isearch-word t;; so message-prefix is right | 1019 (setq isearch-word t;; so message-prefix is right |
1020 isearch-new-word t) | 1020 isearch-new-word t) |