Mercurial > emacs
diff lisp/paren.el @ 63202:d307630996bc
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.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 10 Jun 2005 08:25:35 +0000 |
parents | d7252d4ac684 |
children | 6fb026ad601f a1b34dec1104 |
line wrap: on
line diff
--- a/lisp/paren.el Fri Jun 10 08:20:44 2005 +0000 +++ b/lisp/paren.el Fri Jun 10 08:25:35 2005 +0000 @@ -71,7 +71,7 @@ :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 @@ "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 @@ (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.