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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3366c911ed28331c994edeb53ad484dfadde9e6b..a121c5a4d3dc939fb0c738be1921c8e8847bd495 100644 (file)
--- 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 717409a7e6a1f25e1ec318bcb2e8beafcdae08ab..f793b84e63e5d2a74e6dcb9e8d9f8f43bbe79d5c 100644 (file)
--- 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.