master 8ed2f20 1/2: Improve the info-mode mode line

[Lars Ingebrigtsen]

branch: master
commit 8ed2f2014559f54093e550b0bd693b03e70a2995
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/info.el | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/lisp/info.el b/lisp/info.el
index e6b5f3e..5589321 100644
--- 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)
+                 "")))))
 
 ;; Go to an Info node specified with a filename-and-nodename string
 ;; of the sort that is found in pointers in nodes.