71 |
:group 'paren-showing |
:group 'paren-showing |
72 |
:version "20.3") |
:version "20.3") |
73 |
|
|
74 |
(defface show-paren-match-face |
(defface show-paren-match |
75 |
'((((class color) (background light)) |
'((((class color) (background light)) |
76 |
:background "turquoise") ; looks OK on tty (becomes cyan) |
:background "turquoise") ; looks OK on tty (becomes cyan) |
77 |
(((class color) (background dark)) |
(((class color) (background dark)) |
83 |
"Show Paren mode face used for a matching paren." |
"Show Paren mode face used for a matching paren." |
84 |
:group 'faces |
:group 'faces |
85 |
:group 'paren-showing) |
:group 'paren-showing) |
86 |
|
;; backward-compatibility alias |
87 |
|
(put 'show-paren-match-face 'face-alias 'show-paren-match) |
88 |
|
|
89 |
(defface show-paren-mismatch-face |
(defface show-paren-mismatch |
90 |
'((((class color)) (:foreground "white" :background "purple")) |
'((((class color)) (:foreground "white" :background "purple")) |
91 |
(t (:inverse-video t))) |
(t (:inverse-video t))) |
92 |
"Show Paren mode face used for a mismatching paren." |
"Show Paren mode face used for a mismatching paren." |
93 |
:group 'faces |
:group 'faces |
94 |
:group 'paren-showing) |
:group 'paren-showing) |
95 |
|
;; backward-compatibility alias |
96 |
|
(put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch) |
97 |
|
|
98 |
(defvar show-paren-highlight-openparen t |
(defvar show-paren-highlight-openparen t |
99 |
"*Non-nil turns on openparen highlighting when matching forward.") |
"*Non-nil turns on openparen highlighting when matching forward.") |
197 |
(progn |
(progn |
198 |
(if show-paren-ring-bell-on-mismatch |
(if show-paren-ring-bell-on-mismatch |
199 |
(beep)) |
(beep)) |
200 |
(setq face 'show-paren-mismatch-face)) |
(setq face 'show-paren-mismatch)) |
201 |
(setq face 'show-paren-match-face)) |
(setq face 'show-paren-match)) |
202 |
;; |
;; |
203 |
;; If matching backwards, highlight the closeparen |
;; If matching backwards, highlight the closeparen |
204 |
;; before point as well as its matching open. |
;; before point as well as its matching open. |