[elpa] externals-release/activities 760877b5eb 029/103: Set name of new activities' tabs/frames

[ELPA Syncer]

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

    Set name of new activities' tabs/frames
---
 activity-tabs.el | 4 ++--
 activity.el      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/activity-tabs.el b/activity-tabs.el
index b524579cc2..30e9eee88e 100644
--- a/activity-tabs.el
+++ b/activity-tabs.el
@@ -86,8 +86,8 @@ closed."
 Selects its tab, making one if needed.  Its state is not changed."
   (if-let ((tab (activity-tabs--tab activity)))
       (tab-bar-switch-to-tab (alist-get 'name tab))
-    (tab-bar-new-tab)
-    (tab-bar-rename-tab (activity-name-for activity))))
+    (tab-bar-new-tab))
+  (tab-bar-rename-tab (activity-name-for activity)))
 
 (defun activity-tabs--tab (activity)
   "Return ACTIVITY's tab."
diff --git a/activity.el b/activity.el
index b2dd3b790b..2f6e5fe6f6 100644
--- a/activity.el
+++ b/activity.el
@@ -245,10 +245,10 @@ 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)
+    (activity-switch activity)
     activity))
 
 (cl-defun activity-resume (activity &key resetp)