[elpa] externals-release/activities e0bdd210bd 027/103: Fix

[ELPA Syncer]

branch: externals-release/activities
commit e0bdd210bdf98fc5f474bef65360ccdd253f10b9
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix
---
 activity.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/activity.el b/activity.el
index aacabc01b4..d6a484769c 100644
--- a/activity.el
+++ b/activity.el
@@ -245,6 +245,7 @@ Called with one argument, the activity."
   (interactive (list (read-string "New activity name: ")))
   (when (member name (activity-names))
     (user-error "Activity named %S already exists" name))
+  ;; FIXME: Rename tab/frame to have prefix.
   (let ((activity (make-activity :name name)))
     (activity--set activity)
     (activity-save activity :defaultp t :lastp t)
@@ -301,7 +302,10 @@ In order to be safe for `kill-emacs-hook', this demotes 
errors."
   "Discard ACTIVITY and its state.
 It will not be recoverable."
   (interactive (list (activity-completing-read :prompt "Discard activity: ")))
-  (map-delete activity-activities (activity-name activity)))
+  (ignore-errors
+    ;; FIXME: After fixing all the bugs, remove ignore-errors.
+    (activity-close activity))
+  (setf activity-activities (map-delete activity-activities (activity-name 
activity))))
 
 ;;;; Activity mode