* lisp/emacs-lisp/package.el (list-packages): Fix echo area message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec867fee08bce7fe40c7970a41404713cda878a3..50dccb43b3b42b9c6d6382f0f12a253b16b0afdc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-27  Chong Yidong  <cyd@stupidchicken.com>
+
+       * emacs-lisp/package.el (list-packages): Fix echo area message.
+
 2011-09-27  Leo Liu  <sdl.web@gmail.com>
 
        * ido.el (ido-read-internal): Accept cons cell HIST arg.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 4cab8f43480fdad3696a4411f70ca150ce191b58..2e340a442a62bd81b06b52abb6d373bface69d27 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1658,10 +1658,11 @@ The list is displayed in a buffer named `*Packages*'."
     (switch-to-buffer buf))
   (let ((upgrades (package-menu--find-upgrades)))
     (if upgrades
-       (message "%d package%s can be upgraded; type `%s' to mark them for upgrading."
+       (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]")))))
+                (substitute-command-keys "\\[package-menu-mark-upgrades]")
+                (if (= (length upgrades) 1) "it" "them")))))
 
 ;;;###autoload
 (defalias 'package-list-packages 'list-packages)