[elpa] externals-release/activities 5f044d448b 060/103: Change: (activities-resume) Don't reload already active activities

[ELPA Syncer]

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

    Change: (activities-resume) Don't reload already active activities
    
    If the activity is already active, just switch to it; don't reset its
    state (which would, e.g. cause EWW buffers to be refreshed).
    
    Suggested-by: Joseph Turner <joseph@breatheoutbreathe.in>
---
 activities.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/activities.el b/activities.el
index 02e9465c58..b3e7847806 100644
--- a/activities.el
+++ b/activities.el
@@ -285,8 +285,10 @@ If RESETP (interactively, with universal prefix), reset to
 ACTIVITY's default state; otherwise, resume its last state, if
 available."
   (interactive (list (activities-completing-read) :resetp current-prefix-arg))
-  (activities--switch activity)
-  (activities-set activity :state (if resetp 'default 'last)))
+  (let ((already-active-p (activities-activity-active-p activity)))
+    (activities--switch activity)
+    (unless (or resetp already-active-p)
+      (activities-set activity :state (if resetp 'default 'last)))))
 
 (defun activities-suspend (activity)
   "Suspend ACTIVITY.