[elpa] externals-release/activities 63089f9bcd 096/103: Change: (activities-new) Offer current activity name as default

[ELPA Syncer]

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

    Change: (activities-new) Offer current activity name as default
---
 README.org      |  3 ++-
 activities.el   |  5 ++++-
 activities.info | 14 ++++++++------
 3 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 3419d54ea2..946b14be20 100644
--- a/README.org
+++ b/README.org
@@ -118,7 +118,8 @@ When option ~activities-bookmark-store~ is enabled, an 
Emacs bookmark is stored
 
 ** v0.3-pre
 
-Nothing new yet.
+*Additions*
++ Offer current activity name by default when redefining an activity with 
~activities-new~.
 
 ** v0.2
 
diff --git a/activities.el b/activities.el
index ac85f92731..ddd74612db 100644
--- a/activities.el
+++ b/activities.el
@@ -276,7 +276,10 @@ prefixes will be added automatically."
 If FORCEP (interactively, with prefix), overwrite existing
 activity."
   (interactive
-   (let ((default (funcall activities-default-name-fn)))
+   (let* ((current-activity-name
+           (when-let ((current-activity (activities-current)))
+             (activities-activity-name current-activity)))
+          (default (or current-activity-name (funcall 
activities-default-name-fn))))
      (list (read-string (format-prompt "New activity name" default) nil nil 
default)
            :forcep current-prefix-arg)))
   (when (and (not forcep) (member name (activities-names)))
diff --git a/activities.info b/activities.info
index 7afc20deee..61a7833b14 100644
--- a/activities.info
+++ b/activities.info
@@ -321,7 +321,9 @@ File: README.info,  Node: v03-pre,  Next: v02,  Up: 
Changelog
 4.1 v0.3-pre
 ============
 
-Nothing new yet.
+*Additions*
+   • Offer current activity name by default when redefining an activity
+     with ‘activities-new’.
 
 
 File: README.info,  Node: v02,  Next: v013,  Prev: v03-pre,  Up: Changelog
@@ -390,11 +392,11 @@ Node: Bookmarks8301
 Node: FAQ8653
 Node: Changelog11729
 Node: v03-pre11920
-Node: v0212030
-Node: v01312526
-Node: v01212675
-Node: v01112852
-Node: v0113015
+Node: v0212131
+Node: v01312627
+Node: v01212776
+Node: v01112953
+Node: v0113116
 
 End Tag Table