[Emacs-diffs] Changes to emacs/lisp/paren.el

[Miles Bader]

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.