changeset 20126:0e8886335c4b

(basic-faces): New group. Put the standard faces in it.
author Karl Heuer <kwzh@gnu.org>
date Thu, 23 Oct 1997 06:36:33 +0000
parents 5ac02369f793
children 75c24766a23a
files lisp/faces.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))