* package-vc.el (package-vc-unpack): Delete using package--delete-directory

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index b54108a6193ebe7e7e0564df83d1add685482a97..f2bd5072474f2c16d15c0101980b4940c98bce66 100644 (file)
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -114,7 +114,7 @@ The output is written out into PKG-FILE."
     (setf (package-desc-dir pkg-desc) pkg-dir)
     (when (file-exists-p pkg-dir)
       (if (yes-or-no-p "Overwrite previous checkout?")
-          (delete-directory pkg-dir t)
+          (package--delete-directory pkg-dir)
         (error "There already exists a checkout for %s" name)))
     (pcase-let* ((attr (package-desc-extras pkg-desc))
                  (`(,backend ,repo ,dir ,branch)