aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/bytecomp.el5
-rw-r--r--src/bytecode.c8
2 files changed, 7 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index cdcc9380163..20c0fc32fa8 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -719,14 +719,15 @@ otherwise pop it")
719 "to make a binding to record entire window configuration") 719 "to make a binding to record entire window configuration")
720(byte-defop 140 0 byte-save-restriction 720(byte-defop 140 0 byte-save-restriction
721 "to make a binding to record the current buffer clipping restrictions") 721 "to make a binding to record the current buffer clipping restrictions")
722(byte-defop 141 -1 byte-catch 722(byte-defop 141 -1 byte-catch-OBSOLETE ; Not generated since Emacs 25.
723 "for catch. Takes, on stack, the tag and an expression for the body") 723 "for catch. Takes, on stack, the tag and an expression for the body")
724(byte-defop 142 -1 byte-unwind-protect 724(byte-defop 142 -1 byte-unwind-protect
725 "for unwind-protect. Takes, on stack, an expression for the unwind-action") 725 "for unwind-protect. Takes, on stack, an expression for the unwind-action")
726 726
727;; For condition-case. Takes, on stack, the variable to bind, 727;; For condition-case. Takes, on stack, the variable to bind,
728;; an expression for the body, and a list of clauses. 728;; an expression for the body, and a list of clauses.
729(byte-defop 143 -2 byte-condition-case) 729;; Not generated since Emacs 25.
730(byte-defop 143 -2 byte-condition-case-OBSOLETE)
730 731
731(byte-defop 144 0 byte-temp-output-buffer-setup-OBSOLETE) 732(byte-defop 144 0 byte-temp-output-buffer-setup-OBSOLETE)
732(byte-defop 145 -1 byte-temp-output-buffer-show-OBSOLETE) 733(byte-defop 145 -1 byte-temp-output-buffer-show-OBSOLETE)
diff --git a/src/bytecode.c b/src/bytecode.c
index 9e75c9012e0..4624379756d 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -220,10 +220,10 @@ DEFINE (Bdup, 0211) \
220DEFINE (Bsave_excursion, 0212) \ 220DEFINE (Bsave_excursion, 0212) \
221DEFINE (Bsave_window_excursion, 0213) /* Obsolete since Emacs-24.1. */ \ 221DEFINE (Bsave_window_excursion, 0213) /* Obsolete since Emacs-24.1. */ \
222DEFINE (Bsave_restriction, 0214) \ 222DEFINE (Bsave_restriction, 0214) \
223DEFINE (Bcatch, 0215) \ 223DEFINE (Bcatch, 0215) /* Obsolete since Emacs-25. */ \
224 \ 224 \
225DEFINE (Bunwind_protect, 0216) \ 225DEFINE (Bunwind_protect, 0216) \
226DEFINE (Bcondition_case, 0217) \ 226DEFINE (Bcondition_case, 0217) /* Obsolete since Emacs-25. */ \
227DEFINE (Btemp_output_buffer_setup, 0220) /* Obsolete since Emacs-24.1. */ \ 227DEFINE (Btemp_output_buffer_setup, 0220) /* Obsolete since Emacs-24.1. */ \
228DEFINE (Btemp_output_buffer_show, 0221) /* Obsolete since Emacs-24.1. */ \ 228DEFINE (Btemp_output_buffer_show, 0221) /* Obsolete since Emacs-24.1. */ \
229 \ 229 \
@@ -763,7 +763,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
763 save_restriction_save ()); 763 save_restriction_save ());
764 NEXT; 764 NEXT;
765 765
766 CASE (Bcatch): /* Obsolete since 24.4. */ 766 CASE (Bcatch): /* Obsolete since 25. */
767 { 767 {
768 Lisp_Object v1 = POP; 768 Lisp_Object v1 = POP;
769 TOP = internal_catch (TOP, eval_sub, v1); 769 TOP = internal_catch (TOP, eval_sub, v1);
@@ -807,7 +807,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
807 NEXT; 807 NEXT;
808 } 808 }
809 809
810 CASE (Bcondition_case): /* Obsolete since 24.4. */ 810 CASE (Bcondition_case): /* Obsolete since 25. */
811 { 811 {
812 Lisp_Object handlers = POP, body = POP; 812 Lisp_Object handlers = POP, body = POP;
813 TOP = internal_lisp_condition_case (TOP, body, handlers); 813 TOP = internal_lisp_condition_case (TOP, body, handlers);