Make package-update-all also refresh the list

* lisp/emacs-lisp/package.el (package-update-all): Also refresh
package list.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index f4872a1a52fc2d75a7c3ff63f8d2cb79f7f4b691..b340848a6f9c42448df40b47524c541d8e14811b 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2168,10 +2168,11 @@ to install it but still mark it as selected."
 
 ;;;###autoload
 (defun package-update-all (&optional query)
-  "Upgrade all packages.
+  "Refresh package list and upgrade all packages.
 If QUERY, ask the user before updating packages.  When called
 interactively, QUERY is always true."
   (interactive (list (not noninteractive)))
+  (package-refresh-contents)
   (let ((updateable (package--updateable-packages)))
     (if (not updateable)
         (message "No packages to update")