/[emacs]/emacs/lisp/paren.el
ViewVC logotype

Diff of /emacs/lisp/paren.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by monnier, Tue Apr 19 18:15:38 2005 UTC revision 1.62 by miles, Fri Jun 10 08:25:35 2005 UTC
# Line 71  otherwise)." Line 71  otherwise)."
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))
# Line 83  otherwise)." Line 83  otherwise)."
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.")
# Line 193  in `show-paren-style' after `show-paren- Line 197  in `show-paren-style' after `show-paren-
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.

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26