From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 16 Feb 2016 02:01:05 +0000 (+1100)
Subject: Do most of the coding system setup earlier
X-Git-Tag: emacs-26.0.90~2520^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f3441cc3335b5faf7cb52458256dbbbaaaf9fa7;p=emacs.git

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.
---

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)
diff --git a/src/process.c b/src/process.c
index f1c066f4671..77837834916 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3004,8 +3004,6 @@ void set_network_socket_coding_system (Lisp_Object proc)
     }
   pset_encode_coding_system (p, val);
 
-  setup_process_coding_systems (proc);
-
   pset_decoding_buf (p, empty_unibyte_string);
   p->decoding_carryover = 0;
   pset_encoding_buf (p, empty_unibyte_string);
@@ -3321,7 +3319,7 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
   if (inch > max_process_desc)
     max_process_desc = inch;
 
-  set_network_socket_coding_system (proc);
+  setup_process_coding_systems (proc);
 
 #ifdef HAVE_GNUTLS
   /* Continue the asynchronous connection. */
@@ -3897,6 +3895,8 @@ usage: (make-network-process &rest ARGS)  */)
   p->gnutls_boot_parameters = tem;
 #endif
 
+  set_network_socket_coding_system (proc);
+
   unbind_to (count, Qnil);
 
   /* :server BOOL */