diff lisp/net/rcirc.el @ 103915:b22ca6941b7b

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

--- a/lisp/net/rcirc.el	Wed Jul 15 12:29:48 2009 +0000
+++ b/lisp/net/rcirc.el	Wed Jul 15 15:07:39 2009 +0000
@@ -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