mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-07 14:31:41 -08:00
Code Issues Projects Releases Wiki Activity

* Introduce `comp-output-directory'

Browse source 
* lisp/emacs-lisp/comp.el (comp-output-directory): New function.
	(comp-output-base-filename): Use `comp-output-directory'.
This commit is contained in:
Andrea Corallo 2020-05-03 14:35:50 +01:00
parent 02e3ffad6d
commit 8d37220190
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -443,13 +443,19 @@ VERBOSITY is a number between 0 and 3."
2))
edges)))
(defun comp-output-directory (src)
"Return the compilation direcotry for source SRC."
(let* ((src (if (symbolp src) (symbol-name src) src))
(expanded-filename (expand-file-name src)))
(file-name-as-directory
(concat (file-name-directory expanded-filename)
comp-native-path-postfix))))
(defun comp-output-base-filename (src)
"Output filename sans extention for SRC file being native compiled."
(let* ((src (if (symbolp src) (symbol-name src) src))
(expanded-filename (expand-file-name src))
(output-dir (file-name-as-directory
(concat (file-name-directory expanded-filename)
comp-native-path-postfix)))
(output-dir (comp-output-directory src))
(output-filename
(file-name-sans-extension
(file-name-nondirectory expanded-filename))))