Permalink
Browse files

Have el-get-rmdir call the post-remove-fun, fix #845.

  • Loading branch information...
1 parent 2a387d1 commit 7caafba03da9b54aa5bf1e29a57a98f3fe5af7c1 @dimitri committed Dec 14, 2012
Showing with 3 additions and 2 deletions.
  1. +3 −2 el-get-core.el
View
@@ -142,7 +142,7 @@ entry."
;;
;; Common support bits
;;
-(defun el-get-rmdir (package &rest ignored)
+(defun el-get-rmdir (package url post-remove-fun)
"Just rm -rf the package directory. If it is a symlink, delete it."
(let* ((edir (expand-file-name el-get-dir))
(pdir (expand-file-name "." (el-get-package-directory package))))
@@ -157,7 +157,8 @@ entry."
((file-directory-p pdir)
(delete-directory pdir 'recursive))
((file-exists-p pdir)
- (delete-file pdir)))))
+ (delete-file pdir)))
+ (funcall post-remove-fun package)))
;;

0 comments on commit 7caafba

Please sign in to comment.