Commit 3b841abc authored by Richard M. Stallman's avatar Richard M. Stallman

(Bsave_current_buffer): New macro.

(Fbyte_code): Handle Bsave_current_buffer.
parent c4de97b4
......@@ -130,7 +130,8 @@ Lisp_Object Qbytecode;
#define Bmult 0137
#define Bpoint 0140
#define Bmark 0141 /* no longer generated as of v18 */
/* Was Bmark in v17. */
#define Bsave_current_buffer 0141
#define Bgoto_char 0142
#define Binsert 0143
#define Bpoint_max 0144
......@@ -537,6 +538,10 @@ If the third argument is incorrect, Emacs may crash.")
record_unwind_protect (save_excursion_restore, save_excursion_save ());
break;
case Bsave_current_buffer:
record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
break;
case Bsave_window_excursion:
TOP = Fsave_window_excursion (TOP);
break;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment