Mercurial > emacs
changeset 8365:2d49d0dc9fc3
(buffer-menu): Undo previous change.
Instead, save the point value that list-buffers set up
and go back there after switching windows.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Jul 1994 06:23:17 +0000 |
| parents | f40f688148d1 |
| children | 3be9c6b57956 |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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."))