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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 384d2da4a8da4c89a4dd8e0061138e7794e68cc9..54aba3bf7c30dc055b375786d83c1a1fa9316fa8 100644 (file)
--- 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 d1cf365b4daf121e497ac34b4c43a542e78af9e9..052f33fd175b88822210fad472f51fd0ab4e1557 100644 (file)
--- 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