feature/package+vc 22d768a29d 4/9: Run 'package-vc-unpack-1' after updating source packages

[Philip Kaludercic]

branch: feature/package+vc
commit 22d768a29de0d3e768ab259f46e4152780258713
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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 a9aa685402..3a1c89f73e 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)