--- a/lisp/prim/isearch-mode.el	Mon Aug 13 09:57:40 2007 +0200
+++ b/lisp/prim/isearch-mode.el	Mon Aug 13 09:58:30 2007 +0200
@@ -560,7 +560,7 @@
 	  (progn
 	    (push-mark isearch-opoint t nil isearch-buffer)
 	    (or executing-kbd-macro (> (minibuffer-depth) 0)
-		(message "Mark saved where search started"))))
+		(display-message 'command "Mark saved where search started"))))
 	)
     (setq isearch-buffer nil)
     ) ; inhibit-quit is t before here
@@ -670,7 +670,7 @@
 	      ;; word-search mode.  Otherwise unread that character and
 	      ;; read a string the normal way.
 	      (let ((cursor-in-echo-area t))
-		(message "%s" prompt)
+		(display-message 'prompt prompt)
 		(setq event (next-command-event))
 		(if (eq 'isearch-yank-word
 			(lookup-key isearch-mode-map (vector event)))
@@ -1184,7 +1184,7 @@
 	    isearch-message
 	    (isearch-message-suffix c-q-hack)
 	    )))
-    (if c-q-hack m (message "%s" m))))
+    (if c-q-hack m (display-message 'progress (format "%s" m)))))
 
 (defun isearch-message-prefix (&optional c-q-hack nonincremental)
   ;; If about to search, and previous search regexp was invalid,