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

always expand file name when bytecompiling

Browse source
This commit is contained in:
Andrea Corallo 2019-09-29 11:05:54 +02:00
parent 7d3da0a37e
commit 9da698575a
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1579,9 +1579,10 @@ If INPUT is a string, use it as the file path to be native compiled."
(error "Trying to native compile something not a symbol function or file"))
(let ((data input)
(comp-native-compiling t)
(comp-ctxt (make-comp-ctxt :output (if (symbolp input)
(symbol-name input)
(file-name-sans-extension input)))))
(comp-ctxt (make-comp-ctxt
:output (if (symbolp input)
(symbol-name input)
(file-name-sans-extension (expand-file-name input))))))
(mapc (lambda (pass)
(comp-log (format "Running pass %s:\n" pass))
(setq data (funcall pass data)))