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 | 3b841abc54006a635da628cafb4974cf34e95bb1 (patch) | |
| tree | c4e7dc79b272dfde286e8f7cd801b66855509a3d /src/bytecode.c | |
| parent | c4de97b454093c0a9321973b27a7461c9fa751b3 (diff) | |
| download | emacs-3b841abc54006a635da628cafb4974cf34e95bb1.tar.gz | |
(Bsave_current_buffer): New macro.
(Fbyte_code): Handle Bsave_current_buffer.
Diffstat (limited to 'src/bytecode.c')
| -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; |