branch: externals/package-x
commit f03a83c96922412ebf0cccb268e73e7fabfc3079
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
emacs-lisp/package.el and package-x.el: References to package-desc-kind
---
lisp/emacs-lisp/package-x.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/lisp/emacs-lisp/package-x.el b/lisp/emacs-lisp/package-x.el
index f2bcdad172..e0945d47a4 100644
--- a/lisp/emacs-lisp/package-x.el
+++ b/lisp/emacs-lisp/package-x.el
@@ -207,6 +207,10 @@ if it exists."
(pkg-version (package-version-join split-version))
(pkg-buffer (current-buffer)))
+ ;; `package-upload-file' will error if given a directory,
+ ;; but we check it here as well just in case.
+ (when (eq 'dir file-type)
+ (user-error "Can't upload directory, tar it instead"))
;; Get archive-contents from ARCHIVE-URL if it's non-nil, or
;; from `package-archive-upload-base' otherwise.
(let ((contents (or (package--archive-contents-from-url archive-url)
