Commit c0db3477 authored by Chong Yidong's avatar Chong Yidong

* net/rcirc.el (rcirc): Use history variables.

(rcirc-server-name-history, rcirc-nick-name-history)
(rcirc-server-port-history): New variables.
parent bf974dc9
2009-07-15 Jari Aalto <jari.aalto@cante.net>
* 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 <handa@m17n.org>
* international/mule-cmds.el (set-language-environment-charset):
......
......@@ -359,6 +359,15 @@ and the cdr part is used for encoding."
(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 @@ If ARG is non-nil, instead prompt for connection parameters."
(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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment