[Emacs-diffs] emacs/lisp ChangeLog net/rcirc.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/04/18 03:45:00

Modified files:
        lisp           : ChangeLog 
        lisp/net       : rcirc.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15598&r2=1.15599
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/rcirc.el?cvsroot=emacs&r1=1.49&r2=1.50

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15598
retrieving revision 1.15599
diff -u -b -r1.15598 -r1.15599
--- ChangeLog   18 Apr 2009 03:39:28 -0000      1.15598
+++ ChangeLog   18 Apr 2009 03:44:57 -0000      1.15599
@@ -1,3 +1,7 @@
+2009-04-18  Yann Hodique  <address@hidden>  (tiny change)
+
+       * net/rcirc.el (rcirc): Use correct property names (Bug#3037).
+
 2009-04-18  Chong Yidong  <address@hidden>
 
        * thingatpt.el (thing-at-point-bounds-of-list-at-point): New

Index: net/rcirc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/rcirc.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- net/rcirc.el        5 Jan 2009 03:22:47 -0000       1.49
+++ net/rcirc.el        18 Apr 2009 03:45:00 -0000      1.50
@@ -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