diff lisp/startup.el @ 91053:a0e466c4d599

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 887-889) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 116-121) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-268

--- a/lisp/startup.el	Mon Oct 15 04:54:31 2007 +0000
+++ b/lisp/startup.el	Mon Oct 15 05:03:21 2007 +0000
@@ -1452,14 +1452,15 @@
     (when concise
       (fancy-splash-insert
        :face 'variable-pitch "\n"
-       :link '("Dismiss" (lambda (button)
-			   (when startup-screen-inhibit-startup-screen
-			     (customize-set-variable 'inhibit-startup-screen t)
-			     (customize-mark-to-save 'inhibit-startup-screen)
-			     (custom-save-all))
-			   (let ((w (get-buffer-window "*GNU Emacs*")))
-			     (and w (not (one-window-p)) (delete-window w)))
-			   (kill-buffer "*GNU Emacs*")))
+       :link '("Dismiss this startup screen"
+	       (lambda (button)
+		 (when startup-screen-inhibit-startup-screen
+		   (customize-set-variable 'inhibit-startup-screen t)
+		   (customize-mark-to-save 'inhibit-startup-screen)
+		   (custom-save-all))
+		 (let ((w (get-buffer-window "*GNU Emacs*")))
+		   (and w (not (one-window-p)) (delete-window w)))
+		 (kill-buffer "*GNU Emacs*")))
        "  ")
       (when (or user-init-file custom-file)
 	(let ((checked (create-image "\300\300\141\143\067\076\034\030"
@@ -1480,7 +1481,7 @@
 		       (overlay-put button 'display (overlay-get button :on-glyph))
 		       (setq startup-screen-inhibit-startup-screen t)))))
 	(fancy-splash-insert :face '(variable-pitch :height 0.9)
-			     " Don't show this message again.")))))
+			     " Never show it again.")))))
 
 (defun exit-splash-screen ()
   "Stop displaying the splash screen buffer."
@@ -1492,7 +1493,7 @@
 If CONCISE is non-nil, display a concise version of the
 splash screen in another window."
   (let ((splash-buffer (get-buffer-create "*GNU Emacs*")))
-    (with-current-buffer splash-buffer 
+    (with-current-buffer splash-buffer
       (let ((inhibit-read-only t))
 	(erase-buffer)
 	(make-local-variable 'startup-screen-inhibit-startup-screen)
@@ -1513,7 +1514,8 @@
       (set-buffer-modified-p nil)
       (if (and view-read-only (not view-mode))
 	  (view-mode-enter nil 'kill-buffer))
-      (goto-char (point-max)))
+      (goto-char (point-min))
+      (forward-line (if concise 2 4)))
     (if concise
 	(progn
 	  (display-buffer splash-buffer)
@@ -1551,7 +1553,8 @@
       (setq tab-width 22)
       (message "%s" (startup-echo-area-message))
       (setq buffer-read-only t)
-      (goto-char (point-min)))))
+      (goto-char (point-min))
+      (forward-line 3))))
 
 (defun fancy-splash-frame ()
   "Return the frame to use for the fancy splash screen.
@@ -1658,7 +1661,7 @@
   ;; The user can use the mouse to activate menus
   ;; so give help in terms of menu items.
   (insert "\
-You can do basic editing with the menu bar and scroll bar using the mouse.
+To follow a link, click Mouse-1 on it, or move to it and type RET.
 To quit a partially entered command, type Control-g.\n")
 
   (insert "\nImportant Help menu items:\n")