[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#20863: [PATCH] Fix already installed message (Bug#20863)
From: |
immerrr again |
Subject: |
bug#20863: [PATCH] Fix already installed message (Bug#20863) |
Date: |
Tue, 22 Sep 2015 12:36:18 +0300 |
Beni Cherniavsky-Paskin <beni.cherniavsky@gmail.com> writes:
>
> I can send a patch but I suppose it's faster for you to fix
> than the copyright assignment dance...
>
AFAIR, changes under 15 LOC could be accepted without the copyright assignment.
Nevertheless, here's the patch that fixes it for me:
-- >8 --
Subject: [PATCH] Fix already installed message (Bug#20863)
* package.el (package-install): fix is-already-installed message
---
lisp/emacs-lisp/package.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index eb66e8f..641eca8 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1926,7 +1926,10 @@ to install it but still mark it as selected."
(package-desc-reqs pkg)))
(package-compute-transaction () (list (list pkg))))))
(package-download-transaction transaction)
- (message "`%s' is already installed" (package-desc-full-name pkg))))
+ (message "`%s' is already installed"
+ (let ((pkg-desc (if (package-desc-p pkg) pkg
+ (car (cdr (assq pkg package-alist))))))
+ (package-desc-full-name pkg-desc)))))
(defun package-strip-rcs-id (str)
"Strip RCS version ID from the version string STR.
--
2.5.3
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#20863: [PATCH] Fix already installed message (Bug#20863),
immerrr again <=