mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373

Browse source 
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.
This commit is contained in:
Miles Bader 2005-06-10 08:25:35 +00:00
parent 42e648789a
commit 2ec46551a3
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,5 +1,11 @@
2005-06-10 Miles Bader <miles@gnu.org>
* 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.
* ruler-mode.el (ruler-mode-default, ruler-mode-pad)
(ruler-mode-margins, ruler-mode-fringes)
(ruler-mode-column-number, ruler-mode-fill-column)

12
lisp/paren.el
View file

@ -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.