branch: externals/crdt
commit 3a78c8a6155a2ae8414d2a7686f8540b1cb7dd6d
Author: Qiantan Hong <qh...@alum.mit.edu>
Commit: Qiantan Hong <qh...@alum.mit.edu>
Improve settings form when CRDT-USE-STUNNEL is nil
also remove some debug printing
---
crdt.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/crdt.el b/crdt.el
index b92ded9422..639d4b8d81 100644
--- a/crdt.el
+++ b/crdt.el
@@ -2164,7 +2164,8 @@ Create a new one if such a CRDT session doesn't exist."
(crdt-read-settings
(format "*Settings for %s*" session-name)
`(("Port: " "6530" ,(crdt--settings-make-ensure-type
'numberp))
- ("Secure Port: " "6540" ,(crdt--settings-make-ensure-type
'numberp))
+ ("Secure Port: " ,(if crdt-use-stunnel "6540" "--")
+ ,(when crdt-use-stunnel
(crdt--settings-make-ensure-type 'numberp)))
("Session Name: " ,session-name
,(crdt--settings-make-ensure-nonempty session-name))
("Password: " "")
("Display Name: " ,crdt-default-name)
@@ -2426,7 +2427,6 @@ Join with DISPLAY-NAME."
(gnutls-boot-parameters
:type 'gnutls-x509pki
:hostname (url-host url))))))
- (message "%s" (process-status proc))
(unless (eq (process-status proc) 'open)
(signal 'file-error "Failed to establish TLS
connection."))
proc)
