mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(match): New face.

Browse Source 
(list-matching-lines-face): Change default from `bold' to `match'.
This commit is contained in:
Juri Linkov 2004-12-16 07:16:17 +00:00
parent 333f1b6f78
commit aaaecfcda1
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/replace.el
View File

@ -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