From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 15 Jun 2000 14:42:48 +0000 (+0000)
Subject: (Info-set-mode-line): Show file name in mode line,
X-Git-Tag: emacs-pretest-21.0.90~3299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e27c25aebc60af868e0bfdac6070691f348c4f9a;p=emacs.git

(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 abc21a6a13c..76abc9043f9 100644
--- 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 ""))))
 
 ;; Go to an info node specified with a filename-and-nodename string