[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f10a4aa 1/4: Improve the Info mode line further
From: |
Lars Ingebrigtsen |
Subject: |
master f10a4aa 1/4: Improve the Info mode line further |
Date: |
Tue, 7 Sep 2021 11:47:01 -0400 (EDT) |
branch: master
commit f10a4aad338255e9eed37b9ce3f2a82eb6d6553b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Improve the Info mode line further
* lisp/info.el (Info-set-mode-line): Improve the Info mode line
further (bug#13776).
---
lisp/info.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/info.el b/lisp/info.el
index 5589321..62202d3 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1735,10 +1735,12 @@ escaped (\\\",\\\\)."
(if (stringp Info-current-file)
(string-replace
"%" "%%"
- (file-name-sans-extension
- (file-name-nondirectory Info-current-file)))
+ ;; Remove trailing ".info" and ".info.gz", etc.
+ (replace-regexp-in-string
+ "\\..*\\'" ""
+ (file-name-nondirectory Info-current-file)))
(format "*%S*" Info-current-file))
- 'help-echo "Info file name")
+ 'help-echo "Manual name")
") ")
(if Info-current-node
(propertize (string-replace