From 659d6033f4808ee41c9dfc10b83d14c077cae2e4 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 24 Sep 2023 22:24:01 +0200 Subject: [PATCH] ; Avoid relying on 'diff-mode' faces * sweeprolog.el (sweeprolog-query-replace-term-prompt-old) (sweeprolog-query-replace-term-prompt-new): New faces. (sweeprolog-query-replace-term): Use them instead of 'diff-mode' faces. --- sweeprolog.el | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/sweeprolog.el b/sweeprolog.el index 4a9b157..cfc524a 100644 --- a/sweeprolog.el +++ b/sweeprolog.el @@ -2328,6 +2328,24 @@ inside a comment, string or quoted atom." "Face for highlighting the current term replacement match." :group 'sweeprolog-faces) +(defface sweeprolog-query-replace-term-prompt-old + '((((class color) (min-colors 88) (background light)) + :background "#ffdddd" :extend t) + (((class color) (min-colors 88) (background dark)) + :background "#553333" :extend t) + (((class color)) + :foreground "red" :extend t)) + "Face to use for the old term in `sweeprolog-query-replace-term' queries.") + +(defface sweeprolog-query-replace-term-prompt-new + '((((class color) (min-colors 88) (background light)) + :background "#ddffdd" :extend t) + (((class color) (min-colors 88) (background dark)) + :background "#335533" :extend t) + (((class color)) + :foreground "green" :extend t)) + "Face to use for the new term in `sweeprolog-query-replace-term' queries.") + ;;;; Font-lock (defun sweeprolog-analyze-start-font-lock (beg end) @@ -5967,9 +5985,9 @@ prompt for CLASS as well." (pcase (car (read-multiple-choice (mapconcat #'identity - (list "Replace" (propertize cur 'face 'diff-removed) + (list "Replace" (propertize cur 'face 'sweeprolog-query-replace-term-prompt-old) (if try "back to" "with") - (propertize rep 'face 'diff-added) + (propertize rep 'face 'sweeprolog-query-replace-term-prompt-new) "?") (if (or (string-search "\n" cur) (string-search "\n" rep)) -- 2.39.5