diff src/callint.c @ 648:70b112526394

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 18 May 1992 08:14:41 +0000
parents 7286b5bbeee4
children a8d94735277e
line wrap: on
line diff
--- a/src/callint.c	Mon May 18 08:13:37 1992 +0000
+++ b/src/callint.c	Mon May 18 08:14:41 1992 +0000
@@ -179,12 +179,7 @@
 
  retry:
 
-  for (fun = function;
-       XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound);
-       fun = XSYMBOL (fun)->function)
-    {
-      QUIT;
-    }
+  fun = indirect_function (function);
 
   specs = Qnil;
   string = 0;