Commit bc923770 authored by Dmitry Antipov's avatar Dmitry Antipov
Browse files

* buffer.c (drop_overlay):

* fileio.c (restore_point_unwind): Prefer unchain_marker to
Fset_marker (X, Qnil, ...) (which is the same but a bit slower).
parent b1cf96de
2013-09-03 Dmitry Antipov <dmantipov@yandex.ru>
* buffer.c (drop_overlay):
* fileio.c (restore_point_unwind): Prefer unchain_marker to
Fset_marker (X, Qnil, ...) (which is the same but a bit slower).
2013-09-03 Dmitry Antipov <dmantipov@yandex.ru> 2013-09-03 Dmitry Antipov <dmantipov@yandex.ru>
* buffer.c (Fmake_overlay, Fmove_overlay): * buffer.c (Fmake_overlay, Fmove_overlay):
......
...@@ -888,8 +888,8 @@ drop_overlay (struct buffer *b, struct Lisp_Overlay *ov) ...@@ -888,8 +888,8 @@ drop_overlay (struct buffer *b, struct Lisp_Overlay *ov)
eassert (b == XBUFFER (Fmarker_buffer (ov->start))); eassert (b == XBUFFER (Fmarker_buffer (ov->start)));
modify_overlay (b, marker_position (ov->start), modify_overlay (b, marker_position (ov->start),
marker_position (ov->end)); marker_position (ov->end));
Fset_marker (ov->start, Qnil, Qnil); unchain_marker (XMARKER (ov->start));
Fset_marker (ov->end, Qnil, Qnil); unchain_marker (XMARKER (ov->end));
} }
......
...@@ -233,7 +233,7 @@ void ...@@ -233,7 +233,7 @@ void
restore_point_unwind (Lisp_Object location) restore_point_unwind (Lisp_Object location)
{ {
Fgoto_char (location); Fgoto_char (location);
Fset_marker (location, Qnil, Qnil); unchain_marker (XMARKER (location));
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment