summaryrefslogtreecommitdiff
path: root/src/bytecode.c
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-09-23 04:27:27 +0000
committerRichard M. Stallman <rms@gnu.org>1996-09-23 04:27:27 +0000
commitf2790f5fd02bbdfcd9b7bdf8b744af5252741f80 (patch)
tree329816b2ec008108aacdf1c25c400226ac246395 /src/bytecode.c
parent247cefb186f4c848c8787709622f6a1f5c813650 (diff)
downloademacs-f2790f5fd02bbdfcd9b7bdf8b744af5252741f80.tar.gz
(Bsave_current_buffer): New macro.
(Fbyte_code): Handle Bsave_current_buffer.
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c7
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;