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 /src | |
| 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 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/window.c | 4 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-09-08 Juanma Barranquero <lekktu@gmail.com> | 6 | 2011-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, | |||
| 1682 | window-point> triples where buffer was previously shown in WINDOW. */) | 1682 | window-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 | ||
| 1688 | DEFUN ("window-next-buffers", Fwindow_next_buffers, Swindow_next_buffers, | 1688 | DEFUN ("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 | |||
| 1704 | recently re-shown in WINDOW. */) | 1704 | recently 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 | ||
| 1710 | DEFUN ("window-parameters", Fwindow_parameters, Swindow_parameters, | 1710 | DEFUN ("window-parameters", Fwindow_parameters, Swindow_parameters, |