diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-06-07 18:53:27 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-06-07 19:11:49 -0700 |
| commit | a0aa1d4ecc123d652285ef10ea62ed55c6c118d6 (patch) | |
| tree | c56177683a5a552e17eb8ce7ed27256507361b60 /src/bytecode.c | |
| parent | a0641286f6e58f4dca4221caa6dd559bfacea699 (diff) | |
| download | emacs-a0aa1d4ecc123d652285ef10ea62ed55c6c118d6.tar.gz emacs-a0aa1d4ecc123d652285ef10ea62ed55c6c118d6.tar.bz2 emacs-a0aa1d4ecc123d652285ef10ea62ed55c6c118d6.zip | |
New function record_unwind_protect_excursion
This simplifies callers a bit, and will simplify future changes.
* src/eval.c (record_unwind_protect_excursion): New function.
* src/buffer.c (Fkill_buffer):
* src/bytecode.c (exec_byte_code):
* src/editfns.c (Fsave_excursion, Freplace_buffer_contents):
* src/lread.c (readevalloop, Feval_buffer):
* src/window.c (scroll_command):
Use it.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 55b193ffb2f..772cc982f9a 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -739,8 +739,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, NEXT; CASE (Bsave_excursion): - record_unwind_protect (save_excursion_restore, - save_excursion_save ()); + record_unwind_protect_excursion (); NEXT; CASE (Bsave_current_buffer): /* Obsolete since ??. */ |