(Info-set-mode-line): Show file name in mode line,

use `*Info*' instead of `Info:'.

diff --git a/lisp/info.el b/lisp/info.el
index abc21a6a13c0cb5f013dc10094e4a66f887ae9df..76abc9043f9176fe1f36957f59343d84eebfe007 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -855,13 +855,11 @@ Bind this in case the user sets it to nil."
 (defun Info-set-mode-line ()
   (setq mode-line-buffer-identification
        (concat
-        "  Info:  ("
-        (if Info-current-file
-            (file-name-nondirectory (if (stringp Info-current-file)
-                                        Info-current-file
-                                      (or buffer-file-name "")))
-          "")
-        ")"
+        "  *Info* ("
+        (file-name-nondirectory (if (stringp Info-current-file)
+                                    Info-current-file
+                                  (or buffer-file-name "")))
+        ") "
         (or Info-current-node ""))))
 \f
 ;; Go to an info node specified with a filename-and-nodename string