# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1226434294 0
# Node ID 7425e5547fbd793bc6001cbb2e575a6cd99c5d6f
# Parent  f48868476344146395b5672fc2c2600f0f4e7b27
(isearch-message-prefix-add)
(isearch-message-suffix-add): New variables.
(isearch-message-prefix): Show additional text from
`isearch-message-prefix-add' before "I-search".
(isearch-message-suffix): Show additional text from
`isearch-message-suffix-add' at the end.

diff -r f48868476344 -r 7425e5547fbd lisp/isearch.el
--- a/lisp/isearch.el	Tue Nov 11 19:57:04 2008 +0000
+++ b/lisp/isearch.el	Tue Nov 11 20:11:34 2008 +0000
@@ -533,6 +533,9 @@
 (defvar isearch-string "")  ; The current search string.
 (defvar isearch-message "") ; text-char-description version of isearch-string
 
+(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix
+(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix
+
 (defvar isearch-success t)	; Searching is currently successful.
 (defvar isearch-error nil)	; Error message for failed search.
 (defvar isearch-other-end nil)	; Start (end) of match if forward (backward).
@@ -2163,6 +2166,7 @@
 		   (if isearch-word "word " "")
 		   (if isearch-regexp "regexp " "")
 		   (if multi-isearch-next-buffer-current-function "multi " "")
+		   (or isearch-message-prefix-add "")
 		   (if nonincremental "search" "I-search")
 		   (if isearch-forward "" " backward")
 		   (if current-input-method
@@ -2176,7 +2180,8 @@
   (concat (if c-q-hack "^Q" "")
 	  (if isearch-error
 	      (concat " [" isearch-error "]")
-	    "")))
+	    "")
+	  (or isearch-message-suffix-add "")))
 
 
 ;; Searching