feature/package+vc bb86ed20e1 08/10: Display a message after installing source packages

[Philip Kaludercic]

branch: feature/package+vc
commit bb86ed20e16358b39288010d41d911f732f88372
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Display a message after installing source packages
    
    * lisp/emacs-lisp/package-vc.el (package-vc-unpack-1): Print message
    and return t.
---
 lisp/emacs-lisp/package-vc.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 608d06d426..c3f54c1be8 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -381,7 +381,18 @@ The output is written out into PKG-FILE."
   ;; Mark package as selected
   (package--save-selected-packages
    (cons (package-desc-name pkg-desc)
-         package-selected-packages)))
+         package-selected-packages))
+
+  ;; Confirm that the installation was successful
+  (let ((main-file (package-vc-main-file pkg-desc)))
+    (message "Source package `%s' installed (Version %s, Revision %S)."
+             (package-desc-name pkg-desc)
+             (lm-with-file main-file
+               (package-strip-rcs-id
+                (or (lm-header "package-version")
+                    (lm-header "version"))))
+             (vc-working-revision main-file)))
+  t)
 
 (defun package-vc-guess-backend (url)
   "Guess the VC backend for URL.