[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog net/rcirc.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog net/rcirc.el |
Date: |
Wed, 15 Jul 2009 15:07:44 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog net/rcirc.el,
Chong Yidong <=