Function: telnet-check-software-type-initialize

telnet-check-software-type-initialize is a byte-compiled function defined in telnet.el.gz.

Signature

(telnet-check-software-type-initialize STRING)

Documentation

Try to put correct initializations in. Needs work.

Source Code

;; Defined in /usr/src/emacs/lisp/net/telnet.el.gz
;;maybe should have a flag for when have found type
(defun telnet-check-software-type-initialize (string)
  "Try to put correct initializations in.  Needs work."
  (let ((case-fold-search t))
    (cond ((string-match "unix" string)
	 (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  "[@>]*"))
	((string-match "its" string)
	 (setq telnet-prompt-pattern  "^[^*>\n]*[*>] *"))
	((string-match "explorer" string)  ;;explorer telnet needs work
	 (setq telnet-replace-c-g ?\n))))
  (setq comint-prompt-regexp telnet-prompt-pattern))