[Emacs-diffs] Changes to emacs/lisp/startup.el,v

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     07/10/14 20:41:40

Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.467
retrieving revision 1.468
diff -u -b -r1.467 -r1.468
--- startup.el  12 Oct 2007 19:00:30 -0000      1.467
+++ startup.el  14 Oct 2007 20:41:39 -0000      1.468
@@ -1451,7 +1451,8 @@
     (when concise
       (fancy-splash-insert
        :face 'variable-pitch "\n"
-       :link '("Dismiss" (lambda (button)
+       :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)
@@ -1479,7 +1480,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."
@@ -1512,7 +1513,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)
@@ -1550,7 +1552,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.
@@ -1657,7 +1660,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")