From: Dmitry Antipov Date: Tue, 3 Sep 2013 14:40:09 +0000 (+0400) Subject: * buffer.c (drop_overlay): X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1686^2~6 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc923770d292650f38458a220343929b9973ba90;p=emacs.git * 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). --- diff --git a/src/ChangeLog b/src/ChangeLog index b2a200e3147..e0aa1ed577f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2013-09-03 Dmitry Antipov + + * 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 * buffer.c (Fmake_overlay, Fmove_overlay): diff --git a/src/buffer.c b/src/buffer.c index c811890aefe..0bcb608dbd3 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -888,8 +888,8 @@ drop_overlay (struct buffer *b, struct Lisp_Overlay *ov) eassert (b == XBUFFER (Fmarker_buffer (ov->start))); modify_overlay (b, marker_position (ov->start), marker_position (ov->end)); - Fset_marker (ov->start, Qnil, Qnil); - Fset_marker (ov->end, Qnil, Qnil); + unchain_marker (XMARKER (ov->start)); + unchain_marker (XMARKER (ov->end)); } diff --git a/src/fileio.c b/src/fileio.c index a751a73ae50..0e6113f349d 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -233,7 +233,7 @@ void restore_point_unwind (Lisp_Object location) { Fgoto_char (location); - Fset_marker (location, Qnil, Qnil); + unchain_marker (XMARKER (location)); }