Mercurial > hg > xemacs-beta

comparison lisp/comint/telnet.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents 27bc7f280385
children bcdc7deadc19
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
53 53
54 (require 'comint) 54 (require 'comint)
55 55
56 (defvar telnet-new-line "\r") 56 (defvar telnet-new-line "\r")
57 (defvar telnet-mode-map nil) 57 (defvar telnet-mode-map nil)
58 (defvar telnet-prompt-pattern "^[^#$%>\n]*[#$%>] *") 58 (defvar telnet-default-prompt-pattern "^[^#$%>\n]*[#$%>] *")
59 (defvar telnet-prompt-pattern telnet-default-prompt-pattern)
60
59 (defvar telnet-replace-c-g nil) 61 (defvar telnet-replace-c-g nil)
60 (make-variable-buffer-local 62 (make-variable-buffer-local
61 (defvar telnet-remote-echoes t 63 (defvar telnet-remote-echoes t
62 "True if the telnet process will echo input.")) 64 "True if the telnet process will echo input."))
63 (make-variable-buffer-local 65 (make-variable-buffer-local
115 ;;maybe should have a flag for when have found type 117 ;;maybe should have a flag for when have found type
116 (defun telnet-check-software-type-initialize (string) 118 (defun telnet-check-software-type-initialize (string)
117 "Tries to put correct initializations in. Needs work." 119 "Tries to put correct initializations in. Needs work."
118 (let ((case-fold-search t)) 120 (let ((case-fold-search t))
119 (cond ((string-match "unix" string) 121 (cond ((string-match "unix" string)
120 (setq telnet-prompt-pattern comint-prompt-pattern) 122 (setq telnet-prompt-pattern comint-prompt-regexp)
121 (setq telnet-new-line "\n")) 123 (setq telnet-new-line "\n"))
122 ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g 124 ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g
123 (setq telnet-prompt-pattern "[@>] *")) 125 (setq telnet-prompt-pattern "[@>] *"))
124 ((string-match "its" string) 126 ((string-match "its" string)
125 (setq telnet-prompt-pattern "^[^*>\n]*[*>] *")) 127 (setq telnet-prompt-pattern "^[^*>\n]*[*>] *"))