# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885418851 0
# Node ID cdbe4824e7f17e7d6e0663a985d7a40ad3bdbfd1
# Parent  c67b70bc40d9abe6ed6ca549f902bcb3ffb75356
(Fsave_current_buffer): Use set_buffer_if_live.

diff -r c67b70bc40d9 -r cdbe4824e7f1 src/editfns.c
--- a/src/editfns.c	Wed Jan 21 21:39:02 1998 +0000
+++ b/src/editfns.c	Wed Jan 21 21:40:51 1998 +0000
@@ -402,7 +402,7 @@
   register Lisp_Object val;
   int count = specpdl_ptr - specpdl;
 
-  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
+  record_unwind_protect (set_buffer_if_live, Fcurrent_buffer ());
 
   val = Fprogn (args);
   return unbind_to (count, val);