aboutsummaryrefslogtreecommitdiffstats
path: root/src/window.c
diff options
context:
space:
mode:
authorKenichi Handa2012-09-30 23:39:46 +0900
committerKenichi Handa2012-09-30 23:39:46 +0900
commitc194970e15b6d6efa07697679a25dfab3aa76442 (patch)
tree49aec8be9d2dcc74ad3c81f562e48308d8e27b75 /src/window.c
parent95402d5faa114a311cabfb8c64cf22a93787a066 (diff)
parentdd946752ab8810149a66a3eff469eb128709972d (diff)
downloademacs-c194970e15b6d6efa07697679a25dfab3aa76442.tar.gz
emacs-c194970e15b6d6efa07697679a25dfab3aa76442.zip
merge trunk
Diffstat (limited to 'src/window.c')
-rw-r--r--src/window.c54
1 files changed, 27 insertions, 27 deletions
diff --git a/src/window.c b/src/window.c
index 6798be8231c..bb3b73f9acd 100644
--- a/src/window.c
+++ b/src/window.c
@@ -60,7 +60,7 @@ static Lisp_Object Qwindow_deletable_p, Qdelete_window, Qdisplay_buffer;
60static Lisp_Object Qreplace_buffer_in_windows, Qget_mru_window; 60static Lisp_Object Qreplace_buffer_in_windows, Qget_mru_window;
61static Lisp_Object Qwindow_resize_root_window, Qwindow_resize_root_window_vertically; 61static Lisp_Object Qwindow_resize_root_window, Qwindow_resize_root_window_vertically;
62static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; 62static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command;
63static Lisp_Object Qsafe, Qabove, Qbelow, Qtemp_buffer_resize, Qclone_of; 63static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of;
64 64
65static int displayed_window_lines (struct window *); 65static int displayed_window_lines (struct window *);
66static int count_windows (struct window *); 66static int count_windows (struct window *);
@@ -2819,7 +2819,7 @@ window-start value is reasonable when this function is called. */)
2819 } 2819 }
2820 } 2820 }
2821 2821
2822 BLOCK_INPUT; 2822 block_input ();
2823 if (!FRAME_INITIAL_P (f)) 2823 if (!FRAME_INITIAL_P (f))
2824 { 2824 {
2825 Mouse_HLInfo *hlinfo = MOUSE_HL_INFO (f); 2825 Mouse_HLInfo *hlinfo = MOUSE_HL_INFO (f);
@@ -2961,7 +2961,7 @@ window-start value is reasonable when this function is called. */)
2961 } 2961 }
2962 2962
2963 adjust_glyphs (f); 2963 adjust_glyphs (f);
2964 UNBLOCK_INPUT; 2964 unblock_input ();
2965 2965
2966 run_window_configuration_change_hook (f); 2966 run_window_configuration_change_hook (f);
2967 2967
@@ -3696,14 +3696,14 @@ be applied on the Elisp level. */)
3696 (horflag ? r->total_cols : r->total_lines))) 3696 (horflag ? r->total_cols : r->total_lines)))
3697 return Qnil; 3697 return Qnil;
3698 3698
3699 BLOCK_INPUT; 3699 block_input ();
3700 window_resize_apply (r, horflag); 3700 window_resize_apply (r, horflag);
3701 3701
3702 windows_or_buffers_changed++; 3702 windows_or_buffers_changed++;
3703 FRAME_WINDOW_SIZES_CHANGED (f) = 1; 3703 FRAME_WINDOW_SIZES_CHANGED (f) = 1;
3704 3704
3705 adjust_glyphs (f); 3705 adjust_glyphs (f);
3706 UNBLOCK_INPUT; 3706 unblock_input ();
3707 3707
3708 run_window_configuration_change_hook (f); 3708 run_window_configuration_change_hook (f);
3709 3709
@@ -3973,13 +3973,13 @@ set correctly. See the code of `split-window' for how this is done. */)
3973 wset_new_total (n, total_size); 3973 wset_new_total (n, total_size);
3974 wset_new_normal (n, normal_size); 3974 wset_new_normal (n, normal_size);
3975 3975
3976 BLOCK_INPUT; 3976 block_input ();
3977 window_resize_apply (p, horflag); 3977 window_resize_apply (p, horflag);
3978 adjust_glyphs (f); 3978 adjust_glyphs (f);
3979 /* Set buffer of NEW to buffer of reference window. Don't run 3979 /* Set buffer of NEW to buffer of reference window. Don't run
3980 any hooks. */ 3980 any hooks. */
3981 set_window_buffer (new, r->buffer, 0, 1); 3981 set_window_buffer (new, r->buffer, 0, 1);
3982 UNBLOCK_INPUT; 3982 unblock_input ();
3983 3983
3984 /* Maybe we should run the scroll functions in Elisp (which already 3984 /* Maybe we should run the scroll functions in Elisp (which already
3985 runs the configuration change hook). */ 3985 runs the configuration change hook). */
@@ -4060,7 +4060,7 @@ Signal an error when WINDOW is the only window on its frame. */)
4060 { 4060 {
4061 4061
4062 /* Block input. */ 4062 /* Block input. */
4063 BLOCK_INPUT; 4063 block_input ();
4064 window_resize_apply (p, horflag); 4064 window_resize_apply (p, horflag);
4065 4065
4066 /* If this window is referred to by the dpyinfo's mouse 4066 /* If this window is referred to by the dpyinfo's mouse
@@ -4132,7 +4132,7 @@ Signal an error when WINDOW is the only window on its frame. */)
4132 else 4132 else
4133 fset_selected_window (f, new_selected_window); 4133 fset_selected_window (f, new_selected_window);
4134 4134
4135 UNBLOCK_INPUT; 4135 unblock_input ();
4136 4136
4137 /* Now look whether `get-mru-window' gets us something. */ 4137 /* Now look whether `get-mru-window' gets us something. */
4138 mru_window = call1 (Qget_mru_window, frame); 4138 mru_window = call1 (Qget_mru_window, frame);
@@ -4147,7 +4147,7 @@ Signal an error when WINDOW is the only window on its frame. */)
4147 fset_selected_window (f, new_selected_window); 4147 fset_selected_window (f, new_selected_window);
4148 } 4148 }
4149 else 4149 else
4150 UNBLOCK_INPUT; 4150 unblock_input ();
4151 4151
4152 /* Must be run by the caller: 4152 /* Must be run by the caller:
4153 run_window_configuration_change_hook (f); */ 4153 run_window_configuration_change_hook (f); */
@@ -4197,7 +4197,7 @@ grow_mini_window (struct window *w, int delta)
4197 root, make_number (- delta)); 4197 root, make_number (- delta));
4198 if (INTEGERP (value) && window_resize_check (r, 0)) 4198 if (INTEGERP (value) && window_resize_check (r, 0))
4199 { 4199 {
4200 BLOCK_INPUT; 4200 block_input ();
4201 window_resize_apply (r, 0); 4201 window_resize_apply (r, 0);
4202 4202
4203 /* Grow the mini-window. */ 4203 /* Grow the mini-window. */
@@ -4209,7 +4209,7 @@ grow_mini_window (struct window *w, int delta)
4209 w->last_overlay_modified = 0; 4209 w->last_overlay_modified = 0;
4210 4210
4211 adjust_glyphs (f); 4211 adjust_glyphs (f);
4212 UNBLOCK_INPUT; 4212 unblock_input ();
4213 } 4213 }
4214} 4214}
4215 4215
@@ -4234,7 +4234,7 @@ shrink_mini_window (struct window *w)
4234 root, make_number (size - 1)); 4234 root, make_number (size - 1));
4235 if (INTEGERP (value) && window_resize_check (r, 0)) 4235 if (INTEGERP (value) && window_resize_check (r, 0))
4236 { 4236 {
4237 BLOCK_INPUT; 4237 block_input ();
4238 window_resize_apply (r, 0); 4238 window_resize_apply (r, 0);
4239 4239
4240 /* Shrink the mini-window. */ 4240 /* Shrink the mini-window. */
@@ -4246,7 +4246,7 @@ shrink_mini_window (struct window *w)
4246 w->last_overlay_modified = 0; 4246 w->last_overlay_modified = 0;
4247 4247
4248 adjust_glyphs (f); 4248 adjust_glyphs (f);
4249 UNBLOCK_INPUT; 4249 unblock_input ();
4250 } 4250 }
4251 /* If the above failed for whatever strange reason we must make a 4251 /* If the above failed for whatever strange reason we must make a
4252 one window frame here. The same routine will be needed when 4252 one window frame here. The same routine will be needed when
@@ -4278,7 +4278,7 @@ DEFUN ("resize-mini-window-internal", Fresize_mini_window_internal, Sresize_mini
4278 && XINT (w->new_total) > 0 4278 && XINT (w->new_total) > 0
4279 && height == XINT (r->new_total) + XINT (w->new_total)) 4279 && height == XINT (r->new_total) + XINT (w->new_total))
4280 { 4280 {
4281 BLOCK_INPUT; 4281 block_input ();
4282 window_resize_apply (r, 0); 4282 window_resize_apply (r, 0);
4283 4283
4284 wset_total_lines (w, w->new_total); 4284 wset_total_lines (w, w->new_total);
@@ -4288,7 +4288,7 @@ DEFUN ("resize-mini-window-internal", Fresize_mini_window_internal, Sresize_mini
4288 windows_or_buffers_changed++; 4288 windows_or_buffers_changed++;
4289 FRAME_WINDOW_SIZES_CHANGED (f) = 1; 4289 FRAME_WINDOW_SIZES_CHANGED (f) = 1;
4290 adjust_glyphs (f); 4290 adjust_glyphs (f);
4291 UNBLOCK_INPUT; 4291 unblock_input ();
4292 4292
4293 run_window_configuration_change_hook (f); 4293 run_window_configuration_change_hook (f);
4294 return Qt; 4294 return Qt;
@@ -5624,7 +5624,7 @@ the return value is nil. Otherwise the value is t. */)
5624 5624
5625 /* The mouse highlighting code could get screwed up 5625 /* The mouse highlighting code could get screwed up
5626 if it runs during this. */ 5626 if it runs during this. */
5627 BLOCK_INPUT; 5627 block_input ();
5628 5628
5629 if (data->frame_lines != previous_frame_lines 5629 if (data->frame_lines != previous_frame_lines
5630 || data->frame_cols != previous_frame_cols) 5630 || data->frame_cols != previous_frame_cols)
@@ -5875,7 +5875,7 @@ the return value is nil. Otherwise the value is t. */)
5875 } 5875 }
5876 5876
5877 adjust_glyphs (f); 5877 adjust_glyphs (f);
5878 UNBLOCK_INPUT; 5878 unblock_input ();
5879 5879
5880 /* Scan dead buffer windows. */ 5880 /* Scan dead buffer windows. */
5881 for (; CONSP (dead_windows); dead_windows = XCDR (dead_windows)) 5881 for (; CONSP (dead_windows); dead_windows = XCDR (dead_windows))
@@ -6704,7 +6704,7 @@ syms_of_window (void)
6704 DEFSYM (Qreplace_buffer_in_windows, "replace-buffer-in-windows"); 6704 DEFSYM (Qreplace_buffer_in_windows, "replace-buffer-in-windows");
6705 DEFSYM (Qrecord_window_buffer, "record-window-buffer"); 6705 DEFSYM (Qrecord_window_buffer, "record-window-buffer");
6706 DEFSYM (Qget_mru_window, "get-mru-window"); 6706 DEFSYM (Qget_mru_window, "get-mru-window");
6707 DEFSYM (Qtemp_buffer_resize, "temp-buffer-resize"); 6707 DEFSYM (Qwindow_size, "window-size");
6708 DEFSYM (Qtemp_buffer_show_hook, "temp-buffer-show-hook"); 6708 DEFSYM (Qtemp_buffer_show_hook, "temp-buffer-show-hook");
6709 DEFSYM (Qabove, "above"); 6709 DEFSYM (Qabove, "above");
6710 DEFSYM (Qbelow, "below"); 6710 DEFSYM (Qbelow, "below");
@@ -6804,19 +6804,19 @@ This variable takes no effect if `window-combination-limit' is non-nil. */);
6804The following values are recognized: 6804The following values are recognized:
6805 6805
6806nil means splitting a window will create a new parent window only if the 6806nil means splitting a window will create a new parent window only if the
6807 window has no parent window or the window shall become a combination 6807 window has no parent window or the window shall become part of a
6808 orthogonal to the one it is part of. 6808 combination orthogonal to the one it is part of.
6809 6809
6810`temp-buffer-resize' means that splitting a window for displaying a 6810`window-size' means that splitting a window for displaying a buffer
6811 temporary buffer makes a new parent window provided 6811 makes a new parent window provided `display-buffer' is supposed to
6812 `temp-buffer-resize-mode' is enabled. Otherwise, this value is 6812 explicitly set the window's size due to the presence of a
6813 handled like nil. 6813 `window-height' or `window-width' entry in the alist used by
6814 `display-buffer'. Otherwise, this value is handled like nil.
6814 6815
6815`temp-buffer' means that splitting a window for displaying a temporary 6816`temp-buffer' means that splitting a window for displaying a temporary
6816 buffer always makes a new parent window. Otherwise, this value is 6817 buffer always makes a new parent window. Otherwise, this value is
6817 handled like nil. 6818 handled like nil.
6818 6819
6819
6820`display-buffer' means that splitting a window for displaying a buffer 6820`display-buffer' means that splitting a window for displaying a buffer
6821 always makes a new parent window. Since temporary buffers are 6821 always makes a new parent window. Since temporary buffers are
6822 displayed by the function `display-buffer', this value is stronger 6822 displayed by the function `display-buffer', this value is stronger
@@ -6829,7 +6829,7 @@ t means that splitting a window always creates a new parent window. If
6829 sibling. 6829 sibling.
6830 6830
6831Other values are reserved for future use. */); 6831Other values are reserved for future use. */);
6832 Vwindow_combination_limit = Qtemp_buffer_resize; 6832 Vwindow_combination_limit = Qwindow_size;
6833 6833
6834 DEFVAR_LISP ("window-persistent-parameters", Vwindow_persistent_parameters, 6834 DEFVAR_LISP ("window-persistent-parameters", Vwindow_persistent_parameters,
6835 doc: /* Alist of persistent window parameters. 6835 doc: /* Alist of persistent window parameters.