merge upstream

[gnu-emacs] / src / fileio.c

diff --git a/src/fileio.c b/src/fileio.c
index a751a73ae5044c858b6c082464f0c0e50873f607..0e6113f349d3d5a3682a2dea4a22b6ed74b0a6e8 100644 (file)
--- 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));
 }
 
 \f