diff options
| author | Miles Bader | 2000-10-16 13:59:49 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-16 13:59:49 +0000 |
| commit | 918e364ae44991b1e880d9a9da501bc4422c4f1c (patch) | |
| tree | 7d823fc8dea904d5f26bcfd842fa4cddcc058686 | |
| parent | b8a63ccb809286ef2077cecefa9a10ecc9f5a43d (diff) | |
| download | emacs-918e364ae44991b1e880d9a9da501bc4422c4f1c.tar.gz emacs-918e364ae44991b1e880d9a9da501bc4422c4f1c.zip | |
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Call propertized-buffer-identification to spruce up the result.
| -rw-r--r-- | lisp/info.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/info.el b/lisp/info.el index 7f935556441..85cb1c778fe 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -940,13 +940,15 @@ Bind this in case the user sets it to nil." | |||
| 940 | 940 | ||
| 941 | (defun Info-set-mode-line () | 941 | (defun Info-set-mode-line () |
| 942 | (setq mode-line-buffer-identification | 942 | (setq mode-line-buffer-identification |
| 943 | (concat | 943 | (nconc (propertized-buffer-identification " %b") |
| 944 | " *Info* (" | 944 | (list |
| 945 | (file-name-nondirectory (if (stringp Info-current-file) | 945 | (concat " (" |
| 946 | Info-current-file | 946 | (file-name-nondirectory |
| 947 | (or buffer-file-name ""))) | 947 | (if (stringp Info-current-file) |
| 948 | ") " | 948 | Info-current-file |
| 949 | (or Info-current-node "")))) | 949 | (or buffer-file-name ""))) |
| 950 | ") " | ||
| 951 | (or Info-current-node "")))))) | ||
| 950 | 952 | ||
| 951 | ;; Skip the node header and make it into a header-line. This function | 953 | ;; Skip the node header and make it into a header-line. This function |
| 952 | ;; should be called when the node is already narrowed. | 954 | ;; should be called when the node is already narrowed. |