aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMartin Rudalics2011-09-08 17:45:20 +0200
committerMartin Rudalics2011-09-08 17:45:20 +0200
commit9b1c252e294bed3aef0d2f2fc5d1fa9f72df9ee8 (patch)
tree3e88db6f59bf395c372426f6f2659a12ab084dd7 /lisp
parent567457e31a7a87292d39437281a3ab112b8b5abd (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/window.el3
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 @@
12011-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
12011-09-08 Leo Liu <sdl.web@gmail.com> 62011-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))))))