changeset 76252:628675607c39

2007-03-01 Lennart Borgman <lennart.borgman.073@student.lu.se> * replace.el (perform-replace): Propertize message.
author Kim F. Storm <storm@cua.dk>
date Thu, 01 Mar 2007 13:43:37 +0000
parents 722c4eca187b
children cd3e9a5647d3
files lisp/replace.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Thu Mar 01 12:11:15 2007 +0000
+++ b/lisp/replace.el	Thu Mar 01 13:43:37 2007 +0000
@@ -1423,8 +1423,10 @@
 
 	(message
 	 (if query-flag
-	     (substitute-command-keys
-	      "Query replacing %s with %s: (\\<query-replace-map>\\[help] for help) "))))
+	     (apply 'propertize
+		    (substitute-command-keys
+		     "Query replacing %s with %s: (\\<query-replace-map>\\[help] for help) ")
+		    minibuffer-prompt-properties))))
 
     ;; If region is active, in Transient Mark mode, operate on region.
     (when start