diff options
| author | Gerd Moellmann | 2000-06-15 14:42:48 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-06-15 14:42:48 +0000 |
| commit | e27c25aebc60af868e0bfdac6070691f348c4f9a (patch) | |
| tree | 5d892689a94feb0c0323088f13320c12bb931bdb | |
| parent | 356b1352b5b459b19be92916a5d4c24e518b3fe6 (diff) | |
| download | emacs-e27c25aebc60af868e0bfdac6070691f348c4f9a.tar.gz emacs-e27c25aebc60af868e0bfdac6070691f348c4f9a.zip | |
(Info-set-mode-line): Show file name in mode line,
use `*Info*' instead of `Info:'.
| -rw-r--r-- | lisp/info.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/info.el b/lisp/info.el index abc21a6a13c..76abc9043f9 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -855,13 +855,11 @@ Bind this in case the user sets it to nil." | |||
| 855 | (defun Info-set-mode-line () | 855 | (defun Info-set-mode-line () |
| 856 | (setq mode-line-buffer-identification | 856 | (setq mode-line-buffer-identification |
| 857 | (concat | 857 | (concat |
| 858 | " Info: (" | 858 | " *Info* (" |
| 859 | (if Info-current-file | 859 | (file-name-nondirectory (if (stringp Info-current-file) |
| 860 | (file-name-nondirectory (if (stringp Info-current-file) | 860 | Info-current-file |
| 861 | Info-current-file | 861 | (or buffer-file-name ""))) |
| 862 | (or buffer-file-name ""))) | 862 | ") " |
| 863 | "") | ||
| 864 | ")" | ||
| 865 | (or Info-current-node "")))) | 863 | (or Info-current-node "")))) |
| 866 | 864 | ||
| 867 | ;; Go to an info node specified with a filename-and-nodename string | 865 | ;; Go to an info node specified with a filename-and-nodename string |