diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-08-05 13:30:17 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-08-05 13:30:17 +0000 |
| commit | b653cee476923bfab4fcaa808aa8b870051de70f (patch) | |
| tree | 6e9528c8624a1ffd06950b73f51591562bd708fc /lisp/buff-menu.el | |
| parent | f892cf9c9d14e5920ad5c8ce236bd660f18c0816 (diff) | |
| download | emacs-b653cee476923bfab4fcaa808aa8b870051de70f.tar.gz | |
(list-buffers-noselect): For Info buffers, use "(file)node" instead of the
file name.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index e9e7e9a2bb8..398b362d4e4 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -117,6 +117,7 @@ file buffers. It affects both manual reverting and reverting by 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 @@ For more information, see the function `buffer-menu'." ((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. |