From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 5 Nov 2019 19:34:12 +0000 (+0100)
Subject: do not native compile interactive functions
X-Git-Tag: emacs-28.0.90~2727^2~1034
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33d8b736b0330f51050ca1fc389527d708b1eb23;p=emacs.git

do not native compile interactive functions
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 836377b4df3..04c80c17577 100644
--- 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.