From fb656a872fd2e261c2c80a102e6729e3db6b00cc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 Sep 1996 04:37:40 +0000 Subject: (Fsave_current_buffer): New function. (syms_of_editfns): defsubr it. --- src/editfns.c | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/src/editfns.c b/src/editfns.c index ee126f06e16..dcef4bce269 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -335,7 +335,22 @@ The state of activation of the mark is also restored.") int count = specpdl_ptr - specpdl; record_unwind_protect (save_excursion_restore, save_excursion_save ()); - + + val = Fprogn (args); + return unbind_to (count, val); +} + +DEFUN ("save-current-buffer", Fsave_current_buffer, Ssave_current_buffer, 0, UNEVALLED, 0, + "Save the current buffer; execute BODY; restore the current buffer.\n\ +Executes BODY just like `progn'.") + (args) + Lisp_Object args; +{ + register Lisp_Object val; + int count = specpdl_ptr - specpdl; + + record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); + val = Fprogn (args); return unbind_to (count, val); } @@ -2515,6 +2530,7 @@ functions if all the text being accessed has this property."); /* defsubr (&Smark); */ /* defsubr (&Sset_mark); */ defsubr (&Ssave_excursion); + defsubr (&Ssave_current_buffer); defsubr (&Sbufsize); defsubr (&Spoint_max); -- cgit v1.2.1