Show error when looking up dependency trees for built-in packages

There's no obvious way to do this, and I don't think it's important
enough to accommodate it.
This commit is contained in:
Henrik Lissner 2018-01-06 23:56:37 -05:00
parent 392f04446f
commit 2734810060
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -117,12 +117,16 @@ If INSTALLED-ONLY-P, only return packages that are installed."
;;;###autoload ;;;###autoload
(defun doom-get-depending-on (name) (defun doom-get-depending-on (name)
"Return a list of packages that depend on the package named NAME." "Return a list of packages that depend on the package named NAME."
(when (package-built-in-p name)
(error "Can't get the dependency tree for built-in packages"))
(when-let* ((desc (cadr (assq name package-alist)))) (when-let* ((desc (cadr (assq name package-alist))))
(mapcar #'package-desc-name (package--used-elsewhere-p desc nil t)))) (mapcar #'package-desc-name (package--used-elsewhere-p desc nil t))))
;;;###autoload ;;;###autoload
(defun doom-get-dependencies-for (name &optional only) (defun doom-get-dependencies-for (name &optional only)
"Return a list of dependencies for a package." "Return a list of dependencies for a package."
(when (package-built-in-p name)
(error "Can't get the dependency tree for built-in packages"))
(package--get-deps name only)) (package--get-deps name only))
;;;###autoload ;;;###autoload