# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1189757397 0
# Node ID 24b992399f28f725199dc2edb6ed99b24b9d6c54
# Parent  3d73ba1d5fa9b2371da77955ff0e97781855a60a
(fancy-startup-text, fancy-about-text): Fix face quoting.

diff -r 3d73ba1d5fa9 -r 24b992399f28 lisp/startup.el
--- a/lisp/startup.el	Fri Sep 14 07:44:58 2007 +0000
+++ b/lisp/startup.el	Fri Sep 14 08:09:57 2007 +0000
@@ -1142,7 +1142,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defvar fancy-startup-text
-  '((:face '(variable-pitch :foreground "red")
+  '((:face (variable-pitch :foreground "red")
      "Welcome to "
      :link ("GNU Emacs" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")))
      ", one component of the "
@@ -1152,9 +1152,9 @@
 	   '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")))
 	 '("GNU" (lambda (button) (describe-project)))))
      " operating system.\n"
-     :face 'variable-pitch "To quit a partially entered command, type "
-     :face 'default "Control-g"
-     :face 'variable-pitch ".\n\n"
+     :face variable-pitch "To quit a partially entered command, type "
+     :face default "Control-g"
+     :face variable-pitch ".\n\n"
      :link ("Emacs Tutorial" (lambda (button) (help-with-tutorial)))
      "\tLearn basic keystroke commands"
      (lambda ()
@@ -1195,7 +1195,7 @@
 `:face FACE', like `fancy-splash-insert' accepts them.")
 
 (defvar fancy-about-text
-  '((:face '(variable-pitch :foreground "red")
+  '((:face (variable-pitch :foreground "red")
      "This is "
      :link ("GNU Emacs" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")))
      ", one component of the "
@@ -1205,14 +1205,14 @@
 	   '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")))
 	 '("GNU" (lambda (button) (describe-project)))))
      " operating system.\n"
-     :face (lambda () 
+     :face (lambda ()
 	     (list 'variable-pitch :foreground
 		   (if (eq (frame-parameter nil 'background-mode) 'dark)
 		       "cyan" "darkblue")))
      "\n"
      (lambda () (emacs-version))
      "\n"
-     :face '(variable-pitch :height 0.5)
+     :face (variable-pitch :height 0.5)
      (lambda () emacs-copyright)
      "\n\n"
      :face variable-pitch