From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Sep 1996 04:27:27 +0000 (+0000)
Subject: (Bsave_current_buffer): New macro.
X-Git-Tag: emacs-20.1~3652
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b841abc54006a635da628cafb4974cf34e95bb1;p=emacs.git

(Bsave_current_buffer): New macro.
(Fbyte_code): Handle Bsave_current_buffer.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 646ada96aa1..ae290c27352 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -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;