From 5c125a1338ede831ed5597cf70c561bb770c904c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Oct 2005 19:32:27 +0000 Subject: [PATCH] (Fbyte_code): Use internal_lisp_condition_case. --- src/bytecode.c | 8 ++++---- 1 file 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; } -- 2.39.5