(initial-buffer-choice): Rename choice "Splash screen"

to "Startup screen".  Fix docstring.
(inhibit-startup-screen): Rename from `inhibit-splash-screen'.
(inhibit-splash-screen): Make alias to `inhibit-startup-screen'.
(inhibit-startup-message): Change alias to `inhibit-startup-screen'.
(initial-scratch-message): Fix docstring.
(fancy-startup-text): Move link to Emacs Manual below Emacs Guided
Tour (which is a kind of tutorial and will be next to Emacs Tutorial).
Add link to "Customize Startup" and set interval between links to
5 spaces.
(fancy-about-text): Add links "Authors" and "Contributing".
(fancy-splash-head): Add text "Welcome to " on the startup screen,
and "This is " on the about screen.  Add link to
"http://www.gnu.org/software/emacs/" for "GNU Emacs".
For the about screen move emacs version to the header from
`fancy-splash-tail' (as it's done already for normal about screen).
(fancy-splash-tail): Insert emacs version only for startup screen.
(normal-splash-screen): Remove duplicate empty lines.
(normal-about-screen): Add links "Authors" and "Contributing".

2 files changed, 91 insertions, 25 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8f99ef5b9c..a1a570544d3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,29 @@
+2007-09-09  Juri Linkov  <juri@jurta.org>
+
+        * Makefile.in (update-authors): Add etc/ to AUTHORS.
+
+        * makefile.w32-in (update-authors): Add etc/ to AUTHORS.
+
+        * startup.el (initial-buffer-choice): Rename choice "Splash screen"
+        to "Startup screen".  Fix docstring.
+        (inhibit-startup-screen): Rename from `inhibit-splash-screen'.
+        (inhibit-splash-screen): Make alias to `inhibit-startup-screen'.
+        (inhibit-startup-message): Change alias to `inhibit-startup-screen'.
+        (initial-scratch-message): Fix docstring.
+        (fancy-startup-text): Move link to Emacs Manual below Emacs Guided
+        Tour (which is a kind of tutorial and will be next to Emacs Tutorial).
+        Add link to "Customize Startup" and set interval between links to
+        5 spaces.
+        (fancy-about-text): Add links "Authors" and "Contributing".
+        (fancy-splash-head): Add text "Welcome to " on the startup screen,
+        and "This is " on the about screen.  Add link to
+        "http://www.gnu.org/software/emacs/" for "GNU Emacs".
+        For the about screen move emacs version to the header from
+        `fancy-splash-tail' (as it's done already for normal about screen).
+        (fancy-splash-tail): Insert emacs version only for startup screen.
+        (normal-splash-screen): Remove duplicate empty lines.
+        (normal-about-screen): Add links "Authors" and "Contributing".
+
 2007-09-09  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols,
diff --git a/lisp/startup.el b/lisp/startup.el
index e469f87ba9f..f004f944b86 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -49,18 +49,18 @@ The value is nil if the selected frame is on a text-only-terminal.")
 
 (defcustom initial-buffer-choice nil
   "Buffer to show after starting Emacs.
-If the value is nil and `inhibit-splash-screen' is nil, show the
+If the value is nil and `inhibit-startup-screen' is nil, show the
 startup screen.  If the value is string, visit the specified file or
 directory using `find-file'.  If t, open the `*scratch*' buffer."
   :type '(choice
-          (const     :tag "Splash screen" nil)
+          (const     :tag "Startup screen" nil)
           (directory :tag "Directory" :value "~/")
           (file      :tag "File" :value "~/file.txt")
           (const     :tag "Lisp scratch buffer" t))
   :version "23.1"
   :group 'initialization)
 
