Function: url-do-terminal-emulator

url-do-terminal-emulator is a byte-compiled function defined in url-misc.el.gz.

Signature

(url-do-terminal-emulator TYPE SERVER PORT USER)

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-misc.el.gz
(defun url-do-terminal-emulator (type server port user)
  (switch-to-buffer
   (apply
    'make-term
    (format "%s%s" (if user (concat user "@") "") server)
    (cond ((eq type 'rlogin) "rlogin")
	  ((eq type 'telnet) "telnet")
	  ((eq type 'tn3270) "tn3270")
	  (t (error "Unknown terminal emulator required: %s" type)))
    nil
    (cond ((eq type 'rlogin)
           (unless url-misc-rlogin-obsolete-warned-once
             (lwarn 'url :error "Method `rlogin' is obsolete")
             (setq url-misc-rlogin-obsolete-warned-once t))
	   (if user (list server "-l" user) (list server)))
	  ((eq type 'telnet)
	   (if port (list server port) (list server)))
	  ((eq type 'tn3270)
	   (list server))))))