diff options
| author | Richard M. Stallman | 1994-07-12 07:31:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-12 07:31:35 +0000 |
| commit | 95b9ce23a17f7caa2ac647a6ad2961bbfcceeae0 (patch) | |
| tree | c40ea057e916b16e6388a303e127a05925f23af0 | |
| parent | 8eeac2cebd36cc1df63121530acf6c862787cd0e (diff) | |
| download | emacs-95b9ce23a17f7caa2ac647a6ad2961bbfcceeae0.tar.gz emacs-95b9ce23a17f7caa2ac647a6ad2961bbfcceeae0.zip | |
(buffer-menu): Call pop-to-buffer before
list-buffers. Don't move point afterwards.
| -rw-r--r-- | lisp/buff-menu.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index db6da4427d8..24cea7a4db2 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -163,9 +163,10 @@ Type q immediately to make the buffer menu go away and to restore | |||
| 163 | previous window configuration." | 163 | previous window configuration." |
| 164 | (interactive "P") | 164 | (interactive "P") |
| 165 | ;;; (setq Buffer-menu-window-config (current-window-configuration)) | 165 | ;;; (setq Buffer-menu-window-config (current-window-configuration)) |
| 166 | (list-buffers arg) | 166 | ;; This order seems to let list-buffers set the value of point |
| 167 | ;; regardless of whether we are using the same buffer or another. | ||
| 167 | (pop-to-buffer "*Buffer List*") | 168 | (pop-to-buffer "*Buffer List*") |
| 168 | (forward-line 2) | 169 | (list-buffers arg) |
| 169 | (message | 170 | (message |
| 170 | "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help.")) | 171 | "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help.")) |
| 171 | 172 | ||