[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105939: * lisp/emacs-lisp/package.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105939: * lisp/emacs-lisp/package.el (list-packages): Fix echo area message. |
Date: |
Tue, 27 Sep 2011 11:58:13 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105939: * lisp/emacs-lisp/package.el (list-packages): Fix echo area message.,
Chong Yidong <=