Do most of the coding system setup earlier

* src/process.c (Fmake_network_process): Set the read/write
coding systems here, so that special bindings work.
(Fmake_network_process): Complete the coding system setup here.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el
index 8bd35a53778..2b552df69d9 100644
--- a/lisp/url/url-gw.el
+++ b/lisp/url/url-gw.el
@@ -246,7 +246,7 @@ overriding the value of `url-gateway-method'."
                            :type gw-method
                            ;; Use non-blocking socket if we can.
                            :nowait (featurep 'make-network-process
-                                                  '(:nowait t))))
+                                             '(:nowait t))))
                          (`socks
                           (socks-open-network-stream name buffer host service))
                          (`telnet
@@ -256,6 +256,7 @@ overriding the value of `url-gateway-method'."
                          (_
                           (error "Bad setting of url-gateway-method: %s"
                                  url-gateway-method))))))
+      (message "Coding system: %s" (process-coding-system conn))
       conn)))
 
 (provide 'url-gw)