Mercurial > emacs
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 |