Mercurial > emacs
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)))