From bb86ed20e16358b39288010d41d911f732f88372 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sun, 30 Oct 2022 14:50:09 +0100 Subject: [PATCH] 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 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. -- 2.39.5