mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Display a message after installing source packages

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-unpack-1): Print message
and return t.
This commit is contained in:
Philip Kaludercic 2022-10-30 14:50:09 +01:00
parent ec3f102b8c
commit bb86ed20e1
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/package-vc.el
View file

@ -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.