Explicitly free restriction data that are not needed anymore.

* editfns.c (save_restriction_restore): Free restriction data.

diff --git a/src/ChangeLog b/src/ChangeLog
index eb74f4589424c8b91f2dcc41a7351868f2f57140..3b85ef30795cf4132971657c4d644feb33bd6409 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-26  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       Explicitly free restriction data that are not needed anymore.
+       * editfns.c (save_restriction_restore): Free restriction data.
+
 2012-07-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * eval.c (Fautoload_do_load): Rename from do_autoload, export to Lisp,

diff --git a/src/editfns.c b/src/editfns.c
index 9cfd0449daa40f9251ce19b03ff810683cfcd0f9..f174594dd977ef2f5f3057a26378a7996d55cd2c 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3379,6 +3379,10 @@ save_restriction_restore (Lisp_Object data)
 
          buf->clip_changed = 1; /* Remember that the narrowing changed. */
        }
+      /* These aren't needed anymore, so don't wait for GC.  */
+      free_marker (XCAR (data));
+      free_marker (XCDR (data));
+      free_cons (XCONS (data));
     }
   else
     /* A buffer, which means that there was no old restriction.  */