From 5e4447f1e4e96efdf44d7d78b932bfe467ccc1e4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 25 May 1997 21:55:52 +0000 Subject: [PATCH] Move face setup to faces.el. --- lisp/cus-start.el | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 4de32c953e7..ac339793029 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -213,23 +213,4 @@ ;; 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 "Underline 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. -- 2.39.5