From 502f9ebda07a494d37a9127bd396718f42c4c4d9 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 27 Sep 2011 11:58:13 -0400 Subject: [PATCH] * lisp/emacs-lisp/package.el (list-packages): Fix echo area message. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/package.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec867fee08b..50dccb43b3b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-09-27 Chong Yidong + + * emacs-lisp/package.el (list-packages): Fix echo area message. + 2011-09-27 Leo Liu * 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 4cab8f43480..2e340a442a6 100644 --- 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) -- 2.39.2