emacs-diffs
[Top][All Lists]
Advanced

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

master e7791c7: Revert unintended part of last change to jsonrpc-request


From: João Távora
Subject: master e7791c7: Revert unintended part of last change to jsonrpc-request
Date: Fri, 20 Nov 2020 05:04:26 -0500 (EST)

branch: master
commit e7791c7e57b4b9ea895598cdb3f779c2173dccd9
Author: João Tãvora <joaotavora@gmail.com>
Commit: João Tãvora <joaotavora@gmail.com>

    Revert unintended part of last change to jsonrpc-request
    
    While playing around with the timing in this function, I left
    this change that could freeze the function on some platforms.
    
    * lisp/jsonrpc.el (jsonrpc-request): Use accept-process-output.
    (Version): Bump to 1.0.14
---
 lisp/jsonrpc.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index d28cf7a..0b33940 100644
--- a/lisp/jsonrpc.el
+++ b/lisp/jsonrpc.el
@@ -4,7 +4,7 @@
 
 ;; Author: João Távora <joaotavora@gmail.com>
 ;; Keywords: processes, languages, extensions
-;; Version: 1.0.13
+;; Version: 1.0.14
 ;; Package-Requires: ((emacs "25.2"))
 
 ;; This is a GNU ELPA :core package.  Avoid functionality that is not
@@ -308,7 +308,7 @@ ignored."
                            (let ((inhibit-quit t)) (while (sit-for 30)))
                          (setq cancelled t))
                        `(cancelled ,cancel-on-input-retval))
-                      (t (while t (sit-for 30)))))
+                      (t (while t (accept-process-output nil 30)))))
             ;; In normal operation, cancellation is handled by the
             ;; timeout function and response filter, but we still have
             ;; to protect against user-quit (C-g) or the



reply via email to

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