From 70e808bd5e0f14bf1a0b8fb864e6eda67a25b195 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 Jul 1994 06:23:17 +0000 Subject: [PATCH] (buffer-menu): Undo previous change. Instead, save the point value that list-buffers set up and go back there after switching windows. --- lisp/buff-menu.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 24cea7a4db2..cafd2c2e804 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -163,10 +163,11 @@ Type q immediately to make the buffer menu go away and to restore 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.")) -- 2.39.5