From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Sep 1996 04:37:40 +0000 (+0000)
Subject: (Fsave_current_buffer): New function.
X-Git-Tag: emacs-20.1~3646
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4bc8c7d2f4cbf39578265d672b215961f052d167;p=emacs.git

(Fsave_current_buffer): New function.
(syms_of_editfns): defsubr it.
---

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);