X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcode-process.el;h=09279c860c59e4e69c1a69573502e24cc09eab13;hb=294a7d3a7e88176d3f5c2b474b9786c00c222de7;hp=88902b1f922ef1367eec89b6ed31fca99691fd1f;hpb=716cfba952c1dc0d2cf5c968971f3780ba728a89;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/code-process.el b/lisp/code-process.el
index 88902b1..09279c8 100644
--- a/lisp/code-process.el
+++ b/lisp/code-process.el
@@ -125,6 +125,9 @@ you quit again before the process exits."
 	    (cond ((consp ret)
 		   (setq cs-r (car ret)
 			 cs-w (cdr ret)))
+		  ((null ret)
+		   (setq cs-r buffer-file-coding-system
+			 cs-w buffer-file-coding-system))
 		  ((find-coding-system ret)
 		   (setq cs-r ret
 			 cs-w ret))))
@@ -192,7 +195,7 @@ See also the function `find-operation-coding-system'.")
 
 (defun open-network-stream (name buffer host service &optional protocol)
   "Open a TCP connection for a service to a host.
-Return a subprocess-object to represent the connection.
+Return a process 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.
@@ -208,7 +211,7 @@ Fifth argument PROTOCOL is a network protocol.  Currently 'tcp
  (Transmission Control Protocol) and 'udp (User Datagram Protocol) are
  supported.  When omitted, 'tcp is assumed.
 
-Ouput via `process-send-string' and input via buffer or filter (see
+Output via `process-send-string' and input via buffer or filter (see
 `set-process-filter') are stream-oriented.  That means UDP datagrams are
 not guaranteed to be sent and received in discrete packets. (But small
 datagrams around 500 bytes that are not truncated by `process-send-string'