[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#59548: [PATCH] Include the package name in package-vc--unpack's prom
From: |
Stefan Kangas |
Subject: |
bug#59548: [PATCH] Include the package name in package-vc--unpack's prompt |
Date: |
Thu, 24 Nov 2022 15:27:41 -0800 |
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?
> 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)