do not native compile interactive functions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 836377b4df3a4685a304fb2e192f5f0591747ebd..04c80c17577660ce5f4b183c4319f954b17f60d0 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2713,7 +2713,10 @@ 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))
-                      (make-byte-to-native-function :name name :data code))
+                      (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)))
                     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.