# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866308139 0
# Node ID 045ae402e9271ec14e9db23ebcddfb6fe25df2e3
# Parent  909a0f9169b823e8ff96699191c49e434a801b8c
(Bread_char): Deleted.
(Bsave_current_buffer_1): New byte code.
(Fbyte_code): Delete handling Bread_char.
Handle Bsave_current_buffer_1 like Bsave_current_buffer.

diff -r 909a0f9169b8 -r 045ae402e927 src/bytecode.c
--- a/src/bytecode.c	Sat Jun 14 10:21:01 1997 +0000
+++ b/src/bytecode.c	Sat Jun 14 17:08:59 1997 +0000
@@ -148,6 +148,7 @@
 #define Bbobp 0157
 #define Bcurrent_buffer 0160
 #define Bset_buffer 0161
+#define Bsave_current_buffer_1 0162 /* Replacing Bsave_current_buffer.  */
 #define Bread_char 0162 /* No longer generated as of v19 */
 #define Bset_mark 0163 /* this loser is no longer generated as of v18 */
 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */
@@ -576,6 +577,7 @@
 	  break;
 
 	case Bsave_current_buffer:
+	case Bsave_current_buffer_1:
 	  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
 	  break;
 
@@ -958,11 +960,6 @@
 	  TOP = Fset_buffer (TOP);
 	  break;
 
-	case Bread_char:
-	  PUSH (Fread_char ());
-	  QUIT;
-	  break;
-
 	case Binteractive_p:
 	  PUSH (Finteractive_p ());
 	  break;