Mercurial > hg > xemacs-beta

comparison lisp/comint/telnet.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 4b173ad71786
children 9ee227acff29
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
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)