Mercurial > emacs
changeset 82060:d22a586b6032
(isearch-message-function): New variable.
(isearch-update, isearch-search): Use it.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 23 Jul 2007 20:29:10 +0000 |
| parents | a0869eab905f |
| children | 62d33d80e1db |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Mon Jul 23 19:46:00 2007 +0000 +++ b/lisp/isearch.el Mon Jul 23 20:29:10 2007 +0000 @@ -164,6 +164,10 @@ (defvar isearch-mode-end-hook-quit nil "Non-nil while running `isearch-mode-end-hook' if user quit the search.") +(defvar isearch-message-function nil + "Function to call to display the search prompt. +If nil, use `isearch-message'.") + (defvar isearch-wrap-function nil "Function to call to wrap the search when search is failed. If nil, move point to the beginning of the buffer for a forward search, @@ -715,7 +719,9 @@ (null executing-kbd-macro)) (progn (if (not (input-pending-p)) - (isearch-message)) + (if isearch-message-function + (funcall isearch-message-function) + (isearch-message))) (if (and isearch-slow-terminal-mode (not (or isearch-small-window (pos-visible-in-window-p)))) @@ -2035,7 +2041,9 @@ (defun isearch-search () ;; Do the search with the current search string. - (isearch-message nil t) + (if isearch-message-function + (funcall isearch-message-function nil t) + (isearch-message nil t)) (if (and (eq isearch-case-fold-search t) search-upper-case) (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string isearch-regexp)))