From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 22 Feb 2016 04:18:41 +0000 (+1100)
Subject: Clean up debugging code
X-Git-Tag: emacs-26.0.90~2519
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f50074922e2f68c66f3db848495bc5f13f32ae22;p=emacs.git

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

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)  */)
     {
       int ret;
 
-      printf("Async DNS for '%s'\n", SSDATA (host));
       dns_requests = xmalloc (sizeof (struct gaicb*));
       dns_requests[0] = xmalloc (sizeof (struct gaicb));
       dns_requests[0]->ar_name = strdup (SSDATA (host));
@@ -4743,7 +4742,7 @@ wait_for_socket_fds (Lisp_Object process, char *name)
   while (XPROCESS (process)->infd < 0 &&
 	 EQ (XPROCESS (process)->status, Qconnect))
     {
-      add_to_log ("Waiting for socket from %s...\n", build_string (name));
+      add_to_log ("Waiting for socket from %s...", build_string (name));
       wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
     }
 }
@@ -4753,7 +4752,7 @@ wait_while_connecting (Lisp_Object process)
 {
   while (EQ (XPROCESS (process)->status, Qconnect))
     {
-      add_to_log ("Waiting for connection...\n");
+      add_to_log ("Waiting for connection...");
       wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
     }
 }
@@ -4765,7 +4764,7 @@ wait_for_tls_negotiation (Lisp_Object process)
   while (XPROCESS (process)->gnutls_p &&
 	 XPROCESS (process)->gnutls_initstage != GNUTLS_STAGE_READY)
     {
-      add_to_log ("Waiting for TLS...\n");
+      add_to_log ("Waiting for TLS...");
       wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
     }
 #endif