From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 6 Sep 2021 10:33:22 +0000 (+0200)
Subject: Improve the info-mode mode line
X-Git-Tag: emacs-28.0.90~1147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ed2f2014559f54093e550b0bd693b03e70a2995;p=emacs.git

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 e6b5f3e5a7c..55893218562 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.