# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1185222550 0
# Node ID d22a586b6032488980117d771603746f6b674de4
# Parent  a0869eab905f8f400d625e6d04977219be1b9461
(isearch-message-function): New variable.
(isearch-update, isearch-search): Use it.

diff -r a0869eab905f -r d22a586b6032 lisp/isearch.el
--- 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)))