diff options
| author | Juri Linkov | 2004-12-14 02:35:01 +0000 |
|---|---|---|
| committer | Juri Linkov | 2004-12-14 02:35:01 +0000 |
| commit | a0e4e2757acd079e2392ed976312d6b082119448 (patch) | |
| tree | 3e510d77568684b427db297868243c209c431f17 /lisp | |
| parent | a6a2fd5e30b51c7a03b3407fafa4c2f9d761fa6d (diff) | |
| download | emacs-a0e4e2757acd079e2392ed976312d6b082119448.tar.gz emacs-a0e4e2757acd079e2392ed976312d6b082119448.zip | |
(Buffer-menu-switch-other-window): Bind pop-up-windows to t.
(Buffer-menu-switch-other-window, Buffer-menu-2-window):
Bind same-window-buffer-names and same-window-regexps to nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/buff-menu.el | 9 |
2 files changed, 15 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 905c8b4e549..b9412582379 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2004-12-14 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * buff-menu.el (list-buffers-noselect): Collect internal info | ||
| 4 | for every buffer in BUFFER-LIST arg too. | ||
| 5 | (Buffer-menu-switch-other-window): Bind pop-up-windows to t. | ||
| 6 | (Buffer-menu-switch-other-window, Buffer-menu-2-window): | ||
| 7 | Bind same-window-buffer-names and same-window-regexps to nil. | ||
| 8 | |||
| 1 | 2004-12-13 Juri Linkov <juri@jurta.org> | 9 | 2004-12-13 Juri Linkov <juri@jurta.org> |
| 2 | 10 | ||
| 3 | * simple.el (next-error-buffer-p, next-error-find-buffer): | 11 | * simple.el (next-error-buffer-p, next-error-find-buffer): |
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 7beaf15fc22..1c3fa704041 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -484,14 +484,19 @@ in the selected frame." | |||
| 484 | "Make the other window select this line's buffer. | 484 | "Make the other window select this line's buffer. |
| 485 | The current window remains selected." | 485 | The current window remains selected." |
| 486 | (interactive) | 486 | (interactive) |
| 487 | (display-buffer (Buffer-menu-buffer t))) | 487 | (let ((pop-up-windows t) |
| 488 | same-window-buffer-names | ||
| 489 | same-window-regexps) | ||
| 490 | (display-buffer (Buffer-menu-buffer t)))) | ||
| 488 | 491 | ||
| 489 | (defun Buffer-menu-2-window () | 492 | (defun Buffer-menu-2-window () |
| 490 | "Select this line's buffer, with previous buffer in second window." | 493 | "Select this line's buffer, with previous buffer in second window." |
| 491 | (interactive) | 494 | (interactive) |
| 492 | (let ((buff (Buffer-menu-buffer t)) | 495 | (let ((buff (Buffer-menu-buffer t)) |
| 493 | (menu (current-buffer)) | 496 | (menu (current-buffer)) |
| 494 | (pop-up-windows t)) | 497 | (pop-up-windows t) |
| 498 | same-window-buffer-names | ||
| 499 | same-window-regexps) | ||
| 495 | (delete-other-windows) | 500 | (delete-other-windows) |
| 496 | (switch-to-buffer (other-buffer)) | 501 | (switch-to-buffer (other-buffer)) |
| 497 | (pop-to-buffer buff) | 502 | (pop-to-buffer buff) |