gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 13:08:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix issue #238, symlinks under windows.

Browse Source
This commit is contained in:
Dimitri Fontaine 2011-06-19 22:16:21 +02:00
parent 9ef83d3535
commit e654f0693b
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
el-get.el
View File

@ -1801,10 +1801,16 @@ the recipe, then return nil."
(let ((elpa-dir (file-relative-name
(el-get-elpa-package-directory package) el-get-dir)))
(unless (el-get-package-exists-p package)
(message "%s"
(shell-command
(concat "cd " el-get-dir
" && ln -s \"" elpa-dir "\" \"" package "\""))))))
;; better style would be to check for (fboundp 'make-symbolic-link) but
;; that would be true on Vista, where by default only administrator is
;; granted to use the feature --- so hardcode those systems out
(if (memq system-type '(ms-dos windows-nt))
;; the symlink is a docs/debug feature, mkdir is ok enough
(make-directory (el-get-package-directory package))
(message "%s"
(shell-command
(concat "cd " el-get-dir
" && ln -s \"" elpa-dir "\" \"" package "\"")))))))
(defun el-get-elpa-install (package url post-install-fun)
"Ask elpa to install given PACKAGE."