Mercurial > emacs
changeset 96820:dab516876348
(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".
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 19 Jul 2008 23:55:02 +0000 |
| parents | a62e380c13e6 |
| children | e1156184215a |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Sat Jul 19 23:54:48 2008 +0000 +++ b/lisp/startup.el Sat Jul 19 23:55:02 2008 +0000 @@ -1249,10 +1249,7 @@ "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 @@ :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 @@ (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)