From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Nic James Ferrier Newsgroups: gmane.emacs.devel Subject: Re: small rcirc suggestion Date: Fri, 17 Nov 2006 10:51:26 +0000 Message-ID: <87ac2qjqhd.fsf@tapsellferrier.co.uk> References: <874pt1uggm.fsf@tapsellferrier.co.uk> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1163761392 6060 80.91.229.2 (17 Nov 2006 11:03:12 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 17 Nov 2006 11:03:12 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Nov 17 12:03:10 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Gl1Up-00053h-Bs for ged-emacs-devel@m.gmane.org; Fri, 17 Nov 2006 12:03:00 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gl1Up-0004ny-18 for ged-emacs-devel@m.gmane.org; Fri, 17 Nov 2006 06:02:59 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Gl1UW-0004lK-KN for emacs-devel@gnu.org; Fri, 17 Nov 2006 06:02:40 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Gl1UU-0004iR-2A for emacs-devel@gnu.org; Fri, 17 Nov 2006 06:02:39 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gl1UT-0004iD-OU for emacs-devel@gnu.org; Fri, 17 Nov 2006 06:02:37 -0500 Original-Received: from [81.187.188.218] (helo=owls-house.tapsellferrier.co.uk) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1Gl1US-0008W4-Us for emacs-devel@gnu.org; Fri, 17 Nov 2006 06:02:37 -0500 Original-Received: from nicferrier.tapsellferrier.co.uk ([172.31.50.1] helo=localhost) by owls-house.tapsellferrier.co.uk with esmtp (Exim 4.60 #1 (Debian)) id 1Gl1Mn-0002dw-Vf for ; Fri, 17 Nov 2006 10:54:42 +0000 Original-Received: from nferrier by localhost with local (Exim 4.50) id 1Gl1Je-0003eM-4B for emacs-devel@gnu.org; Fri, 17 Nov 2006 10:51:26 +0000 Original-To: emacs-devel@gnu.org In-Reply-To: <874pt1uggm.fsf@tapsellferrier.co.uk> (Nic James Ferrier's message of "Wed\, 15 Nov 2006 10\:55\:37 +0000") X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:62393 Archived-At: Whoops! I sent a patch to my own patch and it was very wrong. Here's another patch - done right this time: --- src/emacs-snapshot-20061111/lisp/net/rcirc.el 2006-09-12 23:05:57.000000000 +0100 +++ rcirc.el 2006-11-15 12:59:10.000000000 +0000 @@ -319,13 +319,15 @@ (defconst rcirc-id-string (concat "rcirc on GNU Emacs " emacs-version)) (defvar rcirc-startup-channels nil) + +(defvar rcirc-server-history nil) ;;;###autoload (defun rcirc (arg) "Connect to IRC. If ARG is non-nil, prompt for a server to connect to." (interactive "P") (if arg - (let* ((server (read-string "IRC Server: " rcirc-default-server)) + (let* ((server (read-string "IRC Server: " rcirc-default-server 'rcirc-server-history rcirc-default-server)) (port (read-string "IRC Port: " (number-to-string rcirc-default-port))) (nick (read-string "IRC Nick: " rcirc-default-nick)) (channels (split-string Sorry for any confusion and thanks to rms for reading my original patch closely. -- Nic Ferrier http://www.tapsellferrier.co.uk for all your tapsell ferrier needs