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 |