From 34acda03c2ae306db56217f8259180381eee4d49 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 14 Sep 2007 08:10:15 +0000 Subject: [PATCH] (fancy-startup-text, fancy-about-text): Fix face quoting. --- lisp/ChangeLog | 3 +++ lisp/startup.el | 14 +++++++------- 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 + * 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 -- 2.39.2