[elpa] externals/crdt 44068ae 63/80: add port argument to CRDT-SHARE-BUFFER

[ELPA Syncer]

branch: externals/crdt
commit 44068ae505adf2c3a7bdbf6723a25fc45d6d1666
Author: Qiantan Hong <qhong@mit.edu>
Commit: Qiantan Hong <qhong@mit.edu>

    add port argument to CRDT-SHARE-BUFFER
---
 crdt.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/crdt.el b/crdt.el
index 5bd3d07..c2d5fd5 100644
--- a/crdt.el
+++ b/crdt.el
@@ -1495,10 +1495,12 @@ Otherwise, return the list of names for client 
sessions."
   (cl-find name crdt--session-list
            :test 'equal :key #'crdt--session-name))
 
-(defun crdt-share-buffer (session-name)
+(defun crdt-share-buffer (session-name &optional port)
   "Share the current buffer in the CRDT session with name SESSION-NAME.
-Create a new one if such a CRDT session doesn't exist.
-If SESSION-NAME is empty, use the buffer name of the current buffer."
+Create a new one if such a CRDT session doesn't exist.  When PORT
+is non-NIL use when creating a new session, otherwise prompt
+from minibuffer.  If SESSION-NAME is empty, use the buffer name
+of the current buffer."
   (interactive
    (progn
      (when (and crdt-mode crdt--session)
@@ -1516,7 +1518,7 @@ If SESSION-NAME is empty, use the buffer name of the 
current buffer."
   (let ((session (crdt--get-session session-name)))
     (if session
         (crdt--share-buffer (current-buffer) session)
-      (let ((port (read-from-minibuffer "Create new session on port (default 
6530): " nil nil t nil "6530")))
+      (let ((port (or port (read-from-minibuffer "Create new session on port 
(default 6530): " nil nil t nil "6530"))))
         (when (not (numberp port))
           (error "Port must be a number"))
         (crdt--share-buffer (current-buffer) (crdt-new-session port 
session-name))))))