diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-06-14 17:08:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-06-14 17:08:59 +0000 |
| commit | b3a3e15beee2167360e09c21bcf2c7ac81acfce3 (patch) | |
| tree | 52b4584df6bcb4bd5e3dddc171cf8efe503e5034 /src/bytecode.c | |
| parent | 0e1a02923b4fd76963904beb67e510de0388be25 (diff) | |
| download | emacs-b3a3e15beee2167360e09c21bcf2c7ac81acfce3.tar.gz | |
(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.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 38a1d3a0d5d..4b909a1b3dc 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; |