procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/rcirc.el (rcirc-prompt-for-encryption): Simplify.

Browse source
This commit is contained in:
Noam Postavsky 2019-06-16 13:51:20 -04:00
parent f4f165f782
commit 96ebbf44b0
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/rcirc.el
View file

@ -620,13 +620,12 @@ If ARG is non-nil, instead prompt for connection parameters."
(defun rcirc-prompt-for-encryption (server-plist)
"Prompt the user for the encryption method to use.
SERVER-PLIST is the property list for the server."
(let ((msg "Encryption (default %s): ")
(choices '("plain" "tls"))
(let ((choices '("plain" "tls"))
(default (or (plist-get server-plist :encryption)
'plain)))
"plain")))
(intern
(completing-read (format msg default)
choices nil t nil nil (symbol-name default)))))
(completing-read (format "Encryption (default %s): " default)
choices nil t nil nil default))))
(defun rcirc-keepalive ()
"Send keep alive pings to active rcirc processes.