mirror of
https://github.com/correl/melpa.git
synced 2024-12-23 03:00:12 +00:00
parent
3618b967b1
commit
383cd57a1a
1 changed files with 5 additions and 3 deletions
|
@ -220,9 +220,11 @@ be identical."
|
|||
Output is written to the current buffer."
|
||||
(let* ((default-directory (file-name-as-directory (or dir default-directory)))
|
||||
(timeout (number-to-string package-build-timeout-secs))
|
||||
(argv (if package-build-timeout-executable
|
||||
(argv (append
|
||||
'("env" "LC_ALL=C")
|
||||
(if package-build-timeout-executable
|
||||
(append (list package-build-timeout-executable "-k" "60" timeout command) args)
|
||||
(cons command args))))
|
||||
(cons command args)))))
|
||||
(unless (file-directory-p default-directory)
|
||||
(error "Can't run process in non-existent directory: %s" default-directory))
|
||||
(let ((exit-code (apply 'process-file (car argv) nil (current-buffer) t (cdr argv))))
|
||||
|
|
Loading…
Reference in a new issue