diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2017-10-13 14:09:13 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2017-10-13 14:09:13 +0200 |
| commit | 85643eaf18842b11032f2c919c7656ed00a5d6a5 (patch) | |
| tree | 6fabd42d02c05197b67a23b8e9a1bf25850968da | |
| parent | 68c9ee4bff308b4426c1de4b80f57d6f8eed683c (diff) | |
| download | emacs-85643eaf18.tar.gz | |
Cosmetic changes to use-package-ensure-elpa
| -rw-r--r-- | lisp/use-package/use-package.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 4720c072ba6..969cd0beabf 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -741,14 +741,15 @@ If the package is installed, its entry is removed from (progn (when (assoc package (bound-and-true-p package-pinned-packages)) (package-read-all-archive-contents)) - (if (assoc package package-archive-contents) - (progn (package-install package) t) - (progn - (package-refresh-contents) - (when (assoc package (bound-and-true-p - package-pinned-packages)) - (package-read-all-archive-contents)) - (package-install package)))) + (cond ((assoc package package-archive-contents) + (package-install package) + t) + (t + (package-refresh-contents) + (when (assoc package + (bound-and-true-p package-pinned-packages)) + (package-read-all-archive-contents)) + (package-install package)))) (error (message "Error: Cannot load %s: %S" name err) nil)))))) |