diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-28 06:23:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-28 06:23:17 +0000 |
| commit | 70e808bd5e0f14bf1a0b8fb864e6eda67a25b195 (patch) | |
| tree | b811a57179cd628088090a1a3e8188307881e755 /lisp/buff-menu.el | |
| parent | 9d000842534301d2c2704d688dfff43a8274a5ff (diff) | |
| download | emacs-70e808bd5e0f14bf1a0b8fb864e6eda67a25b195.tar.gz | |
(buffer-menu): Undo previous change.
Instead, save the point value that list-buffers set up
and go back there after switching windows.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 7 |
1 files 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.")) |