procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the Info mode line further

Browse source 
* lisp/info.el (Info-set-mode-line): Improve the Info mode line
further (bug#13776).
This commit is contained in:
Lars Ingebrigtsen 2021-09-07 16:59:52 +02:00
parent 4128186cc9
commit f10a4aad33
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/info.el
View file

@ -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