diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-06 12:33:22 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-06 12:33:22 +0200 |
| commit | 8ed2f2014559f54093e550b0bd693b03e70a2995 (patch) | |
| tree | ce48501e950b3dadc06206708d94c2afb08229fb /lisp | |
| parent | 61562c78dd86f7d93e2610e5c826ca8a3b0d40f4 (diff) | |
| download | emacs-8ed2f2014559f54093e550b0bd693b03e70a2995.tar.gz emacs-8ed2f2014559f54093e550b0bd693b03e70a2995.tar.bz2 emacs-8ed2f2014559f54093e550b0bd693b03e70a2995.zip | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 34 |
1 files changed, 18 insertions, 16 deletions
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. |