;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon Aug 16 14:52:56 1993
;;; from file /gd/gnu/emacs/19.0/lisp/tcp.el
;;; emacs version 19.18.5.
;;; 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 "This file was compiled for Emacs 19"))

(provide (quote tcp))
(defvar tcp-program-name "tcp" "\
*The name of the program emulating open-network-stream function.")
(defalias 'open-network-stream #[(name buffer host service) "À	\n;ƒ ‚ Æ!%È!ˆ)‡" [start-process name buffer tcp-program-name host service int-to-string proc process-kill-without-query] 7 "\
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."])