Mercurial > emacs
comparison lisp/buff-menu.el @ 58955:58f1100f0a9e
(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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 14 Dec 2004 02:33:36 +0000 |
| parents | bb8424d9ff97 |
| children | 49971daa80c5 fb79180b618d |
comparison
equal
deleted
inserted
replaced
| 58954:bb8424d9ff97 | 58955:58f1100f0a9e |
|---|---|
| 482 | 482 |
| 483 (defun Buffer-menu-switch-other-window () | 483 (defun Buffer-menu-switch-other-window () |
| 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) |
| 498 (bury-buffer menu))) | 503 (bury-buffer menu))) |
| 499 | 504 |