From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 23 Oct 1997 06:36:33 +0000 (+0000)
Subject: (basic-faces): New group.  Put the standard faces in it.
X-Git-Tag: emacs-20.3~2947
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=113ab303b87e5c4edfd5583532aa41c134356c50;p=emacs.git

(basic-faces): New group.  Put the standard faces in it.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 5ad00c71cd3..58b984ce876 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1604,6 +1604,11 @@ examine the brightness for you."
 
 (setq region-face (face-id 'region))
 
+(defgroup basic-faces nil
+  "The standard faces of Emacs."
+  :prefix "huh"
+  :group 'faces)
+
 ;; Specify how these faces look, and their documentation.
 (let ((all '((bold "Use bold font." ((t (:bold t))))
 	     (bold-italic "Use bold italic font." ((t (:bold t :italic t))))
@@ -1636,6 +1641,7 @@ examine the brightness for you."
 	  symbol (nth 0 entry)
 	  doc (nth 1 entry)
 	  spec (nth 2 entry))
+    (custom-add-to-group 'basic-faces symbol 'custom-face)
     (put symbol 'face-documentation doc)
     (put symbol 'face-defface-spec spec)))