github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2025-04-09 09:11:05 -09:00
Code Issues Projects Releases Packages Wiki Activity

Default directory should end with slash.

Browse source 
We can only do that if the directory already exist.  But sometimes the
command that is to be run is what creates the directory, hence it does
not exist.  So we only end with slash if the directory exists.
This commit is contained in:
Johan Andersson 2014-01-28 19:07:07 +01:00
parent 4a0b7b0163
commit bf2d52b26b
1 changed files with 4 additions and 0 deletions

4
package-build.el
View file

@ -149,6 +149,10 @@ function for access to this function")
"In DIR (or `default-directory' if unset) run COMMAND with ARGS.
Output is written to the current buffer."
(let* ((default-directory (or dir default-directory))
(default-directory
(if (file-directory-p default-directory)
(concat (directory-file-name default-directory) "/")
default-directory))
(have-timeout (executable-find "timeout"))
(argv (if have-timeout
(append (list "timeout" "-k" "60" "600" command) args)