comparison src/editfns.c @ 20696:cdbe4824e7f1

(Fsave_current_buffer): Use set_buffer_if_live.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Jan 1998 21:40:51 +0000
parents 16c458803c32
children d43ba5d91281
comparison
equal deleted inserted replaced
20695:c67b70bc40d9 20696:cdbe4824e7f1
400 Lisp_Object args; 400 Lisp_Object args;
401 { 401 {
402 register Lisp_Object val; 402 register Lisp_Object val;
403 int count = specpdl_ptr - specpdl; 403 int count = specpdl_ptr - specpdl;
404 404
405 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); 405 record_unwind_protect (set_buffer_if_live, Fcurrent_buffer ());
406 406
407 val = Fprogn (args); 407 val = Fprogn (args);
408 return unbind_to (count, val); 408 return unbind_to (count, val);
409 } 409 }
410 410