From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 20 Sep 2000 12:59:41 +0000 (+0000)
Subject: (fancy-splash-text): Don't quote faces.
X-Git-Tag: emacs-pretest-21.0.90~1490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26ff68aad761a7f393ecee4a0d03b1ab85286ac6;p=emacs.git

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

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.