diff options
| author | Martin Rudalics | 2011-09-08 17:45:20 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2011-09-08 17:45:20 +0200 |
| commit | 9b1c252e294bed3aef0d2f2fc5d1fa9f72df9ee8 (patch) | |
| tree | 3e88db6f59bf395c372426f6f2659a12ab084dd7 /lisp | |
| parent | 567457e31a7a87292d39437281a3ab112b8b5abd (diff) | |
| download | emacs-9b1c252e294bed3aef0d2f2fc5d1fa9f72df9ee8.tar.gz emacs-9b1c252e294bed3aef0d2f2fc5d1fa9f72df9ee8.zip | |
Don't have previous and next buffers deal with internal windows.
* window.c (Fset_window_prev_buffers, Fset_window_next_buffers):
Operate on live windows only.
* window.el (window-deletable-p): Make sure window is live before
invoking window-prev-buffers.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/window.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74aae97943d..c567b0f8c4d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-09-08 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * window.el (window-deletable-p): Make sure window is live before | ||
| 4 | invoking window-prev-buffers. | ||
| 5 | |||
| 1 | 2011-09-08 Leo Liu <sdl.web@gmail.com> | 6 | 2011-09-08 Leo Liu <sdl.web@gmail.com> |
| 2 | 7 | ||
| 3 | * net/rcirc.el (rcirc-cmd-invite): New rcirc command. (Bug#9453) | 8 | * net/rcirc.el (rcirc-cmd-invite): New rcirc command. (Bug#9453) |
diff --git a/lisp/window.el b/lisp/window.el index d771f9ffdcd..88675c08624 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -2305,7 +2305,8 @@ its buffer or has no previous buffer to show instead." | |||
| 2305 | (dedicated (and (window-buffer window) (window-dedicated-p window))) | 2305 | (dedicated (and (window-buffer window) (window-dedicated-p window))) |
| 2306 | ;; prev non-nil means there is another buffer we can show | 2306 | ;; prev non-nil means there is another buffer we can show |
| 2307 | ;; in WINDOW instead. | 2307 | ;; in WINDOW instead. |
| 2308 | (prev (and (window-prev-buffers window) | 2308 | (prev (and (window-live-p window) |
| 2309 | (window-prev-buffers window) | ||
| 2309 | (or (cdr (window-prev-buffers window)) | 2310 | (or (cdr (window-prev-buffers window)) |
| 2310 | (not (eq (caar (window-prev-buffers window)) | 2311 | (not (eq (caar (window-prev-buffers window)) |
| 2311 | buffer)))))) | 2312 | buffer)))))) |