Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(rcirc-server-name-history, rcirc-nick-name-history)
(rcirc-server-port-history): New variables.
This commit is contained in:
Chong Yidong 2009-07-15 15:07:39 +00:00
parent bf974dc9cc
commit c0db3477b4
2 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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):

18
lisp/net/rcirc.el
View file

@ -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