From xemacs-m  Wed Dec 18 12:50:45 1996
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id MAA03982 for <xemacs-beta@xemacs.org>; Wed, 18 Dec 1996 12:50:43 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id LAA16112; Wed, 18 Dec 1996 11:00:37 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Re: telnet broken 19.15
References: <E0vaQeW-0006tZ-00@chekov.ctd.comsat.com>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Neal Becker's message of Wed, 18 Dec 1996 13:23:36 -0500
Mime-Version: 1.0 (generated by tm-edit 7.96)
Content-Type: text/plain; charset=US-ASCII
Date: 18 Dec 1996 11:00:36 -0800
Message-ID: <m2sp53y8x7.fsf@altair.xemacs.org>
Lines: 42
X-Mailer: Red Gnus v0.72/XEmacs 19.15

>>>>> "Neal" == Neal Becker <neal@ctd.comsat.com> writes:

Neal> M-x telnet is broken.  I get:

Neal> (3) (error/warning) Error in process filter: (void-variable
Neal>     telnet-default-prompt-pattern)

Yup.

Index: telnet.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/comint/telnet.el,v
retrieving revision 1.1.1.3
diff -u -r1.1.1.3 telnet.el
--- telnet.el	1996/12/18 04:02:26	1.1.1.3
+++ telnet.el	1996/12/18 18:54:41
@@ -55,7 +55,9 @@
 
 (defvar telnet-new-line "\r")
 (defvar telnet-mode-map nil)
-(defvar telnet-prompt-pattern "^[^#$%>\n]*[#$%>] *")
+(defvar telnet-default-prompt-pattern "^[^#$%>\n]*[#$%>] *")
+(defvar telnet-prompt-pattern telnet-default-prompt-pattern)
+
 (defvar telnet-replace-c-g nil)
 (make-variable-buffer-local
  (defvar telnet-remote-echoes t
@@ -117,7 +119,7 @@
   "Tries to put correct initializations in.  Needs work."
   (let ((case-fold-search t))
     (cond ((string-match "unix" string)
-	   (setq telnet-prompt-pattern comint-prompt-pattern)
+	   (setq telnet-prompt-pattern comint-prompt-regexp)
 	   (setq telnet-new-line "\n"))
 	  ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g
 	   (setq telnet-prompt-pattern  "[@>] *"))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"That Bill Clinton.  He probably doesn't know how to log on to the
Internet."  -- Rush Limbaugh, noted Computer Expert

