Mercurial > emacs

changeset 72289:40a24db2adc4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-buffers-noselect): For Info buffers, use "(file)node" instead of the file name.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 05 Aug 2006 13:30:17 +0000
parents 94e8cc9b752d
children 11245154c0d4
files lisp/buff-menu.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/buff-menu.el	Sat Aug 05 13:01:50 2006 +0000
+++ b/lisp/buff-menu.el	Sat Aug 05 13:30:17 2006 +0000
@@ -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.