Mercurial > hg > xemacs-beta

comparison lisp/comint/telnet.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 54cc21c15cbb
children 1ce6082ce73f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
124 ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g 124 ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g
125 (setq telnet-prompt-pattern "[@>] *")) 125 (setq telnet-prompt-pattern "[@>] *"))
126 ((string-match "its" string) 126 ((string-match "its" string)
127 (setq telnet-prompt-pattern "^[^*>\n]*[*>] *")) 127 (setq telnet-prompt-pattern "^[^*>\n]*[*>] *"))
128 ((string-match "explorer" string) ;;explorer telnet needs work 128 ((string-match "explorer" string) ;;explorer telnet needs work
129 (setq telnet-replace-c-g ?\n)) 129 (setq telnet-replace-c-g ?\n))))
130 (t
131 (setq telnet-prompt-pattern telnet-default-prompt-pattern))))
132 (setq comint-prompt-regexp telnet-prompt-pattern)) 130 (setq comint-prompt-regexp telnet-prompt-pattern))
133 131
134 (defun telnet-initial-filter (proc string) 132 (defun telnet-initial-filter (proc string)
135 ;For reading up to and including password; also will get machine type. 133 ;For reading up to and including password; also will get machine type.
136 (cond ((string-match "No such host" string) 134 (cond ((string-match "No such host" string)