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 | 8b8ff279c548ec1a3f167c66d91f1db79423ed6a (patch) | |
| tree | ce7e9e791a3ec01a2e8eeb2d948bc9aa3d5bbbbf /src/bytecode.c | |
| parent | 302377bcb40470c14975b98b649b1f21633558f7 (diff) | |
| download | emacs-8b8ff279c548ec1a3f167c66d91f1db79423ed6a.tar.gz | |
(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; } |