[elpa] externals/jit-spell 41c8ba3cc5 1/2: Fix bug and simplify logic of sending next request

[ELPA Syncer]

branch: externals/jit-spell
commit 41c8ba3cc5e560488a6943ff1df7688d5e427fa3
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Fix bug and simplify logic of sending next request
---
 jit-spell.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/jit-spell.el b/jit-spell.el
index 60f3d7a964..f6b823b262 100644
--- a/jit-spell.el
+++ b/jit-spell.el
@@ -330,15 +330,14 @@ The process plist includes the following properties:
                  (jit-spell--make-overlays buffer start end misspellings))))
         (delete-region (point-min) (point-max))
         ;; Send next request to ispell process, if applicable
-        (let (request)
-          (while (and (setq request (pop (process-get proc 
'jit-spell--requests)))
-                      (pcase-let ((`(,buffer ,tick) request))
-                        (not (and (buffer-live-p buffer)
-                                  (eq tick (buffer-chars-modified-tick 
buffer))))))
+        (catch 'jit-spell--done
+          (while-let ((request (pop (process-get proc 'jit-spell--requests)))
+                      (buffer (car request)))
             (when (buffer-live-p buffer)
-              (jit-spell--schedule-pending-checks (car request))))
-          (when request
-            (jit-spell--send-request proc request)))))))
+              (if (not (eq (cadr request) (buffer-chars-modified-tick buffer)))
+                  (jit-spell--schedule-pending-checks buffer)
+                (jit-spell--send-request proc request)
+                (throw 'jit-spell--done nil)))))))))
 
 (defun jit-spell--send-request (proc request)
   "Send REQUEST to ispell process PROC."