(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 7f935556441ca7215d3e8ce85a3632896c900a22..85cb1c778fefd11b2b4cbd0c937cd3678d4f558a 100644 (file)
--- 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 ""))))))
 \f
 ;; Skip the node header and make it into a header-line.  This function
 ;; should be called when the node is already narrowed.