Re: [PATCH] poke.el: update protocol in `poke-vu-handle-cmd'

[Jose E. Marchesi]

Hi Mohammad.

Thanks for the patch.
OK for master.

> ---
>
> Hello Jose.
>
> I'm using my last chance to clean things up :)
> This patch only change the value of vu commands.
>
> Regards,
> Mohammad-Reza
>
>
>  poke.el | 26 +++++++++++++-------------
>  1 file changed, 13 insertions(+), 13 deletions(-)
>
> diff --git a/poke.el b/poke.el
> index b8dd85f..11866d4 100644
> --- a/poke.el
> +++ b/poke.el
> @@ -439,16 +439,9 @@ following attributes in its alist:
>  
>  (defun poke-vu-handle-cmd (proc cmd data)
>    (pcase cmd
> -    (1 ;; CLEAR
> -     (when (buffer-live-p (process-buffer proc))
> -       (with-current-buffer (process-buffer proc)
> -         (let ((inhibit-read-only t))
> -           (setq-local poke-vu-cur-pos (point))
> -           (delete-region (point-min) (point-max))))))
> -    (2 ;; APPEND
> -     (process-put proc 'poke-vu-output
> -                  (concat (process-get proc 'poke-vu-output) data)))
> -    (5 ;; FINISH
> +    (1 ;; ITER_BEGIN
> +     )
> +    (2 ;; ITER_END
>       (when (buffer-live-p (process-buffer proc))
>         (with-current-buffer (process-buffer proc)
>           (let* ((inhibit-read-only t)
> @@ -462,9 +455,16 @@ following attributes in its alist:
>               (when offset
>                 (poke-vu-goto-byte offset))))))
>       (process-put proc 'poke-vu-output ""))
> -    (3 ;; HIGHLIGHT
> -     )
> -    (4 ;; FILTER
> +    (3 ;; CLEAR
> +     (when (buffer-live-p (process-buffer proc))
> +       (with-current-buffer (process-buffer proc)
> +         (let ((inhibit-read-only t))
> +           (setq-local poke-vu-cur-pos (point))
> +           (delete-region (point-min) (point-max))))))
> +    (4 ;; APPEND
> +     (process-put proc 'poke-vu-output
> +                  (concat (process-get proc 'poke-vu-output) data)))
> +    (5 ;; HIGHLIGHT
>       )
>      (_ ;; Protocol error
>       (process-put proc 'pokelet-buf "")