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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/07/15 15:07:44

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

Log message:
        * net/rcirc.el (rcirc): Use history variables.
        (rcirc-server-name-history, rcirc-nick-name-history)
        (rcirc-server-port-history): New variables.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15811
retrieving revision 1.15812
diff -u -b -r1.15811 -r1.15812
--- ChangeLog   15 Jul 2009 12:29:48 -0000      1.15811
+++ ChangeLog   15 Jul 2009 15:07:39 -0000      1.15812
@@ -1,3 +1,9 @@
+2009-07-15  Jari Aalto  <address@hidden>
+
+       * net/rcirc.el (rcirc): Use history variables.
+       (rcirc-server-name-history, rcirc-nick-name-history)
+       (rcirc-server-port-history): New variables.
+
 2009-07-15  Kenichi Handa  <address@hidden>
 
        * international/mule-cmds.el (set-language-environment-charset):

Index: net/rcirc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/rcirc.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- net/rcirc.el        18 Apr 2009 03:45:00 -0000      1.50
+++ net/rcirc.el        15 Jul 2009 15:07:43 -0000      1.51
@@ -359,6 +359,15 @@
 
 (defvar rcirc-startup-channels nil)
 
+(defvar rcirc-server-name-history nil
+  "History variable for \\[rcirc] call.")
+
+(defvar rcirc-server-port-history nil
+  "History variable for \\[rcirc] call.")
+
+(defvar rcirc-nick-name-history nil
+  "History variable for \\[rcirc] call.")
+
 ;;;###autoload
 (defun rcirc (arg)
   "Connect to all servers in `rcirc-server-alist'.
@@ -371,15 +380,18 @@
       (let* ((server (completing-read "IRC Server: "
                                      rcirc-server-alist
                                      nil nil
-                                     (caar rcirc-server-alist)))
+                                     (caar rcirc-server-alist)
+                                     'rcirc-server-name-history))
             (server-plist (cdr (assoc-string server rcirc-server-alist)))
             (port (read-string "IRC Port: "
                                (number-to-string
                                 (or (plist-get server-plist :port)
-                                    rcirc-default-port))))
+                                    rcirc-default-port))
+                               'rcirc-server-port-history))
             (nick (read-string "IRC Nick: "
                                (or (plist-get server-plist :nick)
-                                   rcirc-default-nick)))
+                                   rcirc-default-nick)
+                               'rcirc-nick-name-history))
             (channels (split-string
                        (read-string "IRC Channels: "
                                     (mapconcat 'identity