Commit d6f0f3e0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(paren-showing-faces): New group.

(show-paren-match, show-paren-mismatch): Move to that group.
parent 21b9448f
2005-12-26 Richard M. Stallman <rms@gnu.org> 2005-12-26 Richard M. Stallman <rms@gnu.org>
   
* paren.el (paren-showing-faces): New group.
(show-paren-match, show-paren-mismatch): Move to that group.
* button.el (button): Put into group `basic-faces'.
* progmodes/make-mode.el: Remove faces from group `faces'.
* apropos.el (apropos, apropos-value): Doc fix. * apropos.el (apropos, apropos-value): Doc fix.
(apropos-documentation): Doc fix. (apropos-documentation): Doc fix.
   
......
...@@ -72,6 +72,12 @@ otherwise)." ...@@ -72,6 +72,12 @@ otherwise)."
:group 'paren-showing :group 'paren-showing
:version "20.3") :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 (defface show-paren-match
'((((class color) (background light)) '((((class color) (background light))
:background "turquoise") ; looks OK on tty (becomes cyan) :background "turquoise") ; looks OK on tty (becomes cyan)
...@@ -82,8 +88,7 @@ otherwise)." ...@@ -82,8 +88,7 @@ otherwise)."
(t (t
:background "gray")) :background "gray"))
"Show Paren mode face used for a matching paren." "Show Paren mode face used for a matching paren."
:group 'faces :group 'show-paren-faces)
:group 'paren-showing)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'show-paren-match-face 'face-alias 'show-paren-match) (put 'show-paren-match-face 'face-alias 'show-paren-match)
...@@ -91,8 +96,7 @@ otherwise)." ...@@ -91,8 +96,7 @@ otherwise)."
'((((class color)) (:foreground "white" :background "purple")) '((((class color)) (:foreground "white" :background "purple"))
(t (:inverse-video t))) (t (:inverse-video t)))
"Show Paren mode face used for a mismatching paren." "Show Paren mode face used for a mismatching paren."
:group 'faces :group 'show-paren-faces)
:group 'paren-showing)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch) (put 'show-paren-mismatch-face 'face-alias 'show-paren-mismatch)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment