mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Don't factor out a volatile variable

Browse Source 
Possibly fixes https://github.com/jwiegley/use-package/issues/527
This commit is contained in:
John Wiegley 2017-12-01 01:36:36 -08:00
parent 7f2eec9e65
commit 6954c3f582
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/use-package/use-package.el
View File

@ -739,14 +739,15 @@ If the package is installed, its entry is removed from
(not (or (member context '(:byte-compile :ensure :config)) (not (or (member context '(:byte-compile :ensure :config))
(y-or-n-p (format "Install package %S?" package)))) (y-or-n-p (format "Install package %S?" package))))
(condition-case-unless-debug err (condition-case-unless-debug err
(let ((pinned (assoc package (bound-and-true-p (progn
package-pinned-packages)))) (when (assoc package (bound-and-true-p
(when pinned package-pinned-packages))
(package-read-all-archive-contents)) (package-read-all-archive-contents))
(if (assoc package package-archive-contents) (if (assoc package package-archive-contents)
(package-install package) (package-install package)
(package-refresh-contents) (package-refresh-contents)
(when pinned (when (assoc package (bound-and-true-p
package-pinned-packages))
(package-read-all-archive-contents)) (package-read-all-archive-contents))
(package-install package)) (package-install package))
t) t)