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

Revert "Serialize runs of pacman"

Browse Source 
If you want serialised actions, use (el-get 'sync).

This reverts commit 9ba344de1e.

Conflicts:

	el-get.el
This commit is contained in:
Dimitri Fontaine 2010-11-08 13:46:57 +01:00
parent 27628fabc1
commit 3833c99674
1 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
el-get.el
View File

@ -1101,8 +1101,6 @@ the files up."
;;
(add-hook 'el-get-pacman-install-hook 'el-get-dpkg-symlink)
(defvar el-get-pacman-running nil)
(defun el-get-pacman-install (package url post-install-fun)
"echo $pass | sudo -S pacman install PACKAGE"
(let* ((source (el-get-package-def package))
@ -1110,9 +1108,6 @@ the files up."
(name (format "*pacman install %s*" package))
(ok (format "Package %s installed." package))
(ko (format "Could not install package %s." package)))
(while el-get-pacman-running
(sit-for 0.250))
(setq el-get-pacman-running t)
(el-get-start-process-list
package
@ -1123,10 +1118,7 @@ the files up."
:args ("-S" ,(executable-find "pacman") "--sync" "--noconfirm" "--needed" ,pkgname)
:message ,ok
:error ,ko))
`(lambda (package)
(setq el-get-pacman-running nil)
(when (functionp ',post-install-fun)
(funcall ',post-install-fun package))))))
post-install-fun)))
(defun el-get-pacman-remove (package url post-remove-fun)
"pacman remove PACKAGE, URL is there for API compliance"
@ -1135,9 +1127,6 @@ the files up."
(name (format "*pacman remove %s*" package))
(ok (format "Package %s removed." package))
(ko (format "Could not remove package %s." package)))
(while el-get-pacman-running
(sit-for 0.250))
(setq el-get-pacman-running t)
(el-get-start-process-list
package
@ -1148,10 +1137,7 @@ the files up."
:args ("-S" ,(executable-find "pacman") "--remove" "--noconfirm" ,pkgname)
:message ,ok
:error ,ko))
`(lambda (package)
(setq el-get-pacman-running nil)
(when (functionp ',post-remove-fun)
(funcall ',post-remove-fun package))))))
post-remove-fun)))
(add-hook 'el-get-pacman-remove-hook 'el-get-dpkg-remove-symlink)