[Emacs-diffs] /srv/bzr/emacs/trunk r105939: * lisp/emacs-lisp/package.el (list-packages): Fix echo area message.

[Chong Yidong]

------------------------------------------------------------
revno: 105939
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2011-09-27 11:58:13 -0400
message:
  * lisp/emacs-lisp/package.el (list-packages): Fix echo area message.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-27 09:28:03 +0000
+++ b/lisp/ChangeLog    2011-09-27 15:58:13 +0000
@@ -1,3 +1,7 @@
+2011-09-27  Chong Yidong  <address@hidden>
+
+       * emacs-lisp/package.el (list-packages): Fix echo area message.
+
 2011-09-27  Leo Liu  <address@hidden>
 
        * ido.el (ido-read-internal): Accept cons cell HIST arg.

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2011-09-18 20:43:20 +0000
+++ b/lisp/emacs-lisp/package.el        2011-09-27 15:58:13 +0000
@@ -1658,10 +1658,11 @@
     (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)