mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

(Fsave_current_buffer): New function.

Browse source 
(syms_of_editfns): defsubr it.
This commit is contained in:
Richard M. Stallman 1996-09-23 04:37:40 +00:00
parent 111e5992df
commit 4bc8c7d2f4
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/editfns.c
View file

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