diff options
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/window.el b/lisp/window.el index f79041e0e6c..cb7368fc7ff 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -2600,11 +2600,16 @@ shall not be switched to in future invocations of this command." | |||
| 2600 | (not (setq killed-buffers | 2600 | (not (setq killed-buffers |
| 2601 | (cons new-buffer killed-buffers)))) | 2601 | (cons new-buffer killed-buffers)))) |
| 2602 | (not (eq new-buffer old-buffer)) | 2602 | (not (eq new-buffer old-buffer)) |
| 2603 | (or bury-or-kill | 2603 | (or bury-or-kill |
| 2604 | (not (memq new-buffer next-buffers)))) | 2604 | (not (memq new-buffer next-buffers)))) |
| 2605 | (set-window-buffer-start-and-point | 2605 | ;; _DO_ show visible buffers as advertized in Elisp manual 28.14 |
| 2606 | window new-buffer (nth 1 entry) (nth 2 entry)) | 2606 | ;; on `switch-to-prev-buffer' & `switch-to-next-buffer' |
| 2607 | (throw 'found t))) | 2607 | ;;(if (get-buffer-window new-buffer) |
| 2608 | ;; ;; Try to avoid showing a buffer visible in some other window. | ||
| 2609 | ;; (setq visible new-buffer) | ||
| 2610 | (set-window-buffer-start-and-point | ||
| 2611 | window new-buffer (nth 1 entry) (nth 2 entry)) | ||
| 2612 | (throw 'found t))) | ||
| 2608 | ;; Scan reverted buffer list of WINDOW's frame next, skipping | 2613 | ;; Scan reverted buffer list of WINDOW's frame next, skipping |
| 2609 | ;; entries of next buffers. Note that when we bury or kill a | 2614 | ;; entries of next buffers. Note that when we bury or kill a |
| 2610 | ;; buffer we don't reverse the global buffer list to avoid showing | 2615 | ;; buffer we don't reverse the global buffer list to avoid showing |