[Emacs-diffs] Changes to emacs/lisp/buff-menu.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/08/05 13:30:18

Index: buff-menu.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/buff-menu.el,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -b -r1.103 -r1.104
--- buff-menu.el        28 Jun 2006 14:15:41 -0000      1.103
+++ buff-menu.el        5 Aug 2006 13:30:17 -0000       1.104
@@ -117,6 +117,7 @@
 Auto Revert Mode.")
 
 (defvar Info-current-file) ;; from info.el
+(defvar Info-current-node) ;; from info.el
 
 (make-variable-buffer-local 'Buffer-menu-files-only)
 
@@ -786,7 +787,12 @@
                          ((eq file 'toc)
                           (setq file "*Info TOC*"))
                          ((not (stringp file))  ;; avoid errors
-                          (setq file nil))))))
+                          (setq file nil))
+                         (t
+                          (setq file (concat "("
+                                             (file-name-nondirectory file)
+                                             ")"
+                                             Info-current-node)))))))
                (push (list buffer bits name (buffer-size) mode file)
                      list))))))
       ;; Preserve the original buffer-list ordering, just in case.