-(defcustom inhibit-splash-screen nil
+(defcustom inhibit-startup-screen nil
   "Non-nil inhibits the startup screen.
 It also inhibits display of the initial message in the `*scratch*' buffer.
 
@@ -69,7 +69,8 @@ you are familiar with the contents of the startup screen."
   :type 'boolean
   :group 'initialization)
 
-(defvaralias 'inhibit-startup-message 'inhibit-splash-screen)
+(defvaralias 'inhibit-splash-screen 'inhibit-startup-screen)
+(defvaralias 'inhibit-startup-message 'inhibit-startup-screen)
 
 (defcustom inhibit-startup-echo-area-message nil
   "*Non-nil inhibits the initial startup echo area message.
@@ -1123,7 +1124,7 @@ opening the first frame (e.g. open a connection to an X server).")
 ")
   "Initial message displayed in *scratch* buffer at startup.
 If this is nil, no message will be displayed.
-If `inhibit-splash-screen' is non-nil, then no message is displayed,
+If `inhibit-startup-screen' is non-nil, then no message is displayed,
 regardless of the value of this variable."
   :type '(choice (text :tag "Message")
                  (const :tag "none" nil))
@@ -1156,11 +1157,11 @@ regardless of the value of this variable."
            (concat " (" title ")"))))
      "\n"
      :face variable-pitch
-     :link ("View Emacs Manual" (lambda (button) (info-emacs-manual)))
-     "\tView the Emacs manual using Info\n"
      :link ("Emacs Guided Tour"
           (lambda (button) (browse-url "http://www.gnu.org/software/emacs/tour/")))
      "\tOverview of Emacs features\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)))
      "\tGNU Emacs comes with "
      :face (variable-pitch :slant oblique)
@@ -1171,12 +1172,15 @@ regardless of the value of this variable."
      :link ("More Manuals / Ordering" (lambda (button) (view-order-manuals)))
      "\tThe FSF sells printed copies of several manuals for Emacs\n"
      "\n"
-     "To start...       "
+     "To start...     "
      :link ("Open a File"
             (lambda (button) (call-interactively 'find-file)))
-     "\t"
+     "     "
      :link ("Open Home Directory"
             (lambda (button) (dired "~")))
+     "     "
+     :link ("Customize Startup"
+            (lambda (button) (customize-group 'initialization)))
      "\n"))
   "A list of texts to show in the middle part of splash screens.
 Each element in the list should be a list of strings or pairs
@@ -1184,6 +1188,17 @@ Each element in the list should be a list of strings or pairs
 
 (defvar fancy-about-text
   '((:face variable-pitch
+     :link ("Authors"
+            (lambda (button)
+              (view-file (expand-file-name "AUTHORS" data-directory))
+              (goto-char (point-min))))
+     "\tMany people have contributed code included in GNU Emacs\n"
+     :link ("Contributing"
+            (lambda (button)
+              (view-file (expand-file-name "CONTRIBUTE" data-directory))
+              (goto-char (point-min))))
+     "\tHow to contribute improvements to Emacs\n"
+     "\n"
      :link ("GNU and Freedom" (lambda (button) (describe-project)))
      "\tWhy we developed GNU Emacs, and the GNU operating system\n"
      :link ("Absence of Warranty" (lambda (button) (describe-no-warranty)))
@@ -1314,13 +1329,15 @@ where FACE is a valid face specification, as it can be used with
   (insert "\n")
   (fancy-splash-insert
    :face '(variable-pitch :foreground "red")
-   "GNU Emacs is one component of the "
+   (if startup "Welcome to " "This is ")
+   :link
+   '("GNU Emacs" (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")))
+   ", one component of the "
    :link
    (if (eq system-type 'gnu/linux)
        '("GNU/Linux" (lambda (button) (browse-url "http://www.gnu.org/gnu/linux-and-gnu.html")))
      '("GNU" (lambda (button) (describe-project))))
-   " operating system.")
-  (insert "\n")
+   " operating system.\n")
   (if startup
       (fancy-splash-insert
        :face 'variable-pitch
@@ -1332,20 +1349,29 @@ using the mouse.\n"
        "Control-g"
        :face 'variable-pitch
        "."
-       "\n\n"))
-  )
+       "\n\n")
+    (let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
+                  "cyan" "darkblue")))
+      (fancy-splash-insert :face `(variable-pitch :foreground ,fg)
+                           "\n"
+                           (emacs-version)
+                           "\n"
+                           :face '(variable-pitch :height 0.5)
+                           emacs-copyright
+                           "\n\n"))))
 
 (defun fancy-splash-tail (&optional startup)
   "Insert the tail part of the splash screen into the current buffer."
   (let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
                 "cyan" "darkblue")))
-    (fancy-splash-insert :face `(variable-pitch :foreground ,fg)
-                         "\nThis is "
-                         (emacs-version)
-                         "\n"
-                         :face '(variable-pitch :height 0.5)
-                         emacs-copyright
-                         "\n")
+    (if startup
+        (fancy-splash-insert :face `(variable-pitch :foreground ,fg)
+                             "\nThis is "
+                             (emacs-version)
+                             "\n"
+                             :face '(variable-pitch :height 0.5)
+                             emacs-copyright
+                             "\n"))
     (and startup
          auto-save-list-file-prefix
          ;; Don't signal an error if the
@@ -1497,8 +1523,6 @@ Warning Warning!!!  Pure space overflow    !!!Warning Warning
            ", one component of the GNU/Linux operating system.\n"
          ", a part of the GNU operating system.\n"))
 
-      (insert "\n")
-
       (if startup
           (if (display-mouse-p)
               ;; The user can use the mouse to activate menus
@@ -1696,7 +1720,7 @@ If you have no Meta key, you may instead type ESC followed by the character.)")
            (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
       (progn
         (insert
-         "\n
+         "
 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for ")
         (insert-button "full details"
                        'action (lambda (button) (describe-no-warranty))
@@ -1714,7 +1738,7 @@ Type C-h C-d for information on ")
                        'follow-link t)
         (insert "."))
     (insert (substitute-command-keys
-             "\n
+             "
 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for "))
     (insert-button "full details"
                    'action (lambda (button) (describe-no-warranty))
@@ -1737,6 +1761,22 @@ Type \\[describe-distribution] for information on "))
 
   (insert "To follow a link, click Mouse-1 on it, or move to it and type RET.\n\n")
 
+  (insert-button "Authors"
+                 'action
+                 (lambda (button)
+                   (view-file (expand-file-name "AUTHORS" data-directory))
+                   (goto-char (point-min)))
+                 'follow-link t)
+  (insert "\t\tMany people have contributed code included in GNU Emacs\n")
+
+  (insert-button "Contributing"
+                 'action
+                 (lambda (button)
+                   (view-file (expand-file-name "CONTRIBUTE" data-directory))
+                   (goto-char (point-min)))
+                 'follow-link t)
+  (insert "\tHow to contribute improvements to Emacs\n\n")
+
   (insert-button "GNU and Freedom"
                  'action (lambda (button) (describe-project))
                  'follow-link t)