aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c20
1 files changed, 2 insertions, 18 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index c5cc6590121..8d3817e64c6 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -186,6 +186,7 @@ DEFINE (Bfollowing_char, 0147) \
186DEFINE (Bpreceding_char, 0150) \ 186DEFINE (Bpreceding_char, 0150) \
187DEFINE (Bcurrent_column, 0151) \ 187DEFINE (Bcurrent_column, 0151) \
188DEFINE (Bindent_to, 0152) \ 188DEFINE (Bindent_to, 0152) \
189/* 0153 was Bscan_buffer in v17. */ \
189DEFINE (Beolp, 0154) \ 190DEFINE (Beolp, 0154) \
190DEFINE (Beobp, 0155) \ 191DEFINE (Beobp, 0155) \
191DEFINE (Bbolp, 0156) \ 192DEFINE (Bbolp, 0156) \
@@ -193,6 +194,7 @@ DEFINE (Bbobp, 0157) \
193DEFINE (Bcurrent_buffer, 0160) \ 194DEFINE (Bcurrent_buffer, 0160) \
194DEFINE (Bset_buffer, 0161) \ 195DEFINE (Bset_buffer, 0161) \
195DEFINE (Bsave_current_buffer_1, 0162) /* Replacing Bsave_current_buffer. */ \ 196DEFINE (Bsave_current_buffer_1, 0162) /* Replacing Bsave_current_buffer. */ \
197/* 0163 was Bset_mark in v17. */ \
196DEFINE (Binteractive_p, 0164) /* Obsolete since Emacs-24.1. */ \ 198DEFINE (Binteractive_p, 0164) /* Obsolete since Emacs-24.1. */ \
197 \ 199 \
198DEFINE (Bforward_char, 0165) \ 200DEFINE (Bforward_char, 0165) \
@@ -277,11 +279,6 @@ enum byte_code_op
277#define DEFINE(name, value) name = value, 279#define DEFINE(name, value) name = value,
278 BYTE_CODES 280 BYTE_CODES
279#undef DEFINE 281#undef DEFINE
280
281#if BYTE_CODE_SAFE
282 Bscan_buffer = 0153, /* No longer generated as of v18. */
283 Bset_mark = 0163, /* this loser is no longer generated as of v18 */
284#endif
285}; 282};
286 283
287/* Fetch the next byte from the bytecode stream. */ 284/* Fetch the next byte from the bytecode stream. */
@@ -1467,19 +1464,6 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
1467 TOP = INTEGERP (TOP) ? Qt : Qnil; 1464 TOP = INTEGERP (TOP) ? Qt : Qnil;
1468 NEXT; 1465 NEXT;
1469 1466
1470#if BYTE_CODE_SAFE
1471 /* These are intentionally written using 'case' syntax,
1472 because they are incompatible with the threaded
1473 interpreter. */
1474
1475 case Bset_mark:
1476 error ("set-mark is an obsolete bytecode");
1477 break;
1478 case Bscan_buffer:
1479 error ("scan-buffer is an obsolete bytecode");
1480 break;
1481#endif
1482
1483 CASE_ABORT: 1467 CASE_ABORT:
1484 /* Actually this is Bstack_ref with offset 0, but we use Bdup 1468 /* Actually this is Bstack_ref with offset 0, but we use Bdup
1485 for that instead. */ 1469 for that instead. */