[elpa] 01/01: chess-network: Put cursor in echo-area when prompting.

[Mario Lang]

mlang pushed a commit to branch externals/chess
in repository elpa.

commit bb2654e3c743f088afca39a0779b40eb550e4443
Author: Mario Lang <address@hidden>
Date:   Sat May 24 00:36:34 2014 +0200

    chess-network: Put cursor in echo-area when prompting.
---
 chess-network.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/chess-network.el b/chess-network.el
index 6de3978..a5f3ef4 100644
--- a/chess-network.el
+++ b/chess-network.el
@@ -131,8 +131,9 @@
   (unless chess-engine-handling-event
     (cond
      ((eq event 'initialize)
-      (let ((which (read-char "Are you the c)lient or s)erver? "))
-           proc)
+      (let* ((cursor-in-echo-area t)
+            (which (read-char "Are you the c)lient or s)erver? "))
+            proc)
        (chess-message 'network-starting)
        (setq proc
              (if (eq which ?s)