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 a9aa68540272274d024559a7c65fc0eed5458b75..3a1c89f73eea0223a7da4876de6cdabbeaa4ef39 100644 (file)
--- 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)