bug#20863: [PATCH] Fix already installed message (Bug#20863)

[immerrr again]

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