[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8ed2f20 1/2: Improve the info-mode mode line
From: |
Lars Ingebrigtsen |
Subject: |
master 8ed2f20 1/2: Improve the info-mode mode line |
Date: |
Mon, 6 Sep 2021 06:37:23 -0400 (EDT) |
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.