diff options
| author | Kenichi Handa | 2012-09-30 23:39:46 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2012-09-30 23:39:46 +0900 |
| commit | c194970e15b6d6efa07697679a25dfab3aa76442 (patch) | |
| tree | 49aec8be9d2dcc74ad3c81f562e48308d8e27b75 /src/window.c | |
| parent | 95402d5faa114a311cabfb8c64cf22a93787a066 (diff) | |
| parent | dd946752ab8810149a66a3eff469eb128709972d (diff) | |
| download | emacs-c194970e15b6d6efa07697679a25dfab3aa76442.tar.gz emacs-c194970e15b6d6efa07697679a25dfab3aa76442.zip | |
merge trunk
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 54 |
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; | |||
| 60 | static Lisp_Object Qreplace_buffer_in_windows, Qget_mru_window; | 60 | static Lisp_Object Qreplace_buffer_in_windows, Qget_mru_window; |
| 61 | static Lisp_Object Qwindow_resize_root_window, Qwindow_resize_root_window_vertically; | 61 | static Lisp_Object Qwindow_resize_root_window, Qwindow_resize_root_window_vertically; |
| 62 | static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; | 62 | static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; |
| 63 | static Lisp_Object Qsafe, Qabove, Qbelow, Qtemp_buffer_resize, Qclone_of; | 63 | static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of; |
| 64 | 64 | ||
| 65 | static int displayed_window_lines (struct window *); | 65 | static int displayed_window_lines (struct window *); |
| 66 | static int count_windows (struct window *); | 66 | static 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. */); | |||
| 6804 | The following values are recognized: | 6804 | The following values are recognized: |
| 6805 | 6805 | ||
| 6806 | nil means splitting a window will create a new parent window only if the | 6806 | nil 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 | ||
| 6831 | Other values are reserved for future use. */); | 6831 | Other 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. |