Fix #583 after merging #660

This commit is contained in:
Ryan C. Thompson 2012-06-03 07:34:53 -07:00
parent bdc2cb2aa6
commit c3c07e7169

View File

@ -831,7 +831,7 @@ itself.")
(run-hook-with-args hooks package)
(run-hook-with-args 'el-get-post-remove-hooks package)))
(defun el-get-remove (package)
(defun el-get-remove (package &optional package-status-alist)
"Remove any PACKAGE that is know to be installed or required."
(interactive
(list (el-get-read-package-with-status "Remove" "required" "installed")))
@ -843,7 +843,7 @@ itself.")
(let ((fallback-source
(or (ignore-errors (el-get-package-def package))
(list :name package :type 'builtin))))
(el-get-with-status-sources
(el-get-with-status-sources package-status-alist
(let* ((source (or (ignore-errors (el-get-package-def package))
fallback-source))
;; Put the fallback source into `el-get-sources' so that