diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-09-14 08:10:15 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-09-14 08:10:15 +0000 |
| commit | 34acda03c2ae306db56217f8259180381eee4d49 (patch) | |
| tree | 6b994438b9c6fcf89dd04442b830ca24b97f5897 /lisp/startup.el | |
| parent | aca946f32ebf58fcb676940f041d49b0506cde5d (diff) | |
| download | emacs-34acda03c2ae306db56217f8259180381eee4d49.tar.gz | |
(fancy-startup-text, fancy-about-text): Fix face quoting.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 14 |
1 files changed, 7 insertions, 7 deletions
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 |