;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:52:14 1995
;;; from file /gd/gnu/emacs/19.0/lisp/tcp.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/tcp.el' was compiled for Emacs 19"))


(provide (quote tcp))
#@66 *The name of the program emulating open-network-stream function.
(defvar tcp-program-name "tcp" (#$ . -497))
#@713 Open a TCP connection for a service to a host.
Returns a subprocess-object to represent the connection.
Input and output work as for subprocesses; `delete-process' closes it.
Args are NAME BUFFER HOST SERVICE.
NAME is name for process.  It is modified if necessary to make it unique.
BUFFER is the buffer (or buffer-name) to associate with the process.
 Process output goes at end of that buffer, unless you specify
 an output stream or filter function to handle the output.
 BUFFER may be also nil, meaning that this process is not associated
 with any buffer
Third arg is name of the host to connect to.
Fourth arg SERVICE is name of the service desired, or an integer
 specifying a port number to connect to.
(defalias 'open-network-stream #[(name buffer host service) "À	\n\f;ƒ ‚ Æ!%È!ˆ)‡" [start-process name buffer tcp-program-name host service int-to-string proc process-kill-without-query] 7 (#$ . 613)])