From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 7 Dec 2019 16:37:31 +0000 (+0100)
Subject: spill also interactive functions
X-Git-Tag: emacs-28.0.90~2727^2~927
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7071c64575bd3116e154f93915ff099c6e0f3a0;p=emacs.git

spill also interactive functions
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 5d2558a579d..3e354951ea3 100644
--- 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.