aboutsummaryrefslogtreecommitdiffstats
path: root/src/process.c
diff options
context:
space:
mode:
authorLars Ingebrigtsen2016-02-22 15:18:41 +1100
committerLars Ingebrigtsen2016-02-22 15:18:41 +1100
commitf50074922e2f68c66f3db848495bc5f13f32ae22 (patch)
tree12947f1b57d44686fe75fdf5922351674e675088 /src/process.c
parentf577f59a5216bc7708bb840f5eac3e82950e81e8 (diff)
downloademacs-f50074922e2f68c66f3db848495bc5f13f32ae22.tar.gz
emacs-f50074922e2f68c66f3db848495bc5f13f32ae22.zip
Clean up debugging code
* src/process.c (Fmake_network_process): Remove debugging printf. (wait_for_socket_fds, wait_while_connecting) (wait_for_tls_negotiation): Remove newlines from messages.
Diffstat (limited to 'src/process.c')
-rw-r--r--src/process.c7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/process.c b/src/process.c
index c881a20790e..7679f69b989 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3787,7 +3787,6 @@ usage: (make-network-process &rest ARGS) */)
3787 { 3787 {
3788 int ret; 3788 int ret;
3789 3789
3790 printf("Async DNS for '%s'\n", SSDATA (host));
3791 dns_requests = xmalloc (sizeof (struct gaicb*)); 3790 dns_requests = xmalloc (sizeof (struct gaicb*));
3792 dns_requests[0] = xmalloc (sizeof (struct gaicb)); 3791 dns_requests[0] = xmalloc (sizeof (struct gaicb));
3793 dns_requests[0]->ar_name = strdup (SSDATA (host)); 3792 dns_requests[0]->ar_name = strdup (SSDATA (host));
@@ -4743,7 +4742,7 @@ wait_for_socket_fds (Lisp_Object process, char *name)
4743 while (XPROCESS (process)->infd < 0 && 4742 while (XPROCESS (process)->infd < 0 &&
4744 EQ (XPROCESS (process)->status, Qconnect)) 4743 EQ (XPROCESS (process)->status, Qconnect))
4745 { 4744 {
4746 add_to_log ("Waiting for socket from %s...\n", build_string (name)); 4745 add_to_log ("Waiting for socket from %s...", build_string (name));
4747 wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0); 4746 wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
4748 } 4747 }
4749} 4748}
@@ -4753,7 +4752,7 @@ wait_while_connecting (Lisp_Object process)
4753{ 4752{
4754 while (EQ (XPROCESS (process)->status, Qconnect)) 4753 while (EQ (XPROCESS (process)->status, Qconnect))
4755 { 4754 {
4756 add_to_log ("Waiting for connection...\n"); 4755 add_to_log ("Waiting for connection...");
4757 wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0); 4756 wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
4758 } 4757 }
4759} 4758}
@@ -4765,7 +4764,7 @@ wait_for_tls_negotiation (Lisp_Object process)
4765 while (XPROCESS (process)->gnutls_p && 4764 while (XPROCESS (process)->gnutls_p &&
4766 XPROCESS (process)->gnutls_initstage != GNUTLS_STAGE_READY) 4765 XPROCESS (process)->gnutls_initstage != GNUTLS_STAGE_READY)
4767 { 4766 {
4768 add_to_log ("Waiting for TLS...\n"); 4767 add_to_log ("Waiting for TLS...");
4769 wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0); 4768 wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
4770 } 4769 }
4771#endif 4770#endif