mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 11:21:04 -08:00
Code Issues Projects Releases Wiki Activity

do not native compile interactive functions

Browse source
This commit is contained in:
Andrea Corallo 2019-11-05 20:34:12 +01:00
parent d392276b63
commit 33d8b736b0
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View file

@ -2713,7 +2713,10 @@ not to take responsibility for the actual compilation of the code."
(push (if macro (push (if macro
(make-byte-to-native-top-level (make-byte-to-native-top-level
:form `(defalias ',name '(macro . ,code) nil)) :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)) byte-to-native-top-level-forms))
;; Output the form by hand, that's much simpler than having ;; Output the form by hand, that's much simpler than having
;; b-c-output-file-form analyze the defalias. ;; b-c-output-file-form analyze the defalias.