aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJuri Linkov2004-12-14 02:35:01 +0000
committerJuri Linkov2004-12-14 02:35:01 +0000
commita0e4e2757acd079e2392ed976312d6b082119448 (patch)
tree3e510d77568684b427db297868243c209c431f17 /lisp
parenta6a2fd5e30b51c7a03b3407fafa4c2f9d761fa6d (diff)
downloademacs-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/ChangeLog8
-rw-r--r--lisp/buff-menu.el9
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 @@
12004-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
12004-12-13 Juri Linkov <juri@jurta.org> 92004-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.
485The current window remains selected." 485The 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)