diff options
| author | Juri Linkov <juri@jurta.org> | 2004-12-16 07:16:17 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-12-16 07:16:17 +0000 |
| commit | aaaecfcda1d58125879a1111e1f338e3866ee655 (patch) | |
| tree | 749171f405efa2e43b2796ce2c23d077bc0e6043 /lisp/replace.el | |
| parent | 333f1b6f78ea3923fd49c8bb7f4d4aef39549591 (diff) | |
| download | emacs-aaaecfcda1d58125879a1111e1f338e3866ee655.tar.gz | |
(match): New face.
(list-matching-lines-face): Change default from `bold' to `match'.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 16 |
1 files changed, 15 insertions, 1 deletions
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 |