--- a/lisp/packages/info.el	Mon Aug 13 09:06:45 2007 +0200
+++ b/lisp/packages/info.el	Mon Aug 13 09:07:36 2007 +0200
@@ -834,17 +834,19 @@
 
 (defun Info-set-mode-line ()
   (setq modeline-buffer-identification
-	(concat
-	 "Info:  ("
-	 (if Info-current-file
-	     (let ((name (file-name-nondirectory Info-current-file)))
-	       (if (string-match "\\.info$" name)
-		   (substring name 0 -5)
-		 name))
-	   "")
-	 ")"
-	 (or Info-current-node ""))))
-
+	(list (cons modeline-buffer-id-left-extent "Info: ")
+	      (cons modeline-buffer-id-right-extent
+		    (concat
+		     "("
+		     (if Info-current-file
+			 (let ((name (file-name-nondirectory Info-current-file)))
+			   (if (string-match "\\.info$" name)
+			       (substring name 0 -5)
+			     name))
+		       "")
+		     ")"
+		     (or Info-current-node ""))))))
+	
 ;; Go to an info node specified with a filename-and-nodename string
 ;; of the sort that is found in pointers in nodes.