Mercurial > emacs

changeset 84563:24b992399f28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-startup-text, fancy-about-text): Fix face quoting.
author Glenn Morris <rgm@gnu.org>
date Fri, 14 Sep 2007 08:09:57 +0000
parents 3d73ba1d5fa9
children 2c9272f8655f
files lisp/startup.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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