Commit 1767da40 authored by Wilfred Hughes's avatar Wilfred Hughes

Add color and shorten minibuffer prompt.

parent 9010500f
......@@ -823,10 +823,14 @@ E [not supported in visual-regexp]"
(cumulative-offset 0)
(recenter-last-op nil) ; Start cycling order with initial position.
(message
(apply 'propertize
(substitute-command-keys
"Query replacing %s with %s: (\\<vr--query-replace-map>\\[help] for help) ")
minibuffer-prompt-properties)))
(concat
(propertize "Replacing " 'read-only t)
(propertize "%s" 'read-only t 'face 'font-lock-keyword-face)
(propertize " with " 'read-only t)
(propertize "%s" 'read-only t 'face 'font-lock-keyword-face)
(propertize (substitute-command-keys
" (\\<vr--query-replace-map>\\[help] for help) ")
'read-only t))))
;; show visual feedback for all matches
(mapc (lambda (replacement-info)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment