diff options
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 33 |
1 files changed, 11 insertions, 22 deletions
diff --git a/src/window.c b/src/window.c index 2177a1d3966..b508988953f 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Window creation, deletion and examination for GNU Emacs. | 1 | /* Window creation, deletion and examination for GNU Emacs. |
| 2 | Does not include redisplay. | 2 | Does not include redisplay. |
| 3 | Copyright (C) 1985-1987, 1993-1998, 2000-2014 Free Software | 3 | Copyright (C) 1985-1987, 1993-1998, 2000-2015 Free Software |
| 4 | Foundation, Inc. | 4 | Foundation, Inc. |
| 5 | 5 | ||
| 6 | This file is part of GNU Emacs. | 6 | This file is part of GNU Emacs. |
| @@ -45,20 +45,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 45 | #include "msdos.h" | 45 | #include "msdos.h" |
| 46 | #endif | 46 | #endif |
| 47 | 47 | ||
| 48 | Lisp_Object Qwindowp, Qwindow_live_p; | ||
| 49 | static Lisp_Object Qwindow_valid_p; | ||
| 50 | static Lisp_Object Qwindow_configuration_p; | ||
| 51 | static Lisp_Object Qrecord_window_buffer; | ||
| 52 | static Lisp_Object Qwindow_deletable_p, Qdelete_window, Qdisplay_buffer; | ||
| 53 | static Lisp_Object Qreplace_buffer_in_windows, Qget_mru_window; | ||
| 54 | static Lisp_Object Qwindow_resize_root_window, Qwindow_resize_root_window_vertically; | ||
| 55 | static Lisp_Object Qwindow_sanitize_window_sizes; | ||
| 56 | static Lisp_Object Qwindow_pixel_to_total; | ||
| 57 | static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; | ||
| 58 | static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of; | ||
| 59 | static Lisp_Object Qfloor, Qceiling; | ||
| 60 | static Lisp_Object Qwindow_point_insertion_type; | ||
| 61 | |||
| 62 | static int displayed_window_lines (struct window *); | 48 | static int displayed_window_lines (struct window *); |
| 63 | static int count_windows (struct window *); | 49 | static int count_windows (struct window *); |
| 64 | static int get_leaf_windows (struct window *, struct window **, int); | 50 | static int get_leaf_windows (struct window *, struct window **, int); |
| @@ -115,15 +101,9 @@ Lisp_Object minibuf_window; | |||
| 115 | shown as the selected window when the minibuffer is selected. */ | 101 | shown as the selected window when the minibuffer is selected. */ |
| 116 | Lisp_Object minibuf_selected_window; | 102 | Lisp_Object minibuf_selected_window; |
| 117 | 103 | ||
| 118 | /* Hook run at end of temp_output_buffer_show. */ | ||
| 119 | static Lisp_Object Qtemp_buffer_show_hook; | ||
| 120 | |||
| 121 | /* Incremented for each window created. */ | 104 | /* Incremented for each window created. */ |
| 122 | static int sequence_number; | 105 | static int sequence_number; |
| 123 | 106 | ||
| 124 | /* Hook to run when window config changes. */ | ||
| 125 | static Lisp_Object Qwindow_configuration_change_hook; | ||
| 126 | |||
| 127 | /* Used by the function window_scroll_pixel_based. */ | 107 | /* Used by the function window_scroll_pixel_based. */ |
| 128 | static int window_scroll_pixel_based_preserve_x; | 108 | static int window_scroll_pixel_based_preserve_x; |
| 129 | static int window_scroll_pixel_based_preserve_y; | 109 | static int window_scroll_pixel_based_preserve_y; |
| @@ -3014,6 +2994,14 @@ resize_root_window (Lisp_Object window, Lisp_Object delta, Lisp_Object horizonta | |||
| 3014 | return call5 (Qwindow_resize_root_window, window, delta, horizontal, ignore, pixelwise); | 2994 | return call5 (Qwindow_resize_root_window, window, delta, horizontal, ignore, pixelwise); |
| 3015 | } | 2995 | } |
| 3016 | 2996 | ||
| 2997 | /* Placeholder used by temacs -nw before window.el is loaded. */ | ||
| 2998 | DEFUN ("window--sanitize-window-sizes", Fwindow__sanitize_window_sizes, | ||
| 2999 | Swindow__sanitize_window_sizes, 2, 2, 0, | ||
| 3000 | doc: /* */) | ||
| 3001 | (Lisp_Object frame, Lisp_Object horizontal) | ||
| 3002 | { | ||
| 3003 | return Qnil; | ||
| 3004 | } | ||
| 3017 | 3005 | ||
| 3018 | Lisp_Object | 3006 | Lisp_Object |
| 3019 | sanitize_window_sizes (Lisp_Object frame, Lisp_Object horizontal) | 3007 | sanitize_window_sizes (Lisp_Object frame, Lisp_Object horizontal) |
| @@ -3645,7 +3633,7 @@ temp_output_buffer_show (register Lisp_Object buf) | |||
| 3645 | record_unwind_protect (select_window_norecord, prev_window); | 3633 | record_unwind_protect (select_window_norecord, prev_window); |
| 3646 | Fselect_window (window, Qt); | 3634 | Fselect_window (window, Qt); |
| 3647 | Fset_buffer (w->contents); | 3635 | Fset_buffer (w->contents); |
| 3648 | Frun_hooks (1, &Qtemp_buffer_show_hook); | 3636 | run_hook (Qtemp_buffer_show_hook); |
| 3649 | unbind_to (count, Qnil); | 3637 | unbind_to (count, Qnil); |
| 3650 | } | 3638 | } |
| 3651 | } | 3639 | } |
| @@ -7563,6 +7551,7 @@ displayed after a scrolling operation to be somewhat inaccurate. */); | |||
| 7563 | defsubr (&Sset_window_display_table); | 7551 | defsubr (&Sset_window_display_table); |
| 7564 | defsubr (&Snext_window); | 7552 | defsubr (&Snext_window); |
| 7565 | defsubr (&Sprevious_window); | 7553 | defsubr (&Sprevious_window); |
| 7554 | defsubr (&Swindow__sanitize_window_sizes); | ||
| 7566 | defsubr (&Sget_buffer_window); | 7555 | defsubr (&Sget_buffer_window); |
| 7567 | defsubr (&Sdelete_other_windows_internal); | 7556 | defsubr (&Sdelete_other_windows_internal); |
| 7568 | defsubr (&Sdelete_window_internal); | 7557 | defsubr (&Sdelete_window_internal); |