Mercurial > emacs

comparison lisp/net/rcirc.el @ 103015:5c993497b6ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 a9dc0e7c3f2b
children b22ca6941b7b
comparison
equal deleted inserted replaced
103014:3df429718fa4 103015:5c993497b6ee
373 nil nil 373 nil nil
374 (caar rcirc-server-alist))) 374 (caar rcirc-server-alist)))
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
391 rcirc-default-full-name 391 rcirc-default-full-name
392 channels)) 392 channels))