*** empty log message ***

1 files changed, 1 insertions, 6 deletions

diff --git a/src/callint.c b/src/callint.c
index 88c16721116..aeb6ef38720 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -179,12 +179,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 
  retry:
 
-  for (fun = function;
-       XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound);
-       fun = XSYMBOL (fun)->function)
-    {
-      QUIT;
-    }
+  fun = indirect_function (function);
 
   specs = Qnil;
   string = 0;