# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877588593 0
# Node ID 0e8886335c4bdbeba9682449e44aed6c102e40ee
# Parent  5ac02369f793f9e17d4ac264b56ac2f4880000cb
(basic-faces): New group.  Put the standard faces in it.

diff -r 5ac02369f793 -r 0e8886335c4b lisp/faces.el
--- a/lisp/faces.el	Thu Oct 23 06:35:13 1997 +0000
+++ b/lisp/faces.el	Thu Oct 23 06:36:33 1997 +0000
@@ -1604,6 +1604,11 @@
 
 (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 @@
 	  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)))