[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4c51a46: Add face `el-search-highlight-in-prompt-face'
From: |
Michael Heerdegen |
Subject: |
[elpa] master 4c51a46: Add face `el-search-highlight-in-prompt-face' |
Date: |
Sun, 11 Feb 2018 13:10:10 -0500 (EST) |
branch: master
commit 4c51a46379fc35a14771362fed40d30d0e028eab
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
Add face `el-search-highlight-in-prompt-face'
* packages/el-search/el-search.el
(el-search-highlight-in-prompt-face): New face.
(el-search--search-and-replace-pattern): When there are matches in the
replacement, don't ding, use the new face to make the prompt stand out
from other prompts instead.
---
packages/el-search/el-search.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 614e6b2..3b60774 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -453,6 +453,9 @@
(t (:background "DarkSlateGray1")))
"Face for highlighting the other matches.")
+(defface el-search-highlight-in-prompt-face '((t (:inherit
font-lock-variable-name-face)))
+ "Face for highlighting important parts in prompts.")
+
(defcustom el-search-display-buffer-popup-action
'((display-buffer-reuse-window display-buffer-pop-up-frame)
(reusable-frames . visible))
@@ -3324,10 +3327,10 @@ Toggle splicing mode (\\[describe-function]
el-search-query-replace for details)
skip-matches-in-replacement))
(el-search--skip-expression nil t))
((eq skip-matches-in-replacement 'ask)
- (ding) ;Or should we even change the keys so that
the user can't repeat
- ;y by accident?
(pcase (car (read-multiple-choice
- "There are matches in this replacement
- skip them? "
+ (propertize
+ "There are matches in this
replacement - skip them? "
+ 'face
'el-search-highlight-in-prompt-face)
'((?y "yes")
(?n "no")
(?Y "always Yes")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 4c51a46: Add face `el-search-highlight-in-prompt-face',
Michael Heerdegen <=