mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

* net/rcirc.el (rcirc): Use correct property names (Bug#3037).

Browse Source
This commit is contained in:
Chong Yidong 2009-04-18 03:44:57 +00:00
parent 965b9376cf
commit d893706458
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-04-18 Yann Hodique <yann.hodique@gmail.com> (tiny change)
* net/rcirc.el (rcirc): Use correct property names (Bug#3037).
2009-04-18 Chong Yidong <cyd@stupidchicken.com>
* thingatpt.el (thing-at-point-bounds-of-list-at-point): New

6
lisp/net/rcirc.el
View File

@ -375,16 +375,16 @@ If ARG is non-nil, instead prompt for connection parameters."
(server-plist (cdr (assoc-string server rcirc-server-alist)))
(port (read-string "IRC Port: "
(number-to-string
(or (plist-get server-plist 'port)
(or (plist-get server-plist :port)
rcirc-default-port))))
(nick (read-string "IRC Nick: "
(or (plist-get server-plist 'nick)
(or (plist-get server-plist :nick)
rcirc-default-nick)))
(channels (split-string
(read-string "IRC Channels: "
(mapconcat 'identity
(plist-get server-plist
'channels)
:channels)
" "))
"[, ]+" t)))
(rcirc-connect server port nick rcirc-default-user-name