diff options
| author | Miles Bader | 2006-08-16 14:08:49 +0000 |
|---|---|---|
| committer | Miles Bader | 2006-08-16 14:08:49 +0000 |
| commit | de20e0ccdb039a2ac27e5bbd3e06ab70c4e7bb65 (patch) | |
| tree | 80243ce02b52cbf7945c614bd213dd63142b861a /lisp/buff-menu.el | |
| parent | 7a5c2a42040b12b037940a067aee6ac6fde01680 (diff) | |
| parent | 5ebdc2990a95cc38b21f772eea4de3ceee149e54 (diff) | |
| download | emacs-de20e0ccdb039a2ac27e5bbd3e06ab70c4e7bb65.tar.gz emacs-de20e0ccdb039a2ac27e5bbd3e06ab70c4e7bb65.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 382-398)
- Update from CVS
- Update from erc--emacs--22
- Fix ERC bug introduced in last patch
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 123-125)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-101
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 | |||
| 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 | ||
| @@ -786,7 +787,12 @@ For more information, see the function `buffer-menu'." | |||
| 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. |