From: Miles Bader <miles@gnu.org>
Date: Mon, 16 Oct 2000 13:59:49 +0000 (+0000)
Subject: (Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
X-Git-Tag: emacs-pretest-21.0.90~841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=918e364ae44991b1e880d9a9da501bc4422c4f1c;p=emacs.git

(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Call propertized-buffer-identification to spruce up the result.
---

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."
 
 (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.