* lisp/emacs-lisp/nadvice.el (advice--interactive-form): Don't get fooled

into autoloading just because of a silly indirection.

lisp/ChangeLog

+2014-05-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/nadvice.el (advice--interactive-form): Don't get fooled
+	into autoloading just because of a silly indirection.
+
 2014-05-11  Santiago Payà i Miralta  <santiagopim@gmail.com>  (tiny change)
 	* vc/vc-hg.el (vc-hg-unregister): New function.  (Bug#17454)

lisp/emacs-lisp/nadvice.el

@@ -134,7 +134,7 @@ Each element has the form (WHERE BYTECODE STACK) where:
 (defun advice--interactive-form (function)
   ;; Like `interactive-form' but tries to avoid autoloading functions.
   (when (commandp function)
-    (if (not (and (symbolp function) (autoloadp (symbol-function function))))
+    (if (not (and (symbolp function) (autoloadp (indirect-function function))))
         (interactive-form function)
       `(interactive (advice-eval-interactive-spec
                      (cadr (interactive-form ',function)))))))