mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

* src/window.c (save_window_save): Obey window-point-insertion-type.

Browse Source 
* lisp/window.el (window--state-get-1): Idem.
This commit is contained in:
Stefan Monnier 2012-04-10 22:36:04 -04:00
parent 050cc68b40
commit de8c03dc51
4 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2012-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
* window.el (window--state-get-1): Obey window-point-insertion-type.
2012-04-11 Lennart Borgman <lennart.borgman@gmail.com>
* emacs-lisp/lisp.el (narrow-to-defun): `beginning-of-defun' goes

6
lisp/window.el
View File

@ -3643,7 +3643,11 @@ specific buffers."
(scroll-bars . ,(window-scroll-bars window))
(vscroll . ,(window-vscroll window))
(dedicated . ,(window-dedicated-p window))
(point . ,(if writable point (copy-marker point)))
(point . ,(if writable point
(copy-marker point
(buffer-local-value
'window-point-insertion-type
buffer))))
(start . ,(if writable start (copy-marker start)))))))))
(tail
(when (memq type '(vc hc))

4
src/ChangeLog
View File

@ -1,3 +1,7 @@
2012-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
* window.c (save_window_save): Obey window-point-insertion-type.
2012-04-11 Glenn Morris <rgm@gnu.org>
* Makefile.in (GNUSTEP_CFLAGS): Rename from C_SWITCH_X_SYSTEM.

2
src/window.c
View File

@ -5945,6 +5945,8 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i)
}
else
p->pointm = Fcopy_marker (w->pointm, Qnil);
XMARKER (p->pointm)->insertion_type
= !NILP (Vwindow_point_insertion_type);
p->start = Fcopy_marker (w->start, Qnil);
p->start_at_line_beg = w->start_at_line_beg;