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

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     07/09/22 22:14:40

Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.460
retrieving revision 1.461
diff -u -b -r1.460 -r1.461
--- startup.el  22 Sep 2007 14:02:26 -0000      1.460
+++ startup.el  22 Sep 2007 22:14:40 -0000      1.461
@@ -1157,13 +1157,18 @@
 (defvar fancy-startup-text
   '((:face (variable-pitch :foreground "red")
      "Welcome to "
-     :link ("GNU Emacs" (lambda (button) (browse-url 
"http://www.gnu.org/software/emacs/";)))
+     :link ("GNU Emacs"
+           (lambda (button) (browse-url "http://www.gnu.org/software/emacs/";))
+           "Browse http://www.gnu.org/software/emacs/";)
      ", one component of the "
      :link
      (lambda ()
        (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)))))
+          '("GNU/Linux"
+            (lambda (button) (browse-url 
"http://www.gnu.org/gnu/linux-and-gnu.html";))
+            "Browse http://www.gnu.org/gnu/linux-and-gnu.html";)
+        '("GNU" (lambda (button) (describe-project))
+          "Display info on the GNU project")))
      " operating system.\n"
      :face variable-pitch "To quit a partially entered command, type "
      :face default "Control-g"
@@ -1189,7 +1194,8 @@
      "\n"
      :face variable-pitch
      :link ("Emacs Guided Tour"
-         (lambda (button) (browse-url 
"http://www.gnu.org/software/emacs/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"
      :link ("View Emacs Manual" (lambda (button) (info-emacs-manual)))
      "\tView the Emacs manual using Info\n"
@@ -1210,13 +1216,18 @@
 (defvar fancy-about-text
   '((:face (variable-pitch :foreground "red")
      "This is "
-     :link ("GNU Emacs" (lambda (button) (browse-url 
"http://www.gnu.org/software/emacs/";)))
+     :link ("GNU Emacs"
+           (lambda (button) (browse-url "http://www.gnu.org/software/emacs/";))
+           "Browse http://www.gnu.org/software/emacs/";)
      ", one component of the "
      :link
      (lambda ()
        (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)))))
+          '("GNU/Linux"
+            (lambda (button) (browse-url 
"http://www.gnu.org/gnu/linux-and-gnu.html";))
+            "Browse http://www.gnu.org/gnu/linux-and-gnu.html";)
+        '("GNU" (lambda (button) (describe-project))
+          "Display info on the GNU project.")))
      " operating system.\n"
      :face (lambda ()
             (list 'variable-pitch :foreground
@@ -1274,7 +1285,8 @@
           (concat " (" title ")"))))
      "\n"
      :link ("Emacs Guided Tour"
-           (lambda (button) (browse-url 
"http://www.gnu.org/software/emacs/tour/";)))
+           (lambda (button) (browse-url 
"http://www.gnu.org/software/emacs/tour/";))
+           "Browse http://www.gnu.org/software/emacs/tour/";)
      "\tSee an overview of the many facilities of GNU Emacs"
      ))
   "A list of texts to show in the middle part of the About screen.
@@ -1314,10 +1326,10 @@
 with no args that return a string; pairs `:face FACE', where FACE
 is a face specification usable with `put-text-property'; or pairs
 `:link LINK' where LINK is a list of arguments to pass to
-`insert-button', of the form (LABEL ACTION), which specifies the
-button's label and `action' property.  FACE and LINK can also be
-functions, which are evaluated to obtain a face or button
-specification."
+`insert-button', of the form (LABEL ACTION [HELP-ECHO]), which
+specifies the button's label, `action' property and help-echo string.
+FACE and LINK can also be functions, which are evaluated to obtain
+a face or button specification."
   (let ((current-face nil))
     (while args
       (cond ((eq (car args) :face)
@@ -1332,6 +1344,9 @@
               (insert-button (car spec)
                              'face (list 'link current-face)
                              'action (cadr spec)
+                             'help-echo (concat "mouse-2, RET: "
+                                                (or (nth 2 spec)
+                                                    "Follow this link"))
                              'follow-link t)))
            (t (insert (propertize (let ((it (car args)))
                                     (if (functionp it)
@@ -1371,7 +1386,7 @@
        ;; Insert the image with a help-echo and a link.
        (make-button (prog1 (point) (insert-image img)) (point)
                     'face 'default
-                    'help-echo "mouse-2: browse http://www.gnu.org/";
+                    'help-echo "mouse-2, RET: Browse http://www.gnu.org/";
                     'action (lambda (button) (browse-url 
"http://www.gnu.org/";))
                     'follow-link t)
        (insert "\n\n")))))
@@ -1385,13 +1400,16 @@
        :face 'variable-pitch
        "\nTo start...     "
        :link '("Open a File"
-              (lambda (button) (call-interactively 'find-file)))
+              (lambda (button) (call-interactively 'find-file))
+              "Specify a new file's name, to edit the file")
        "     "
        :link '("Open Home Directory"
-              (lambda (button) (dired "~")))
+              (lambda (button) (dired "~"))
+              "Open your home directory, to operate on its files")
        "     "
        :link '("Customize Startup"
-              (lambda (button) (customize-group 'initialization)))
+              (lambda (button) (customize-group 'initialization))
+              "Change initialization settings including this screen")
        "\n"))
     (fancy-splash-insert :face `(variable-pitch :foreground ,fg)
                         "\nThis is "