diff src/callint.c @ 380:8626e4521993 r21-2-5

Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children 74fd4e045ea6
line wrap: on
line diff
--- a/src/callint.c	Mon Aug 13 11:06:08 2007 +0200
+++ b/src/callint.c	Mon Aug 13 11:07:10 2007 +0200
@@ -294,10 +294,10 @@
     }
   else if (COMPILED_FUNCTIONP (fun))
     {
-      struct Lisp_Compiled_Function *b = XCOMPILED_FUNCTION (fun);
-      if (!(b->flags.interactivep))
+      Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
+      if (! f->flags.interactivep)
         goto lose;
-      specs = compiled_function_interactive (b);
+      specs = compiled_function_interactive (f);
     }
   else if (!CONSP (fun))
     goto lose;
@@ -405,7 +405,7 @@
     {
       Lisp_Object domain = Qnil;
       if (COMPILED_FUNCTIONP (fun))
-	domain = Fcompiled_function_domain (fun);
+	domain = compiled_function_domain (XCOMPILED_FUNCTION (fun));
       if (NILP (domain))
 	specs = Fgettext (specs);
       else
@@ -525,7 +525,7 @@
 	struct gcpro gcpro1;
 
 	GCPRO1 (fun);
-	fun = funcall_recording_as (function, 1, &fun);
+	fun = Ffuncall (1, &fun);
 	UNGCPRO;
       }
       if (set_zmacs_region_stays)