diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:27:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:27:27 +0000 |
| commit | f2790f5fd02bbdfcd9b7bdf8b744af5252741f80 (patch) | |
| tree | 329816b2ec008108aacdf1c25c400226ac246395 | |
| parent | 247cefb186f4c848c8787709622f6a1f5c813650 (diff) | |
| download | emacs-f2790f5fd02bbdfcd9b7bdf8b744af5252741f80.tar.gz | |
(Bsave_current_buffer): New macro.
(Fbyte_code): Handle Bsave_current_buffer.
| -rw-r--r-- | src/bytecode.c | 7 |
1 files changed, 6 insertions, 1 deletions
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; |