Mercurial > emacs
changeset 103015:5c993497b6ee
* net/rcirc.el (rcirc): Use correct property names (Bug#3037).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 18 Apr 2009 03:44:57 +0000 |
| parents | 3df429718fa4 |
| children | 15551118906e |
| files | lisp/ChangeLog lisp/net/rcirc.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Apr 18 03:39:28 2009 +0000 +++ b/lisp/ChangeLog Sat Apr 18 03:44:57 2009 +0000 @@ -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
--- a/lisp/net/rcirc.el Sat Apr 18 03:39:28 2009 +0000 +++ b/lisp/net/rcirc.el Sat Apr 18 03:44:57 2009 +0000 @@ -375,16 +375,16 @@ (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