[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/paren.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/paren.el |
Date: |
Fri, 10 Jun 2005 04:25:36 -0400 |
Index: emacs/lisp/paren.el
diff -c emacs/lisp/paren.el:1.61 emacs/lisp/paren.el:1.62
*** emacs/lisp/paren.el:1.61 Tue Apr 19 18:15:38 2005
--- emacs/lisp/paren.el Fri Jun 10 08:25:35 2005
***************
*** 71,77 ****
:group 'paren-showing
:version "20.3")
! (defface show-paren-match-face
'((((class color) (background light))
:background "turquoise") ; looks OK on tty (becomes cyan)
(((class color) (background dark))
--- 71,77 ----
:group 'paren-showing
:version "20.3")
! (defface show-paren-match
'((((class color) (background light))
:background "turquoise") ; looks OK on tty (becomes cyan)
(((class color) (background dark))
***************
*** 83,95 ****
"Show Paren mode face used for a matching paren."
:group 'faces
:group 'paren-showing)
! (defface show-paren-mismatch-face
'((((class color)) (:foreground "white" :background "purple"))
(t (:inverse-video t)))
"Show Paren mode face used for a mismatching paren."
:group 'faces
:group 'paren-showing)
(defvar show-paren-highlight-openparen t
"*Non-nil turns on openparen highlighting when matching forward.")
--- 83,99 ----
"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
'((((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,200 ****
(progn
(if show-paren-ring-bell-on-mismatch
(beep))
! (setq face 'show-paren-mismatch-face))
! (setq face 'show-paren-match-face))
;;
;; If matching backwards, highlight the closeparen
;; before point as well as its matching open.
--- 197,204 ----
(progn
(if show-paren-ring-bell-on-mismatch
(beep))
! (setq face 'show-paren-mismatch))
! (setq face 'show-paren-match))
;;
;; If matching backwards, highlight the closeparen
;; before point as well as its matching open.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/paren.el,
Miles Bader <=