aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorStefan Monnier2014-04-16 10:00:39 -0400
committerStefan Monnier2014-04-16 10:00:39 -0400
commit63032a0eb9b9c9a8d5f4cae700b83d0dd1e699ce (patch)
treefe5f54d82d291b707f19c0c7471f529d28ca27d6 /src
parentae5a4398c1751b5d95b4b002f9930dca1b1f1311 (diff)
downloademacs-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/ChangeLog13
-rw-r--r--src/w32term.c2
-rw-r--r--src/window.c7
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 @@
12014-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
12014-04-16 Eli Zaretskii <eliz@gnu.org> 82014-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;
55static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command; 55static Lisp_Object Qscroll_up, Qscroll_down, Qscroll_command;
56static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of; 56static Lisp_Object Qsafe, Qabove, Qbelow, Qwindow_size, Qclone_of;
57static Lisp_Object Qfloor, Qceiling; 57static Lisp_Object Qfloor, Qceiling;
58static Lisp_Object Qwindow_point_insertion_type;
58 59
59static int displayed_window_lines (struct window *); 60static int displayed_window_lines (struct window *);
60static int count_windows (struct window *); 61static 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. */
125static Lisp_Object Qwindow_configuration_change_hook; 126static 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. */
128static int window_scroll_pixel_based_preserve_x; 129static int window_scroll_pixel_based_preserve_x;
129static int window_scroll_pixel_based_preserve_y; 130static 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,