[elpa] externals/poke 314387d108 2/2: poke.el: update protocol in `poke-complete-handle-cmd'

[ELPA Syncer]

branch: externals/poke
commit 314387d108be30951045a9422475fc7c70b92e8a
Author: Mohammad-Reza Nabipoor <mnabipoor@gnu.org>
Commit: Mohammad-Reza Nabipoor <mnabipoor@gnu.org>

    poke.el: update protocol in `poke-complete-handle-cmd'
---
 poke.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/poke.el b/poke.el
index 4c9100947b..b8dd85fd1d 100644
--- a/poke.el
+++ b/poke.el
@@ -709,7 +709,11 @@ buffer."
 
 (defun poke-complete-handle-cmd (proc cmd data)
   (pcase cmd
-    (1 ; Complete identifier: variable, type, function, unit.
+    (1 ; Completion iteration begin.  Unused
+     )
+    (2 ; Completion iteration end.  Unused
+     )
+    (4 ; Complete identifier: variable, type, function, unit.
      (let ((alternatives nil))
        (with-current-buffer (process-buffer proc)
          (delete-region (point-min) (point-max))
@@ -734,7 +738,7 @@ buffer."
            (completion-in-region poke-repl-complete-begin
                                  poke-repl-complete-end
                                  poke-complete-alternatives)))))
-    (2 ; Complete IO space.  Unused
+    (5 ; Complete IO space.  Unused
      )
     (_ ;; Protocol error
      (process-put proc 'pokelet-buf "")