diff options
| author | Miles Bader <miles@gnu.org> | 2005-06-10 08:25:35 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-06-10 08:25:35 +0000 |
| commit | 2ec46551a385ecfa4a3a018a124ae727ec9c6ab8 (patch) | |
| tree | d1fecb9fd11425ba1fb35534775e7dbd648eb196 /lisp/paren.el | |
| parent | 42e648789a905b789a72a8952eedafac46d3ce97 (diff) | |
| download | emacs-2ec46551a385ecfa4a3a018a124ae727ec9c6ab8.tar.gz | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373
Remove "-face" suffix from show-paren faces
2005-06-10 Miles Bader <miles@gnu.org>
* lisp/paren.el (show-paren-match, show-paren-mismatch):
Remove "-face" suffix from face names.
(show-paren-match-face, show-paren-mismatch-face):
New backward-compatibility aliases for renamed faces.
(show-paren-function): Use renamed show-paren faces.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index fe2beae4edd..7c6abe087b9 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -71,7 +71,7 @@ otherwise)." :group 'paren-showing :version "20.3") -(defface show-paren-match-face +(defface show-paren-match '((((class color) (background light)) :background "turquoise") ; looks OK on tty (becomes cyan) (((class color) (background dark)) @@ -83,13 +83,17 @@ otherwise)." "Show Paren mode face used for a matching paren." :group 'faces :group 'paren-showing) +;; backward-compatibility alias +(put 'show-paren-match-face 'face-alias 'show-paren-match) -(defface show-paren-mismatch-face +(defface show-paren-mismatch '((((class color)) (:foreground "white" :background "purple")) (t (:inverse-video t))) "Show Paren mode face used for a mismatching paren." :group 'faces :group 'paren-showing) +;; backward-compatibility alias +(put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch) (defvar show-paren-highlight-openparen t "*Non-nil turns on openparen highlighting when matching forward.") @@ -193,8 +197,8 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (progn (if show-paren-ring-bell-on-mismatch (beep)) - (setq face 'show-paren-mismatch-face)) - (setq face 'show-paren-match-face)) + (setq face 'show-paren-mismatch)) + (setq face 'show-paren-match)) ;; ;; If matching backwards, highlight the closeparen ;; before point as well as its matching open. |