# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1216511702 0
# Node ID dab516876348a24c3f6807de10f5ace71aa893c3
# Parent  a62e380c13e6f816c8c76d5e18481e06ff6d0b37
(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 -r a62e380c13e6 -r dab516876348 lisp/startup.el
--- 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)