From c189099b6ca37c4897842040b960a14761cd05db Mon Sep 17 00:00:00 2001 From: Per Abrahamsen Date: Tue, 15 Apr 1997 11:32:14 +0000 Subject: Add support for build in faces. --- lisp/cus-start.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 0865ecd8130..11d7ea1bed5 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -26,6 +26,7 @@ sexp (list 'quote sexp))) +;; Add support for build in variables. (let ((all '(;; abbrev.c (abbrev-all-caps abbrev-mode boolean) (pre-abbrev-expand-hook abbrev-mode hook) @@ -195,4 +196,23 @@ ;; Set the type. (put symbol 'custom-type type)))) +;; Add support for build in faces. +(let ((all '((bold "Use bold font.") + (bold-italic "Use bold italic font.") + (italic "Use italic font.") + (underline "Undeline text.") + (default "Used for text not covered by other faces.") + (highlight "Highlight text in some way.") + (modeline "Used for displaying the modeline.") + (region "Used for displaying the region.") + (secondary-selection + "Used for displaying the secondary selection."))) + entry symbol doc) + (while all + (setq entry (car all) + all (cdr all) + symbol (nth 0 entry) + doc (nth 1 entry)) + (put symbol 'face-documentation doc))) + ;;; cus-start.el ends here. -- cgit v1.2.1