diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-12 20:26:17 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-12 20:26:17 +0200 |
| commit | 22d768a29de0d3e768ab259f46e4152780258713 (patch) | |
| tree | 1201f07a341d056bf75fb5346232bf87950abbe3 /lisp/emacs-lisp | |
| parent | 1a5e705dda54b74686cdc31543e4783a1f3337e1 (diff) | |
| download | emacs-22d768a29de0d3e768ab259f46e4152780258713.tar.gz emacs-22d768a29de0d3e768ab259f46e4152780258713.tar.bz2 emacs-22d768a29de0d3e768ab259f46e4152780258713.zip | |
Run 'package-vc-unpack-1' after updating source packages
* lisp/emacs-lisp/package-vc.el (package-vc-update): Call
'package-vc-unpack-1'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 15 |
1 files 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) |