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

This commit is contained in:
Chong Yidong 2011-09-27 11:58:13 -04:00
parent 2b1928b807
commit 502f9ebda0
2 changed files with 7 additions and 2 deletions

View file

@ -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.

View file

@ -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)