[elpa] externals-release/activities 44df8af7de 089/103: Change: (-discard) Offer current activity as default completion

[ELPA Syncer]

branch: externals-release/activities
commit 44df8af7deeb0df914cb816b703831988a9a0260
Author: Joseph Turner <joseph@breatheoutbreathe.in>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (-discard) Offer current activity as default completion
---
 activities.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/activities.el b/activities.el
index 4e50689221..f89693bfe5 100644
--- a/activities.el
+++ b/activities.el
@@ -342,7 +342,11 @@ In order to be safe for `kill-emacs-hook', this demotes 
errors."
   "Discard ACTIVITY and its state.
 It will not be recoverable."
   ;; TODO: Discard relevant bookmarks when `activities-bookmark-store' is 
enabled.
-  (interactive (list (activities-completing-read :prompt "Discard activity: 
")))
+  (interactive
+   (let ((default (when (activities-current)
+                    (activities-activity-name (activities-current)))))
+     (list (activities-completing-read :prompt (format-prompt "Discard 
activity" default)
+                                       :default default))))
   (ignore-errors
     ;; FIXME: After fixing all the bugs, remove ignore-errors.
     (activities-close activity))