diff options
| author | Stefan Monnier | 2014-04-16 10:00:39 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2014-04-16 10:00:39 -0400 |
| commit | 63032a0eb9b9c9a8d5f4cae700b83d0dd1e699ce (patch) | |
| tree | fe5f54d82d291b707f19c0c7471f529d28ca27d6 /src/window.c | |
| parent | ae5a4398c1751b5d95b4b002f9930dca1b1f1311 (diff) | |
| download | emacs-63032a0eb9b9c9a8d5f4cae700b83d0dd1e699ce.tar.gz emacs-63032a0eb9b9c9a8d5f4cae700b83d0dd1e699ce.zip | |
* src/window.c (save_window_save): Lookup window_point_insertion_type in
the right buffer.
(Qwindow_point_insertion_type): New var.
(syms_of_window): Initialize it.
Fixes: debbugs:15457
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/window.c b/src/window.c index f42219cae94..8e8252d3b76 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -55,6 +55,7 @@ static Lisp_Object Qwindow_pixel_to_total; | |||
| 55 | static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; | 55 | static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; |
| 56 | static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of; | 56 | static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of; |
| 57 | static Lisp_Object Qfloor, Qceiling; | 57 | static Lisp_Object Qfloor, Qceiling; |
| 58 | static Lisp_Object Qwindow_point_insertion_type; | ||
| 58 | 59 | ||
| 59 | static int displayed_window_lines (struct window *); | 60 | static int displayed_window_lines (struct window *); |
| 60 | static int count_windows (struct window *); | 61 | static int count_windows (struct window *); |
| @@ -124,7 +125,7 @@ static int window_initialized; | |||
| 124 | /* Hook to run when window config changes. */ | 125 | /* Hook to run when window config changes. */ |
| 125 | static Lisp_Object Qwindow_configuration_change_hook; | 126 | static Lisp_Object Qwindow_configuration_change_hook; |
| 126 | 127 | ||
| 127 | /* Used by the function window_scroll_pixel_based */ | 128 | /* Used by the function window_scroll_pixel_based. */ |
| 128 | static int window_scroll_pixel_based_preserve_x; | 129 | static int window_scroll_pixel_based_preserve_x; |
| 129 | static int window_scroll_pixel_based_preserve_y; | 130 | static int window_scroll_pixel_based_preserve_y; |
| 130 | 131 | ||
| @@ -6618,7 +6619,8 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i) | |||
| 6618 | else | 6619 | else |
| 6619 | p->pointm = Fcopy_marker (w->pointm, Qnil); | 6620 | p->pointm = Fcopy_marker (w->pointm, Qnil); |
| 6620 | XMARKER (p->pointm)->insertion_type | 6621 | XMARKER (p->pointm)->insertion_type |
| 6621 | = !NILP (Vwindow_point_insertion_type); | 6622 | = !NILP (buffer_local_value_1 /* Don't signal error if void. */ |
| 6623 | (Qwindow_point_insertion_type, w->contents)); | ||
| 6622 | 6624 | ||
| 6623 | p->start = Fcopy_marker (w->start, Qnil); | 6625 | p->start = Fcopy_marker (w->start, Qnil); |
| 6624 | p->start_at_line_beg = w->start_at_line_beg ? Qt : Qnil; | 6626 | p->start_at_line_beg = w->start_at_line_beg ? Qt : Qnil; |
| @@ -7235,6 +7237,7 @@ on their symbols to be controlled by this variable. */); | |||
| 7235 | DEFVAR_LISP ("window-point-insertion-type", Vwindow_point_insertion_type, | 7237 | DEFVAR_LISP ("window-point-insertion-type", Vwindow_point_insertion_type, |
| 7236 | doc: /* Type of marker to use for `window-point'. */); | 7238 | doc: /* Type of marker to use for `window-point'. */); |
| 7237 | Vwindow_point_insertion_type = Qnil; | 7239 | Vwindow_point_insertion_type = Qnil; |
| 7240 | DEFSYM (Qwindow_point_insertion_type, "window_point_insertion_type"); | ||
| 7238 | 7241 | ||
| 7239 | DEFVAR_LISP ("window-configuration-change-hook", | 7242 | DEFVAR_LISP ("window-configuration-change-hook", |
| 7240 | Vwindow_configuration_change_hook, | 7243 | Vwindow_configuration_change_hook, |