[elpa] master 4c51a46: Add face `el-search-highlight-in-prompt-face'

[Michael Heerdegen]

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")