From: Juri Linkov Date: Sat, 19 Jul 2008 23:55:02 +0000 (+0000) Subject: (fancy-startup-text): Move the line "To quit a partially entered command, X-Git-Tag: emacs-pretest-23.0.90~4063 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb398779088b13bc7ede1589709d6adc3b0e7991;p=emacs.git (fancy-startup-text): Move the line "To quit a partially entered command, type Control-g" a few lines below to be after the line "To start". Add text "at gnu.org" to "Overview of Emacs features". --- diff --git a/lisp/startup.el b/lisp/startup.el index d3ab1d502a9..6fdab938cf9 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1249,10 +1249,7 @@ If this is nil, no message will be displayed." "Browse http://www.gnu.org/gnu/linux-and-gnu.html") '("GNU" (lambda (button) (describe-gnu-project)) "Display info on the GNU project"))) - " operating system.\n" - :face variable-pitch "To quit a partially entered command, type " - :face default "Control-g" - :face variable-pitch ".\n\n" + " operating system.\n\n" :link ("Emacs Tutorial" (lambda (button) (help-with-tutorial))) "\tLearn basic keystroke commands" (lambda () @@ -1276,7 +1273,7 @@ If this is nil, no message will be displayed." :link ("Emacs Guided Tour" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/tour/")) "Browse http://www.gnu.org/software/emacs/tour/") - "\tOverview of Emacs features\n" + "\tOverview of Emacs features at gnu.org\n" :link ("View Emacs Manual" (lambda (button) (info-emacs-manual))) "\tView the Emacs manual using Info\n" :link ("Absence of Warranty" (lambda (button) (describe-no-warranty))) @@ -1497,6 +1494,10 @@ a face or button specification." (lambda (button) (customize-group 'initialization)) "Change initialization settings including this screen") "\n")) + (fancy-splash-insert + :face 'variable-pitch "To quit a partially entered command, type " + :face 'default "Control-g" + :face 'variable-pitch ".\n") (fancy-splash-insert :face `(variable-pitch (:foreground ,fg)) "\nThis is " (emacs-version)