mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(Buffer-menu-switch-other-window): Bind pop-up-windows to t.

Browse Source 
(Buffer-menu-switch-other-window, Buffer-menu-2-window):
Bind same-window-buffer-names and same-window-regexps to nil.
This commit is contained in:
Juri Linkov 2004-12-14 02:35:01 +00:00
parent a6a2fd5e30
commit a0e4e2757a
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2004-12-14 Juri Linkov <juri@jurta.org>
* buff-menu.el (list-buffers-noselect): Collect internal info
for every buffer in BUFFER-LIST arg too.
(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.
2004-12-13 Juri Linkov <juri@jurta.org>
* simple.el (next-error-buffer-p, next-error-find-buffer):

9
lisp/buff-menu.el
View File

@ -484,14 +484,19 @@ in the selected frame."
"Make the other window select this line's buffer.
The current window remains selected."
(interactive)
(display-buffer (Buffer-menu-buffer t)))
(let ((pop-up-windows t)
same-window-buffer-names
same-window-regexps)
(display-buffer (Buffer-menu-buffer t))))
(defun Buffer-menu-2-window ()
"Select this line's buffer, with previous buffer in second window."
(interactive)
(let ((buff (Buffer-menu-buffer t))
(menu (current-buffer))
(pop-up-windows t))
(pop-up-windows t)
same-window-buffer-names
same-window-regexps)
(delete-other-windows)
(switch-to-buffer (other-buffer))
(pop-to-buffer buff)