Mercurial > emacs

comparison lisp/paren.el @ 67913:cf3a03548c18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.")