From 22d768a29de0d3e768ab259f46e4152780258713 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 12 Oct 2022 20:26:17 +0200 Subject: [PATCH] Run 'package-vc-unpack-1' after updating source packages * lisp/emacs-lisp/package-vc.el (package-vc-update): Call 'package-vc-unpack-1'. --- lisp/emacs-lisp/package-vc.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index a9aa6854027..3a1c89f73ee 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -281,9 +281,18 @@ The output is written out into PKG-FILE." (defun package-vc-update (pkg-desc) "Attempt to update the packager PKG-DESC." - (let ((default-directory (package-desc-dir pkg-desc))) - (with-demoted-errors "Error during package update: %S" - (vc-pull)))) + (let* ((default-directory (package-desc-dir pkg-desc)) + (ret (with-demoted-errors "Error during package update: %S" + (vc-pull))) + (buf (cond + ((processp ret) (process-buffer ret)) + ((bufferp ret) ret)))) + (if buf + (with-current-buffer buf + (vc-run-delayed + (package-vc-unpack-1 pkg-desc default-directory))) + (package-vc-unpack-1 pkg-desc default-directory)))) + ;;;###autoload (defun package-vc-install (name-or-url &optional name rev) -- 2.39.5