Mercurial > emacs
changeset 58987:b24e485e88f7
(match): New face.
(list-matching-lines-face): Change default from `bold' to `match'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 16 Dec 2004 07:16:17 +0000 |
| parents | 59945307b86b |
| children | 067d5dcfe531 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Wed Dec 15 21:40:41 2004 +0000 +++ b/lisp/replace.el Thu Dec 16 07:16:17 2004 +0000 @@ -752,6 +752,20 @@ (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 @@ (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