branch: elpa/hyperdrive commit 1878e11e82e7a6d0ef30c18a3ada01b9887887a5 Author: Joseph Turner <jos...@ushin.org> Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-purge) Clarify prompt wording --- hyperdrive.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hyperdrive.el b/hyperdrive.el index 96a1c12d28..42ec3d97e5 100644 --- a/hyperdrive.el +++ b/hyperdrive.el @@ -163,7 +163,7 @@ hyperdrive, the new hyperdrive's petname will be set to SEED." (defun hyperdrive-purge (hyperdrive) "Purge all data corresponding to HYPERDRIVE." (interactive (list (hyperdrive-complete-hyperdrive))) - (when (yes-or-no-p (format "Purge all data for hyperdrive «%s»? " + (when (yes-or-no-p (format "Delete hyperdrive and all of its data: «%s»? " (hyperdrive--format-hyperdrive hyperdrive))) (hyperdrive-purge-no-prompt hyperdrive :then (lambda (_response)