[elpa] externals-release/activities 997c08b7a9 087/103: Change: (activities-completing-read) Accept DEFAULT keyed argument

[ELPA Syncer]

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

    Change: (activities-completing-read) Accept DEFAULT keyed argument
---
 activities.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/activities.el b/activities.el
index a39af27652..328fb8b8f2 100644
--- a/activities.el
+++ b/activities.el
@@ -633,11 +633,11 @@ activity's name is NAME."
           (current-buffer)))))
 
 (cl-defun activities-completing-read
-    (&key (activities activities-activities) (prompt "Open activity: "))
+    (&key (activities activities-activities) (prompt "Open activity: ") 
default)
   "Return an activity read with completion from ACTIVITIES.
-PROMPT is passed to `completing-read', which see."
+PROMPT and DEFAULT are passed to `completing-read', which see."
   (let* ((names (activities-names activities))
-         (name (completing-read prompt names nil t nil 
'activities-completing-read-history)))
+         (name (completing-read prompt names nil t nil 
'activities-completing-read-history default)))
     (or (map-elt activities-activities name)
         (make-activities-activity :name name))))