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 | |
| 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')
| -rw-r--r-- | src/ChangeLog | 13 | ||||
| -rw-r--r-- | src/w32term.c | 2 | ||||
| -rw-r--r-- | src/window.c | 7 |
3 files changed, 16 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 1899edae349..84760abd019 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2014-04-16 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * window.c (save_window_save): Lookup window_point_insertion_type in | ||
| 4 | the right buffer (bug#15457). | ||
| 5 | (Qwindow_point_insertion_type): New var. | ||
| 6 | (syms_of_window): Initialize it. | ||
| 7 | |||
| 1 | 2014-04-16 Eli Zaretskii <eliz@gnu.org> | 8 | 2014-04-16 Eli Zaretskii <eliz@gnu.org> |
| 2 | 9 | ||
| 3 | * unexcoff.c [MSDOS]: Include libc/atexit.h. | 10 | * unexcoff.c [MSDOS]: Include libc/atexit.h. |
| @@ -26,8 +33,8 @@ | |||
| 26 | 33 | ||
| 27 | * msdos.c (check_window_system): Remove unnecessary an | 34 | * msdos.c (check_window_system): Remove unnecessary an |
| 28 | incompatible duplicate function. | 35 | incompatible duplicate function. |
| 29 | (sys_opendir, readlinkat, faccessat, fstatat, unsetenv): New | 36 | (sys_opendir, readlinkat, faccessat, fstatat, unsetenv): |
| 30 | functions in support of new functionality. | 37 | New functions in support of new functionality. |
| 31 | 38 | ||
| 32 | * menu.c (single_menu_item): Add visual indication of submenu | 39 | * menu.c (single_menu_item): Add visual indication of submenu |
| 33 | also for menus on MSDOS frames. | 40 | also for menus on MSDOS frames. |
| @@ -211,7 +218,7 @@ | |||
| 211 | (adjust_after_replace): | 218 | (adjust_after_replace): |
| 212 | (replace_range): Pass value for new record_markers arg to | 219 | (replace_range): Pass value for new record_markers arg to |
| 213 | delete_record. | 220 | delete_record. |
| 214 | * undo.c (record_marker_adjustment): Renamed to | 221 | * undo.c (record_marker_adjustment): Rename to |
| 215 | record_marker_adjustments and made static. | 222 | record_marker_adjustments and made static. |
| 216 | (record_delete): Check record_markers arg and call | 223 | (record_delete): Check record_markers arg and call |
| 217 | record_marker_adjustments. | 224 | record_marker_adjustments. |
diff --git a/src/w32term.c b/src/w32term.c index 2fe73a3eb48..f914b5f8625 100644 --- a/src/w32term.c +++ b/src/w32term.c | |||
| @@ -4726,7 +4726,7 @@ w32_read_socket (struct terminal *terminal, | |||
| 4726 | here since Windows sends a WM_MOVE message | 4726 | here since Windows sends a WM_MOVE message |
| 4727 | BEFORE telling us the Window is minimized | 4727 | BEFORE telling us the Window is minimized |
| 4728 | when the Window is iconified, with 3000,3000 | 4728 | when the Window is iconified, with 3000,3000 |
| 4729 | as the co-ords. */ | 4729 | as the co-ords. */ |
| 4730 | x_real_positions (f, &f->left_pos, &f->top_pos); | 4730 | x_real_positions (f, &f->left_pos, &f->top_pos); |
| 4731 | 4731 | ||
| 4732 | inev.kind = DEICONIFY_EVENT; | 4732 | inev.kind = DEICONIFY_EVENT; |
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, |