# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843452847 0
# Node ID 86408ea93da6617a99d8885d621778f8cd1a60db
# Parent  d62ef382bb0386dd68673e1c28dab5dcfd238855
(Bsave_current_buffer): New macro.
(Fbyte_code): Handle Bsave_current_buffer.

diff -r d62ef382bb03 -r 86408ea93da6 src/bytecode.c
--- a/src/bytecode.c	Sun Sep 22 22:56:31 1996 +0000
+++ b/src/bytecode.c	Mon Sep 23 04:27:27 1996 +0000
@@ -130,7 +130,8 @@
 #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 @@
 	  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;