(fancy-startup-text, fancy-about-text): Fix face quoting.

2 files changed, 10 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 384d2da4a8d..54aba3bf7c3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2007-09-14  Glenn Morris  <rgm@gnu.org>
 
+        * startup.el (fancy-startup-text, fancy-about-text): Fix face
+        quoting.
+
         * calendar/cal-hebrew.el, calendar/cal-menu.el
         * calendar/calendar.el, calendar/diary-lib.el
         * calendar/holidays.el: Rename all instances of
diff --git a/lisp/startup.el b/lisp/startup.el
index d1cf365b4da..052f33fd175 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1142,7 +1142,7 @@ regardless of the value of this variable."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (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 @@ regardless of the value of this variable."
            '("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 @@ Each element in the list should be a list of strings or pairs
 `: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 @@ Each element in the list should be a list of strings or pairs
            '("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