diff options
| author | Phil Hagelberg <[email protected]> | 2012-01-28 17:49:29 +0800 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2012-01-28 17:49:29 +0800 |
| commit | 70550acf88e5d7083d3aa83d201a8a7ebc3ba4b6 (patch) | |
| tree | b75054d97335a37fa8b86ca9106a6d3a9f65d3cf /lisp/emacs-lisp/package.el | |
| parent | 0ce8e868b9c704f5f8630e0b8df5550ecadb0e95 (diff) | |
Fix M-x package-install failure if no archive has been fetched yet.
* emacs-lisp/package.el (package-install): Run
package-refresh-contents if there is no archive yet.
Fixes: debbugs:97978
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -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 7e56c5534e..317fa1fd23 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -889,6 +889,8 @@ archive in `package-archives'. Interactively, prompt for NAME." ;; symbols for completion. (unless package--initialized (package-initialize t)) + (unless package-archive-contents + (package-refresh-contents)) (list (intern (completing-read "Install package: " (mapcar (lambda (elt) |