/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.545 by kfstorm, Tue May 28 22:04:14 2002 UTC revision 1.546 by rms, Thu May 30 17:12:15 2002 UTC
# Line 4263  See also `normal-erase-is-backspace'." Line 4263  See also `normal-erase-is-backspace'."
4263                 (if normal-erase-is-backspace "forward" "backward"))))                 (if normal-erase-is-backspace "forward" "backward"))))
4264    
4265    
 ;;; make-network-process wrappers  
   
 (if (featurep 'make-network-process)  
     (progn  
   
 (defun open-network-stream (name buffer host service)  
   "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, or its IP address.  
 Fourth arg SERVICE is name of the service desired, or an integer  
 specifying a port number to connect to."  
   (make-network-process :name name :buffer buffer  
                         :host host :service service))  
   
 (defun open-network-stream-nowait (name buffer host service &optional sentinel filter)  
   "Initiate connection to a TCP connection for a service to a host.  
 It returns nil if non-blocking connects are not supported; otherwise,  
 it returns a subprocess-object to represent the connection.  
   
 This function is similar to `open-network-stream', except that this  
 function returns before the connection is established.  When the  
 connection is completed, the sentinel function will be called with  
 second arg matching `open' (if successful) or `failed' (on error).  
   
 Args are NAME BUFFER HOST SERVICE SENTINEL FILTER.  
 NAME, BUFFER, HOST, and SERVICE are as for `open-network-stream'.  
 Optional args, SENTINEL and FILTER specifies the sentinel and filter  
 functions to be used for this network stream."  
   (if (featurep 'make-network-process  '(:nowait t))  
       (make-network-process :name name :buffer buffer :nowait t  
                             :host host :service service  
                             :filter filter :sentinel sentinel)))  
   
 (defun open-network-stream-server (name buffer service &optional sentinel filter)  
   "Create a network server process for a TCP service.  
 It returns nil if server processes are not supported; otherwise,  
 it returns a subprocess-object to represent the server.  
   
 When a client connects to the specified service, a new subprocess  
 is created to handle the new connection, and the sentinel function  
 is called for the new process.  
   
 Args are NAME BUFFER SERVICE SENTINEL FILTER.  
 NAME is name for the server process.  Client processes are named by  
 appending the ip-address and port number of the client to NAME.  
 BUFFER is the buffer (or buffer-name) to associate with the server  
 process.  Client processes will not get a buffer if a process filter  
 is specified or BUFFER is nil; otherwise, a new buffer is created for  
 the client process.  The name is similar to the process name.  
 Third arg SERVICE is name of the service desired, or an integer  
 specifying a port number to connect to.  It may also be t to selected  
 an unused port number for the server.  
 Optional args, SENTINEL and FILTER specifies the sentinel and filter  
 functions to be used for the client processes; the server process  
 does not use these function."  
   (if (featurep 'make-network-process '(:server t))  
       (make-network-process :name name :buffer buffer  
                             :service service :server t :noquery t  
                             :sentinel sentinel :filter filter)))  
   
 ))  ;; (featurep 'make-network-process)  
   
   
 ;; compatibility  
   
 (defun process-kill-without-query (process &optional flag)  
   "Say no query needed if PROCESS is running when Emacs is exited.  
 Optional second argument if non-nil says to require a query.  
 Value is t if a query was formerly required.    
 New code should not use this function; use `process-query-on-exit-flag'  
 or `set-process-query-on-exit-flag' instead."  
   (let ((old (process-query-on-exit-flag process)))  
     (set-process-query-on-exit-flag process nil)  
     old))  
   
 ;;; Misc  
   
 (defun byte-compiling-files-p ()  
   "Return t if currently byte-compiling files."  
   (and (boundp 'byte-compile-current-file)  
        (stringp byte-compile-current-file)))  
   
   
4266  ;; Minibuffer prompt stuff.  ;; Minibuffer prompt stuff.
4267    
4268  ;(defun minibuffer-prompt-modification (start end)  ;(defun minibuffer-prompt-modification (start end)

Legend:
Removed from v.1.545  
changed lines
  Added in v.1.546

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26