# HG changeset patch # User Richard M. Stallman # Date 1135645854 0 # Node ID 88a152f5d26c149dea3c10787b9c3e96b1112caf # Parent 68ab7e53d86a58d80f427d442afdcec11ce78823 (paren-showing-faces): New group. (show-paren-match, show-paren-mismatch): Move to that group. diff -r 68ab7e53d86a -r 88a152f5d26c lisp/paren.el --- a/lisp/paren.el Tue Dec 27 01:07:36 2005 +0000 +++ b/lisp/paren.el Tue Dec 27 01:10:54 2005 +0000 @@ -72,6 +72,12 @@ :group 'paren-showing :version "20.3") +(defgroup paren-showing-faces () + "Group for faces of Show Paren mode" + :group 'paren-showing + :group 'faces + :version "22.1") + (defface show-paren-match '((((class color) (background light)) :background "turquoise") ; looks OK on tty (becomes cyan) @@ -82,8 +88,7 @@ (t :background "gray")) "Show Paren mode face used for a matching paren." - :group 'faces - :group 'paren-showing) + :group 'show-paren-faces) ;; backward-compatibility alias (put 'show-paren-match-face 'face-alias 'show-paren-match) @@ -91,8 +96,7 @@ '((((class color)) (:foreground "white" :background "purple")) (t (:inverse-video t))) "Show Paren mode face used for a mismatching paren." - :group 'faces - :group 'paren-showing) + :group 'show-paren-faces) ;; backward-compatibility alias (put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch)