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

[Philip Kaludercic <philipk@posteo.net>]

Stefan Kangas <stefankangas@gmail.com> writes:

> daanturo <daanturo@gmail.com> writes:
>
>> Tags: patch
>>
>> Make the prompt a bit more informative, as sometimes I am presented with
>> this question at startup without even knowing the cause.
>
> LGTM.  Philip, WDYT?

Likewise, can you push the patch?  Otherwise I'll do so some time later.

>> 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)