changeset 32533:ec12d23c8eea

(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*". Call propertized-buffer-identification to spruce up the result.
author Miles Bader <miles@gnu.org>
date Mon, 16 Oct 2000 13:59:49 +0000
parents 61d4de9a4e35
children 4df77b11080e
files lisp/info.el
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Mon Oct 16 13:56:12 2000 +0000
+++ b/lisp/info.el	Mon Oct 16 13:59:49 2000 +0000
@@ -940,13 +940,15 @@
 
 (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.