Display a message after installing source packages

* lisp/emacs-lisp/package-vc.el (package-vc-unpack-1): Print message
and return t.

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 608d06d426b6070ed186111eae9e2946c54c6efe..c3f54c1be8d36be932e1f78774b5c8facb94fcd7 100644 (file)
--- 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.