Explicitly free restriction data that are not needed anymore.

* editfns.c (save_restriction_restore): Free restriction data.
This commit is contained in:
Dmitry Antipov 2012-07-26 09:23:25 +04:00
parent 670d85ea14
commit 3628596ac2
2 changed files with 9 additions and 0 deletions

View file

@ -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,

View file

@ -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. */