Improve the info-mode mode line

* lisp/info.el (Info-set-mode-line): Add a help echo to help
explain what the thing in parentheses is (bug#13776).

diff --git a/lisp/info.el b/lisp/info.el
index e6b5f3e5a7cba13378e53d57928ef4e9d000c419..55893218562129e987f730064369dafc69c376a2 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1731,22 +1731,24 @@ escaped (\\\",\\\\)."
               (list
                (concat
                 " ("
-                (if (stringp Info-current-file)
-                    (string-replace
-                     "%" "%%"
-                     (file-name-sans-extension
-                      (file-name-nondirectory Info-current-file)))
-                  (format "*%S*" Info-current-file))
-                ") "
-                (if Info-current-node
-                    (propertize (string-replace
-                                 "%" "%%" Info-current-node)
-                                'face 'mode-line-buffer-id
-                                'help-echo
-                                "mouse-1: scroll forward, mouse-3: scroll back"
-                                'mouse-face 'mode-line-highlight
-                                'local-map Info-mode-line-node-keymap)
-                  ""))))))
+                 (propertize
+                 (if (stringp Info-current-file)
+                      (string-replace
+                      "%" "%%"
+                      (file-name-sans-extension
+                       (file-name-nondirectory Info-current-file)))
+                   (format "*%S*" Info-current-file))
+                  'help-echo "Info file name")
+                ") ")
+               (if Info-current-node
+                   (propertize (string-replace
+                                "%" "%%" Info-current-node)
+                               'face 'mode-line-buffer-id
+                               'help-echo
+                               "mouse-1: scroll forward, mouse-3: scroll back"
+                               'mouse-face 'mode-line-highlight
+                               'local-map Info-mode-line-node-keymap)
+                 "")))))
 \f
 ;; Go to an Info node specified with a filename-and-nodename string
 ;; of the sort that is found in pointers in nodes.