mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
(list-buffers-noselect): For Info buffers, use "(file)node" instead of the
file name.
This commit is contained in:
parent
f892cf9c9d
commit
b653cee476
1 changed files with 7 additions and 1 deletions
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Reference in a new issue