# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 971704789 0
# Node ID ec12d23c8eeaeef29a10a52f29189f4567d67caa
# Parent  61d4de9a4e35888776c29250dce332ff4b71e114
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Call propertized-buffer-identification to spruce up the result.

diff -r 61d4de9a4e35 -r ec12d23c8eea lisp/info.el
--- 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.