From: João Távora <joaotavora@gmail.com>
Date: Wed, 16 Aug 2017 10:36:44 +0000 (+0100)
Subject: Rename eglot--continuations eglot--pending-continuations
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~704
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f98c5a20d36bb20b2803b6a2ca749f4ad6e66c5;p=emacs.git

Rename eglot--continuations eglot--pending-continuations
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index f2ef4184d64..166f23ccd8c 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -67,7 +67,7 @@
 (eglot--define-process-var eglot--expected-bytes nil
   "How many bytes declared by server")
 
-(eglot--define-process-var eglot--continuations (make-hash-table)
+(eglot--define-process-var eglot--pending-continuations (make-hash-table)
   "A hash table of request ID to continuation lambdas")
 
 (eglot--define-process-var eglot--events-buffer nil
@@ -264,12 +264,14 @@
   (let* ((response-id (plist-get message :id))
          (err (plist-get message :error))
          (continuations (and response-id
-                             (gethash response-id (eglot--continuations)))))
+                             (gethash response-id (eglot--pending-continuations)))))
     (cond ((and response-id
                 (not continuations))
            (eglot--warn "Ooops no continuation for id %s" response-id))
           (continuations
            (cancel-timer (third continuations))
+           (remhash response-id
+                    (eglot--pending-continuations))
            (cond (err
                   (apply (second continuations) err))
                  (t
@@ -303,7 +305,7 @@
          (timeout-fn (or timeout-fn
                          (lambda ()
                            (eglot--warn "Tired of waiting for reply to %s" id)
-                           (remhash id (eglot--continuations process)))))
+                           (remhash id (eglot--pending-continuations process)))))
          (error-fn (or error-fn
                        (cl-function
                         (lambda (&key code message)
@@ -330,7 +332,7 @@
                                          timeout-fn
                                        (lambda ()
                                          (throw catch-tag (apply timeout-fn))))))
-               (eglot--continuations process))
+               (eglot--pending-continuations process))
       (unless async-p
         (while t
           (unless (eq (process-status process) 'open)