Mercurial > emacs
comparison lisp/paren.el @ 67913:cf3a03548c18
(show-paren-match, show-paren-mismatch): Use existing group
`paren-showing-faces'.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Fri, 30 Dec 2005 05:57:19 +0000 |
parents | 88a152f5d26c |
children | 3bd95f4f2941 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
67912:24b085b97616 | 67913:cf3a03548c18 |
---|---|
70 "*If non-nil, beep if mismatched paren is detected." | 70 "*If non-nil, beep if mismatched paren is detected." |
71 :type 'boolean | 71 :type 'boolean |
72 :group 'paren-showing | 72 :group 'paren-showing |
73 :version "20.3") | 73 :version "20.3") |
74 | 74 |
75 (defgroup paren-showing-faces () | 75 (defgroup paren-showing-faces nil |
76 "Group for faces of Show Paren mode" | 76 "Group for faces of Show Paren mode." |
77 :group 'paren-showing | 77 :group 'paren-showing |
78 :group 'faces | 78 :group 'faces |
79 :version "22.1") | 79 :version "22.1") |
80 | 80 |
81 (defface show-paren-match | 81 (defface show-paren-match |
86 (((background dark)) | 86 (((background dark)) |
87 :background "grey50") | 87 :background "grey50") |
88 (t | 88 (t |
89 :background "gray")) | 89 :background "gray")) |
90 "Show Paren mode face used for a matching paren." | 90 "Show Paren mode face used for a matching paren." |
91 :group 'show-paren-faces) | 91 :group 'paren-showing-faces) |
92 ;; backward-compatibility alias | 92 ;; backward-compatibility alias |
93 (put 'show-paren-match-face 'face-alias 'show-paren-match) | 93 (put 'show-paren-match-face 'face-alias 'show-paren-match) |
94 | 94 |
95 (defface show-paren-mismatch | 95 (defface show-paren-mismatch |
96 '((((class color)) (:foreground "white" :background "purple")) | 96 '((((class color)) (:foreground "white" :background "purple")) |
97 (t (:inverse-video t))) | 97 (t (:inverse-video t))) |
98 "Show Paren mode face used for a mismatching paren." | 98 "Show Paren mode face used for a mismatching paren." |
99 :group 'show-paren-faces) | 99 :group 'paren-showing-faces) |
100 ;; backward-compatibility alias | 100 ;; backward-compatibility alias |
101 (put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch) | 101 (put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch) |
102 | 102 |
103 (defvar show-paren-highlight-openparen t | 103 (defvar show-paren-highlight-openparen t |
104 "*Non-nil turns on openparen highlighting when matching forward.") | 104 "*Non-nil turns on openparen highlighting when matching forward.") |