From 113ab303b87e5c4edfd5583532aa41c134356c50 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 23 Oct 1997 06:36:33 +0000 Subject: [PATCH] (basic-faces): New group. Put the standard faces in it. --- lisp/faces.el | 6 ++++++ 1 file changed, 6 insertions(+) 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))) -- 2.39.2