diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index f63237f58ca..1f312843f08 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -375,16 +375,16 @@ If ARG is non-nil, instead prompt for connection parameters." | |||
| 375 | (server-plist (cdr (assoc-string server rcirc-server-alist))) | 375 | (server-plist (cdr (assoc-string server rcirc-server-alist))) |
| 376 | (port (read-string "IRC Port: " | 376 | (port (read-string "IRC Port: " |
| 377 | (number-to-string | 377 | (number-to-string |
| 378 | (or (plist-get server-plist 'port) | 378 | (or (plist-get server-plist :port) |
| 379 | rcirc-default-port)))) | 379 | rcirc-default-port)))) |
| 380 | (nick (read-string "IRC Nick: " | 380 | (nick (read-string "IRC Nick: " |
| 381 | (or (plist-get server-plist 'nick) | 381 | (or (plist-get server-plist :nick) |
| 382 | rcirc-default-nick))) | 382 | rcirc-default-nick))) |
| 383 | (channels (split-string | 383 | (channels (split-string |
| 384 | (read-string "IRC Channels: " | 384 | (read-string "IRC Channels: " |
| 385 | (mapconcat 'identity | 385 | (mapconcat 'identity |
| 386 | (plist-get server-plist | 386 | (plist-get server-plist |
| 387 | 'channels) | 387 | :channels) |
| 388 | " ")) | 388 | " ")) |
| 389 | "[, ]+" t))) | 389 | "[, ]+" t))) |
| 390 | (rcirc-connect server port nick rcirc-default-user-name | 390 | (rcirc-connect server port nick rcirc-default-user-name |