From: Dmitry Antipov <dmantipov@yandex.ru>
Date: Thu, 26 Jul 2012 05:23:25 +0000 (+0400)
Subject: Explicitly free restriction data that are not needed anymore.
X-Git-Tag: emacs-24.2.90~1076
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3628596ac2be344eb034e22e579a0690571fa8a9;p=emacs.git

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 eb74f458942..3b85ef30795 100644
--- 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 9cfd0449daa..f174594dd97 100644
--- 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.  */