# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775376597 0
# Node ID 2d49d0dc9fc355729167f603d31501708f981d50
# Parent  f40f688148d1526a6b5f98042d345b10156389f5
(buffer-menu): Undo previous change.
Instead, save the point value that list-buffers set up
and go back there after switching windows.

diff -r f40f688148d1 -r 2d49d0dc9fc3 lisp/buff-menu.el
--- a/lisp/buff-menu.el	Wed Jul 27 22:44:21 1994 +0000
+++ b/lisp/buff-menu.el	Thu Jul 28 06:23:17 1994 +0000
@@ -163,10 +163,11 @@
 previous window configuration."
   (interactive "P")
 ;;;  (setq Buffer-menu-window-config (current-window-configuration))
-  ;; This order seems to let list-buffers set the value of point
-  ;; regardless of whether we are using the same buffer or another.
-  (pop-to-buffer "*Buffer List*")
   (list-buffers arg)
+  (let ((newpoint (save-excursion (set-buffer "*Buffer List*")
+				  (point))))
+    (pop-to-buffer "*Buffer List*")
+    (goto-char newpoint))
   (message
    "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."))