From: Philip Kaludercic <philipk@posteo.net>
Date: Sun, 30 Oct 2022 13:50:09 +0000 (+0100)
Subject: Display a message after installing source packages
X-Git-Tag: emacs-29.0.90~1616^2~307^2~21
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb86ed20e16358b39288010d41d911f732f88372;p=emacs.git

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 608d06d426b..c3f54c1be8d 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.