From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 12 Oct 2022 18:26:17 +0000 (+0200)
Subject: Run 'package-vc-unpack-1' after updating source packages
X-Git-Tag: emacs-29.0.90~1616^2~307^2~63
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22d768a29de0d3e768ab259f46e4152780258713;p=emacs.git

Run 'package-vc-unpack-1' after updating source packages

* lisp/emacs-lisp/package-vc.el (package-vc-update): Call
'package-vc-unpack-1'.
---

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)