* lisp/emacs-lisp/package.el (list-packages): Fix echo area message.
This commit is contained in:
parent
2b1928b807
commit
502f9ebda0
2 changed files with 7 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue