From aaaecfcda1d58125879a1111e1f338e3866ee655 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 16 Dec 2004 07:16:17 +0000 Subject: [PATCH] (match): New face. (list-matching-lines-face): Change default from `bold' to `match'. --- lisp/replace.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/replace.el b/lisp/replace.el index 6ba2e7e9aa8..872e5e290a8 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -752,6 +752,20 @@ Compatibility function for \\[next-error] invocations." (set-window-point (get-buffer-window (current-buffer)) (point)) (occur-mode-goto-occurrence))) +(defface match + '((((class color) (min-colors 88) (background light)) + :background "Tan") + (((class color) (min-colors 88) (background dark)) + :background "RoyalBlue4") + (((class color) (min-colors 8)) + :background "blue" :foreground "white") + (((type tty) (class mono)) + :inverse-video t) + (t :background "gray")) + "Face used to highlight matches permanently." + :group 'matching + :version "21.4") + (defcustom list-matching-lines-default-context-lines 0 "*Default number of context lines included around `list-matching-lines' matches. A negative number means to include that many lines before the match. @@ -761,7 +775,7 @@ A positive number means to include that many lines both before and after." (defalias 'list-matching-lines 'occur) -(defcustom list-matching-lines-face 'bold +(defcustom list-matching-lines-face 'match "*Face used by \\[list-matching-lines] to show the text that matches. If the value is nil, don't highlight the matching portions specially." :type 'face -- 2.39.5