diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-10-29 19:32:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-10-29 19:32:27 +0000 |
| commit | 5c125a1338ede831ed5597cf70c561bb770c904c (patch) | |
| tree | 7ff5a79255bd4a5497ca1c9e917b7ca67a1edb3a /src/bytecode.c | |
| parent | c390e28c877a06ff8165b7e7d8d15b2edadc1729 (diff) | |
| download | emacs-5c125a1338ede831ed5597cf70c561bb770c904c.tar.gz emacs-5c125a1338ede831ed5597cf70c561bb770c904c.tar.bz2 emacs-5c125a1338ede831ed5597cf70c561bb770c904c.zip | |
(Fbyte_code): Use internal_lisp_condition_case.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index e5a3e7b2a7c..e23d835cf10 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -861,11 +861,11 @@ If the third argument is incorrect, Emacs may crash. */) case Bcondition_case: { - Lisp_Object v1; - v1 = POP; - v1 = Fcons (POP, v1); + Lisp_Object handlers, body; + handlers = POP; + body = POP; BEFORE_POTENTIAL_GC (); - TOP = Fcondition_case (Fcons (TOP, v1)); + TOP = internal_lisp_condition_case (TOP, body, handlers); AFTER_POTENTIAL_GC (); break; } |