X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fbytecode.c;h=09e490877f451d7df5cf49afa76a738cd476ce58;hp=b6a79b9aa1acc1d20c1f5aa69a6bc4057b140b2a;hb=f3ec20f455f3f1212d2c5ee4cadc984330da9c38;hpb=5625b2eceaf697f104b5f883ffa73dca6e8fc005

diff --git a/src/bytecode.c b/src/bytecode.c
index b6a79b9..09e4908 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -529,7 +529,11 @@ funcall_compiled_function (Lisp_Object fun, int nargs, Lisp_Object args[])
 				 f->stack_depth,
 				 XVECTOR_DATA (f->constants));
 
-    UNBIND_TO_GCPRO_VARIABLES_ONLY (speccount, value);
+    /* The attempt to optimize this by only unbinding variables failed
+       because using buffer-local variables as function parameters
+       leads to specpdl_ptr->func != 0 */
+    /* UNBIND_TO_GCPRO_VARIABLES_ONLY (speccount, value); */
+    UNBIND_TO_GCPRO (speccount, value);
     return value;
   }