[Emacs-diffs] scratch/package.el-async-refresh e9af469 2/2: Simplify find-and-notify upgrades.

[Artur Malabarba]

branch: scratch/package.el-async-refresh
commit e9af469c65aae102ebe0b13ca089b388c746d455
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Simplify find-and-notify upgrades.
---
 lisp/emacs-lisp/package.el |   13 ++++++-------
 1 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index b682bed..490fb45 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2764,13 +2764,12 @@ Store this list in `package-menu--new-package-list'."
 
 (defun package-menu--find-and-notify-upgrades ()
   "Notify the user of upgradeable packages."
-  (let ((upgrades (package-menu--find-upgrades)))
-    (if upgrades
-        (message "%d package%s can be upgraded; type `%s' to mark %s for 
upgrading."
-          (length upgrades)
-          (if (= (length upgrades) 1) "" "s")
-          (substitute-command-keys "\\[package-menu-mark-upgrades]")
-          (if (= (length upgrades) 1) "it" "them")))))
+  (when-let ((upgrades (package-menu--find-upgrades)))
+    (message "%d package%s can be upgraded; type `%s' to mark %s for 
upgrading."
+      (length upgrades)
+      (if (= (length upgrades) 1) "" "s")
+      (substitute-command-keys "\\[package-menu-mark-upgrades]")
+      (if (= (length upgrades) 1) "it" "them"))))
 
 (defun package-menu--post-refresh ()
   "Function to be called after `package-refresh-contents' is done.