Mercurial > emacs
changeset 103915:b22ca6941b7b
* net/rcirc.el (rcirc): Use history variables.
(rcirc-server-name-history, rcirc-nick-name-history)
(rcirc-server-port-history): New variables.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 15 Jul 2009 15:07:39 +0000 |
| parents | 49527a6bbe0b |
| children | 9653887b5cd0 |
| files | lisp/ChangeLog lisp/net/rcirc.el |
| diffstat | 2 files changed, 21 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jul 15 12:29:48 2009 +0000 +++ b/lisp/ChangeLog Wed Jul 15 15:07:39 2009 +0000 @@ -1,3 +1,9 @@ +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):
--- 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