Commit 7caafba0 authored by Dimitri Fontaine's avatar Dimitri Fontaine

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

parent 2a387d13
......@@ -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)))
;;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment