aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMattias EngdegÄrd2020-01-05 21:55:20 +0100
committerMattias EngdegÄrd2020-01-05 23:30:05 +0100
commit35d569482567acffc992e1c8113ea1eb713dde52 (patch)
treeaf2b29148c52430e2a49181c700aed4e869b5b79
parentb47a0d6d5404541fde271e9466dfe19514a5643c (diff)
downloademacs-35d569482567acffc992e1c8113ea1eb713dde52.tar.gz
emacs-35d569482567acffc992e1c8113ea1eb713dde52.zip
Mark 'catch' and 'condition-case' bytecodes as obsolete
They have not been generated by the byte-compiler since Emacs 25. * lisp/emacs-lisp/bytecomp.el (byte-catch, byte-condition-case): * src/bytecode.c (BYTE_CODES, exec_byte_code): Mark as obsolete (since Emacs 25; they were still generated in 24.4).
-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);