Mercurial > hg > xemacs-beta
diff lisp/comint/telnet.el @ 8:4b173ad71786 r19-15b5
Import from CVS: tag r19-15b5
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:47:35 +0200 |
| parents | 27bc7f280385 |
| children | bcdc7deadc19 |
line wrap: on
line diff
--- a/lisp/comint/telnet.el Mon Aug 13 08:47:16 2007 +0200 +++ b/lisp/comint/telnet.el Mon Aug 13 08:47:35 2007 +0200 @@ -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 "[@>] *"))