emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master f500749 1/2: Clean up debugging code


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master f500749 1/2: Clean up debugging code
Date: Mon, 22 Feb 2016 04:20:22 +0000

branch: master
commit f50074922e2f68c66f3db848495bc5f13f32ae22
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 src/process.c |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/process.c b/src/process.c
index c881a20..7679f69 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]