aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorMartin Rudalics2011-09-08 17:45:20 +0200
committerMartin Rudalics2011-09-08 17:45:20 +0200
commit9b1c252e294bed3aef0d2f2fc5d1fa9f72df9ee8 (patch)
tree3e88db6f59bf395c372426f6f2659a12ab084dd7 /src
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 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/window.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index a4c985b1a0c..bc3cbaa1282 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
12011-09-08 Martin Rudalics <rudalics@gmx.at>
2
3 * window.c (Fset_window_prev_buffers, Fset_window_next_buffers):
4 Operate on live windows only.
5
12011-09-08 Juanma Barranquero <lekktu@gmail.com> 62011-09-08 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * emacs.c (my_heap_start): #ifdef to avoid warnings when unused. 8 * emacs.c (my_heap_start): #ifdef to avoid warnings when unused.
diff --git a/src/window.c b/src/window.c
index e3850387a64..0473ed4e3eb 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1682,7 +1682,7 @@ PREV-BUFFERS should be either nil or a list of <buffer, window-start,
1682window-point> triples where buffer was previously shown in WINDOW. */) 1682window-point> triples where buffer was previously shown in WINDOW. */)
1683 (Lisp_Object window, Lisp_Object prev_buffers) 1683 (Lisp_Object window, Lisp_Object prev_buffers)
1684{ 1684{
1685 return decode_any_window (window)->prev_buffers = prev_buffers; 1685 return decode_window (window)->prev_buffers = prev_buffers;
1686} 1686}
1687 1687
1688DEFUN ("window-next-buffers", Fwindow_next_buffers, Swindow_next_buffers, 1688DEFUN ("window-next-buffers", Fwindow_next_buffers, Swindow_next_buffers,
@@ -1704,7 +1704,7 @@ NEXT-BUFFERS should be either nil or a list of buffers that have been
1704recently re-shown in WINDOW. */) 1704recently re-shown in WINDOW. */)
1705 (Lisp_Object window, Lisp_Object next_buffers) 1705 (Lisp_Object window, Lisp_Object next_buffers)
1706{ 1706{
1707 return decode_any_window (window)->next_buffers = next_buffers; 1707 return decode_window (window)->next_buffers = next_buffers;
1708} 1708}
1709 1709
1710DEFUN ("window-parameters", Fwindow_parameters, Swindow_parameters, 1710DEFUN ("window-parameters", Fwindow_parameters, Swindow_parameters,