diff options
| author | Mattias EngdegÄrd | 2020-01-05 21:55:20 +0100 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2020-01-05 23:30:05 +0100 |
| commit | 35d569482567acffc992e1c8113ea1eb713dde52 (patch) | |
| tree | af2b29148c52430e2a49181c700aed4e869b5b79 | |
| parent | b47a0d6d5404541fde271e9466dfe19514a5643c (diff) | |
| download | emacs-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.el | 5 | ||||
| -rw-r--r-- | src/bytecode.c | 8 |
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) \ | |||
| 220 | DEFINE (Bsave_excursion, 0212) \ | 220 | DEFINE (Bsave_excursion, 0212) \ |
| 221 | DEFINE (Bsave_window_excursion, 0213) /* Obsolete since Emacs-24.1. */ \ | 221 | DEFINE (Bsave_window_excursion, 0213) /* Obsolete since Emacs-24.1. */ \ |
| 222 | DEFINE (Bsave_restriction, 0214) \ | 222 | DEFINE (Bsave_restriction, 0214) \ |
| 223 | DEFINE (Bcatch, 0215) \ | 223 | DEFINE (Bcatch, 0215) /* Obsolete since Emacs-25. */ \ |
| 224 | \ | 224 | \ |
| 225 | DEFINE (Bunwind_protect, 0216) \ | 225 | DEFINE (Bunwind_protect, 0216) \ |
| 226 | DEFINE (Bcondition_case, 0217) \ | 226 | DEFINE (Bcondition_case, 0217) /* Obsolete since Emacs-25. */ \ |
| 227 | DEFINE (Btemp_output_buffer_setup, 0220) /* Obsolete since Emacs-24.1. */ \ | 227 | DEFINE (Btemp_output_buffer_setup, 0220) /* Obsolete since Emacs-24.1. */ \ |
| 228 | DEFINE (Btemp_output_buffer_show, 0221) /* Obsolete since Emacs-24.1. */ \ | 228 | DEFINE (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); |