bug#59548: [PATCH] Include the package name in package-vc--unpack's prompt

[daanturo <daanturo@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 196 bytes --]


--=-=-=
Content-Type: text/plain

Tags: patch


Make the prompt a bit more informative, as sometimes I am presented with

this question at startup without even knowing the cause.


-- 
Daanturo.

[-- Attachment #2: 0001-More-informant-prompt-for-package-vc-unpack.patch --]
[-- Type: text/x-patch, Size: 1119 bytes --]

From dba6787f0cb1e92f3c9eb62b1f7d9ab6599c43a1 Mon Sep 17 00:00:00 2001
From: Daanturo <daanturo@gmail.com>
Date: Fri, 25 Nov 2022 00:06:37 +0700
Subject: [PATCH] More informant prompt for package-vc--unpack

* lisp/emacs-lisp/package-vc.el (package-vc--unpack): show the package's
name while asking whether to overwrite its previous checkout.
---
 lisp/emacs-lisp/package-vc.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index bf1ea2bdf4..a9c1bbfe60 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -523,7 +523,7 @@ package-vc--unpack
                (pkg-dir (expand-file-name dirname package-user-dir)))
     (setf (package-desc-dir pkg-desc) pkg-dir)
     (when (file-exists-p pkg-dir)
-      (if (yes-or-no-p "Overwrite previous checkout?")
+      (if (yes-or-no-p (format "Overwrite %s's previous checkout?" name))
           (package--delete-directory pkg-dir)
         (error "There already exists a checkout for %s" name)))
     (package-vc--clone pkg-desc pkg-spec pkg-dir rev)
-- 
2.38.1