mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".

Browse Source 
Call propertized-buffer-identification to spruce up the result.
This commit is contained in:
Miles Bader 2000-10-16 13:59:49 +00:00
parent b8a63ccb80
commit 918e364ae4
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/info.el
View File

@ -940,13 +940,15 @@ Bind this in case the user sets it to nil."
(defun Info-set-mode-line ()
(setq mode-line-buffer-identification
(concat
" *Info* ("
(file-name-nondirectory (if (stringp Info-current-file)
Info-current-file
(or buffer-file-name "")))
") "
(or Info-current-node ""))))
(nconc (propertized-buffer-identification " %b")
(list
(concat " ("
(file-name-nondirectory
(if (stringp Info-current-file)
Info-current-file
(or buffer-file-name "")))
") "
(or Info-current-node ""))))))
;; Skip the node header and make it into a header-line. This function
;; should be called when the node is already narrowed.