Mercurial > emacs
comparison lisp/buff-menu.el @ 72289:40a24db2adc4
(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 | a04fe4434fba |
| children | e3694f1cb928 7f3f771c85fa |
comparison
equal
deleted
inserted
replaced
| 72288:94e8cc9b752d | 72289:40a24db2adc4 |
|---|---|
| 115 This variable determines whether reverting the buffer lists only | 115 This variable determines whether reverting the buffer lists only |
| 116 file buffers. It affects both manual reverting and reverting by | 116 file buffers. It affects both manual reverting and reverting by |
| 117 Auto Revert Mode.") | 117 Auto Revert Mode.") |
| 118 | 118 |
| 119 (defvar Info-current-file) ;; from info.el | 119 (defvar Info-current-file) ;; from info.el |
| 120 (defvar Info-current-node) ;; from info.el | |
| 120 | 121 |
| 121 (make-variable-buffer-local 'Buffer-menu-files-only) | 122 (make-variable-buffer-local 'Buffer-menu-files-only) |
| 122 | 123 |
| 123 (if Buffer-menu-mode-map | 124 (if Buffer-menu-mode-map |
| 124 () | 125 () |
| 784 ((eq file 'history) | 785 ((eq file 'history) |
| 785 (setq file "*Info History*")) | 786 (setq file "*Info History*")) |
| 786 ((eq file 'toc) | 787 ((eq file 'toc) |
| 787 (setq file "*Info TOC*")) | 788 (setq file "*Info TOC*")) |
| 788 ((not (stringp file)) ;; avoid errors | 789 ((not (stringp file)) ;; avoid errors |
| 789 (setq file nil)))))) | 790 (setq file nil)) |
| 791 (t | |
| 792 (setq file (concat "(" | |
| 793 (file-name-nondirectory file) | |
| 794 ")" | |
| 795 Info-current-node))))))) | |
| 790 (push (list buffer bits name (buffer-size) mode file) | 796 (push (list buffer bits name (buffer-size) mode file) |
| 791 list)))))) | 797 list)))))) |
| 792 ;; Preserve the original buffer-list ordering, just in case. | 798 ;; Preserve the original buffer-list ordering, just in case. |
| 793 (setq list (nreverse list)) | 799 (setq list (nreverse list)) |
| 794 ;; Place the buffers's info in the output buffer, sorted if necessary. | 800 ;; Place the buffers's info in the output buffer, sorted if necessary. |