From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 1 May 2003 00:22:31 +0000 (+0000)
Subject: (Fbyte_code) <unwind-protect>: Use Fprogn rather than 0 and Qnil.
X-Git-Tag: ttn-vms-21-2-B4~10369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba3fb0639413fdbaa3a4a13f70e05581c1d858ad;p=emacs.git

(Fbyte_code) <unwind-protect>: Use Fprogn rather than 0 and Qnil.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 1ee5ae39557..98acc336db7 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -877,9 +877,8 @@ If the third argument is incorrect, Emacs may crash.  */)
 	case Bunwind_protect:
 	  /* The function record_unwind_protect can GC.  */
 	  BEFORE_POTENTIAL_GC ();
-	  record_unwind_protect (0, POP);
+	  record_unwind_protect (Fprogn, POP);
 	  AFTER_POTENTIAL_GC ();
-	  (specpdl_ptr - 1)->symbol = Qnil;
 	  break;
 
 	case Bcondition_case: