procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow for `comp-native-driver-options' to work as a file-local variable.

Browse source
This commit is contained in:
Andrea Corallo 2021-03-07 20:19:20 +01:00
parent 38b4ac3e6b
commit dbdc44db15
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2272,7 +2272,10 @@ With argument ARG, insert value in current buffer after the form."
(defvar comp-speed)
(push `(comp-speed . ,comp-speed) byte-native-qualities)
(defvar comp-debug)
(push `(comp-debug . ,comp-debug) byte-native-qualities))
(push `(comp-debug . ,comp-debug) byte-native-qualities)
(defvar comp-native-driver-options)
(push `(comp-native-driver-options . ,comp-native-driver-options)
byte-native-qualities))
;; Compile the forms from the input buffer.
(while (progn

4
lisp/emacs-lisp/comp.el
View file

@ -712,6 +712,8 @@ Returns ELT."
:documentation "Default speed for this compilation unit.")
(debug comp-debug :type number
:documentation "Default debug level for this compilation unit.")
(driver-options comp-native-driver-options :type list
:documentation "Options for the GCC driver.")
(top-level-forms () :type list
:documentation "List of spilled top level forms.")
(funcs-h (make-hash-table :test #'equal) :type hash-table
@ -1298,6 +1300,8 @@ clashes."
byte-native-qualities)
(comp-ctxt-debug comp-ctxt) (alist-get 'comp-debug
byte-native-qualities)
(comp-ctxt-driver-options comp-ctxt) (alist-get 'comp-native-driver-options
byte-native-qualities)
(comp-ctxt-top-level-forms comp-ctxt)
(cl-loop
for form in (reverse byte-to-native-top-level-forms)