From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 22 Feb 2016 02:07:27 +0000 (+1100)
Subject: Add blocker warnings to the *Messages* buffer
X-Git-Tag: emacs-26.0.90~2520^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc4457d7143c44514810b971e103daedcea404ec;p=emacs.git

Add blocker warnings to the *Messages* buffer

* src/process.c (wait_for_socket_fds): Add warning to the log.
(wait_while_connecting): Ditto.
(wait_for_tls_negotiation): Ditto.
---

diff --git a/src/process.c b/src/process.c
index 1f83327b3c2..79f807284a0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4733,7 +4733,7 @@ wait_for_socket_fds (Lisp_Object process, char *name)
   while (XPROCESS (process)->infd < 0 &&
 	 EQ (XPROCESS (process)->status, Qconnect))
     {
-      printf("Waiting for socket from %s...\n", name);
+      add_to_log ("Waiting for socket from %s...\n", name);
       wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
     }
 }
@@ -4743,7 +4743,7 @@ wait_while_connecting (Lisp_Object process)
 {
   while (EQ (XPROCESS (process)->status, Qconnect))
     {
-      printf("Waiting for connection...\n");
+      add_to_log ("Waiting for connection...\n");
       wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
     }
 }
@@ -4755,7 +4755,7 @@ wait_for_tls_negotiation (Lisp_Object process)
   while (XPROCESS (process)->gnutls_p &&
 	 XPROCESS (process)->gnutls_initstage != GNUTLS_STAGE_READY)
     {
-      printf("Waiting for TLS...\n");
+      add_to_log ("Waiting for TLS...\n");
       wait_reading_process_output (0, 20 * 1000 * 1000, 0, 0, Qnil, NULL, 0);
     }
 #endif