diff options
author | Wilfred Hughes <me@wilfred.me.uk> | 2015-12-05 12:51:06 +0000 |
---|---|---|
committer | Wilfred Hughes <me@wilfred.me.uk> | 2015-12-05 12:51:06 +0000 |
commit | 1767da40bb272f9be0b5d078ecf2e44623bb1388 (patch) | |
tree | 12b86c20eea7e61ca6014ff2a59f91a1f60139f8 /visual-regexp.el | |
parent | 9010500fe8648e3e0f2381e868159a1668ca8918 (diff) |
Add color and shorten minibuffer prompt.
Diffstat (limited to 'visual-regexp.el')
-rw-r--r-- | visual-regexp.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/visual-regexp.el b/visual-regexp.el index 0061af8..d19b539 100644 --- a/visual-regexp.el +++ b/visual-regexp.el @@ -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) |