From: Martin Rudalics <rudalics@gmx.at>
Date: Thu, 4 Nov 2010 15:48:16 +0000 (+0100)
Subject: Use buffer display specifiers in buff-menu.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c8285719aa844cf8bbb3f9a44723b9201762271;p=emacs.git

Use buffer display specifiers in buff-menu.el
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de7933d4478..be489c74df7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -25,6 +25,9 @@
 	(compilation-goto-locus): Use adjust-height specifier in
 	display-buffer calls.
 
+	* buff-menu.el (Buffer-menu-switch-other-window)
+	(Buffer-menu-2-window): Use buffer display specifiers.
+
 2010-11-02  Martin Rudalics  <rudalics@gmx.at>
 
 	* window.el (display-buffer-names): Describe `not-this-window' and
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index e0f00d3553d..cf793a14854 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -579,22 +579,16 @@ in the selected frame."
   "Make the other window select this line's buffer.
 The current window remains selected."
   (interactive)
-  (let ((pop-up-windows t)
-	same-window-buffer-names
-	same-window-regexps)
-    (display-buffer (Buffer-menu-buffer t))))
+  (display-buffer (Buffer-menu-buffer t) 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)
-	same-window-buffer-names
-	same-window-regexps)
+	(menu (current-buffer)))
     (delete-other-windows)
-    (switch-to-buffer (other-buffer))
-    (pop-to-buffer buff)
+    (display-buffer-same-window (other-buffer))
+    (pop-to-buffer buff t)
     (bury-buffer menu)))
 
 (defun Buffer-menu-toggle-read-only ()