(fancy-splash-text): Don't quote faces.

2 files changed, 9 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3366c911ed2..a121c5a4d3d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-09-20  Gerd Moellmann  <gerd@gnu.org>
 
+        * startup.el (fancy-splash-text): Don't quote faces.
+
         * dired.el (dired-font-lock-keywords): Undo last change.
         (dired-readin): Bind indent-tabs-mode to nil.
 
diff --git a/lisp/startup.el b/lisp/startup.el
index 717409a7e6a..f793b84e63e 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -842,12 +842,12 @@ If this is nil, no message will be displayed."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defvar fancy-splash-text
-  '((:face 'variable-pitch
+  '((:face variable-pitch
            "The menu bar and scroll bar are sufficient \
 for basic editing with the mouse.\n\n"
-           :face '(variable-pitch :weight bold)
+           :face (variable-pitch :weight bold)
            "Useful Files menu items:\n"
-           :face 'variable-pitch "\
+           :face variable-pitch "\
 Exit Emacs              (or type Control-x followed by Control-c)
 Recover Session         recover files you were editing before a crash
 
@@ -857,15 +857,15 @@ Recover Session		recover files you were editing before a crash
   (:face 'variable-pitch
            "The menu bar and scroll bar are sufficient \
 for basic editing with the mouse.\n\n"
-           :face '(variable-pitch :weight bold)
+           :face (variable-pitch :weight bold)
            "Important Help menu items:\n"
-           :face 'variable-pitch "\
+           :face variable-pitch "\
 Emacs Tutorial          Learn-by-doing tutorial for using Emacs efficiently.
 Emacs FAQ               Frequently asked questions and answers
 \(Non)Warranty          GNU Emacs comes with "
-           :face '(variable-pitch :slant oblique)
+           :face (variable-pitch :slant oblique)
            "ABSOLUTELY NO WARRANTY\n"
-           :face `variable-pitch
+           :face variable-pitch
            "Copying Conditions  Conditions for redistributing and \
 changing Emacs\n"))
   "A list of texts to show in the middle part of splash screens.