diff options
author | Noam Postavsky <npostavs@gmail.com> | 2016-06-25 15:57:39 -0400 |
---|---|---|
committer | Noam Postavsky <npostavs@gmail.com> | 2016-08-21 12:22:18 -0400 |
commit | 14a86f837762af8d16eef57c315da93b56699901 (patch) | |
tree | 78d4e57200ccb85c749b094fcc74a286e4ad72a3 /lisp/emacs-lisp | |
parent | 578d9aaf82b386c1a0316dde491d297e18e10636 (diff) | |
download | emacs-14a86f837762af8d16eef57c315da93b56699901.tar.gz emacs-14a86f837762af8d16eef57c315da93b56699901.tar.bz2 emacs-14a86f837762af8d16eef57c315da93b56699901.zip |
Improve error when installing non-package dirs
* lisp/emacs-lisp/package.el (package-dir-info): Throw meaningful error
when no file with package info is found (Bug #19851).
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index e721b553eae..f669c31e791 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1081,6 +1081,8 @@ The return result is a `package-desc'." (setq files nil) ;; set the 'dir kind, (setf (package-desc-kind info) 'dir)))) + (unless info + (error "No .el files with package headers in `%s'" default-directory)) ;; and return the info. info)))) |