spill also interactive functions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 5d2558a579d9e3784046db0fd9063fda6b7c906e..3e354951ea3d8fe32e30417f5202f0bb152ced40 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2714,10 +2714,7 @@ not to take responsibility for the actual compilation of the code."
               (push (if macro
                         (make-byte-to-native-top-level
                          :form `(defalias ',name '(macro . ,code) nil))
-                      (if (commandp code)
-                          (make-byte-to-native-top-level ;FIXME compile interactive functions.
-                           :form `(defalias ',name ,code))
-                        (make-byte-to-native-function :name name :data code)))
+                      (make-byte-to-native-function :name name :data code))
                     byte-to-native-top-level-forms))
             ;; Output the form by hand, that's much simpler than having
             ;; b-c-output-file-form analyze the defalias.