Commit 7e821d0d authored by Deniz Dogan's avatar Deniz Dogan

* lisp/net/rcirc.el (rcirc-prompt-for-encryption): Fix bug introduced in last change.

parent a059fe24
2011-06-05 Deniz Dogan <deniz@dogan.se>
* net/rcirc.el (rcirc-prompt-for-encryption): Fix bug introduced
in last change.
2011-06-05 Deniz Dogan <deniz@dogan.se>
* net/rcirc.el (rcirc-prompt-for-encryption): New function.
......
......@@ -594,10 +594,10 @@ SERVER-PLIST is the property list for the server."
(let ((msg "Encryption (default %s): ")
(choices '("plain" "tls"))
(default (or (plist-get server-plist :encryption)
"plain")))
'plain)))
(intern
(completing-read (format msg default)
choices nil t "" nil default))))
choices nil t nil nil (symbol-name default)))))
(defun rcirc-keepalive ()
"Send keep alive pings to active rcirc processes.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment