[Emacs-diffs] /srv/bzr/emacs/trunk r106972: Fix M-x package-install failure if no archive has been fetched yet.

[Chong Yidong]

------------------------------------------------------------
revno: 106972
fixes bug(s): http://debbugs.gnu.org/97978
author: Phil Hagelberg <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-28 17:49:29 +0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-28 08:14:24 +0000
+++ b/lisp/ChangeLog    2012-01-28 09:49:29 +0000
@@ -1,3 +1,8 @@
+2012-01-28  Phil Hagelberg  <address@hidden>
+
+       * emacs-lisp/package.el (package-install): Run
+       package-refresh-contents if there is no archive yet (Bug#97978).
+
 2012-01-28  Chong Yidong  <address@hidden>
 
        * emacs-lisp/package.el (package-maybe-load-descriptor): New

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2012-01-28 08:14:24 +0000
+++ b/lisp/emacs-lisp/package.el        2012-01-28 09:49:29 +0000
@@ -889,6 +889,8 @@
      ;; 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)