Mercurial > emacs
changeset 17475:0a534b0cc7a3
Add support for build in faces.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Tue, 15 Apr 1997 11:32:14 +0000 |
| parents | 90cfef3930bc |
| children | a7950b211a32 |
| files | lisp/cus-start.el |
| diffstat | 1 files changed, 20 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-start.el Tue Apr 15 11:14:08 1997 +0000 +++ b/lisp/cus-start.el Tue Apr 15 11:32:14 1997 +0000 @@ -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.