From 33d8b736b0330f51050ca1fc389527d708b1eb23 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 5 Nov 2019 20:34:12 +0100 Subject: [PATCH] do not native compile interactive functions --- lisp/emacs-lisp/bytecomp.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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. -- 2.39.5