[elpa] externals-release/activities 0ea9b84880 088/103: Change: (-switch) Offer current activity as default completion

[ELPA Syncer]

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

    Change: (-switch) Offer current activity as default completion
---
 activities.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/activities.el b/activities.el
index 328fb8b8f2..4e50689221 100644
--- a/activities.el
+++ b/activities.el
@@ -312,9 +312,12 @@ Interactively, offers active activities."
 
 (defun activities-suspend (activity)
   "Suspend ACTIVITY.
-Its last is saved, and its frames, windows, and tabs are
-closed."
-  (interactive (list (activities-completing-read :prompt "Suspend activity: 
")))
+Its last is saved, and its frames, windows, and tabs are closed."
+  (interactive
+   (let ((default (when (activities-current)
+                    (activities-activity-name (activities-current)))))
+     (list (activities-completing-read :prompt (format-prompt "Suspend 
activity" default)
+                                       :default default))))
   (activities-save activity :lastp t)
   (activities-close activity))