diff options
| author | Deniz Dogan <deniz@dogan.se> | 2011-06-05 21:39:17 +0200 |
|---|---|---|
| committer | Deniz Dogan <deniz@dogan.se> | 2011-06-05 21:39:17 +0200 |
| commit | 7e821d0da8ac3e8a96071bd1198dc271f56460e9 (patch) | |
| tree | 44d574d3fcabb4cdc317bdb61868c63595151c2d /lisp/net/rcirc.el | |
| parent | a059fe247c6ba6be105986b229bf2d8374f40583 (diff) | |
| download | emacs-7e821d0da8ac3e8a96071bd1198dc271f56460e9.tar.gz | |
* lisp/net/rcirc.el (rcirc-prompt-for-encryption): Fix bug introduced in last change.
Diffstat (limited to 'lisp/net/rcirc.el')
| -rw-r--r-- | lisp/net/rcirc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index bf4faba5197..70190867e89 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -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. |