From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Oct 2005 19:32:27 +0000 (+0000)
Subject: (Fbyte_code): Use internal_lisp_condition_case.
X-Git-Tag: emacs-pretest-22.0.90~6213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c125a1338ede831ed5597cf70c561bb770c904c;p=emacs.git

(Fbyte_code): Use internal_lisp_condition_case.
---

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;
 	  }