branch: elpa/hyperdrive
commit 55f38ce76cfa72425275106cc8fcfd9b2cea56d0
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Change: (hyperdrive-purge) Improve prompt
---
hyperdrive.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index c13b6a71da..6c5b68022e 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 "Delete hyperdrive and all of its data: «%s»? "
+ (when (yes-or-no-p (format "Delete local copy of hyperdrive (data will
likely not be recoverable—see manual): «%s»? "
(hyperdrive--format-hyperdrive hyperdrive)))
(hyperdrive-purge-no-prompt hyperdrive
:then (lambda (_response)
