(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.

1 files changed, 2 insertions, 5 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index 38a1d3a0d5..4b909a1b3d 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -148,6 +148,7 @@ Lisp_Object Qbytecode;
 #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 @@ If the third argument is incorrect, Emacs may crash.")
 	  break;
 
 	case Bsave_current_buffer:
+	case Bsave_current_buffer_1:
 	  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
 	  break;
 
@@ -958,11 +960,6 @@ If the third argument is incorrect, Emacs may crash.")
 	  TOP = Fset_buffer (TOP);
 	  break;
 
-	case Bread_char:
-	  PUSH (Fread_char ());
-	  QUIT;
-	  break;
-
 	case Binteractive_p:
 	  PUSH (Finteractive_p ());
 	  break;