[elpa] externals/poke 53d0275eac 60/76: poke.el: change vu refresh to use poked hooks

[ELPA Syncer]

branch: externals/poke
commit 53d0275eacc51648bb9c3ac62bc7bfa30fe0a860
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Commit: Jose E. Marchesi <jose.marchesi@oracle.com>

    poke.el: change vu refresh to use poked hooks
---
 poke.el | 28 +++++++++++++++++++---------
 1 file changed, 19 insertions(+), 9 deletions(-)

diff --git a/poke.el b/poke.el
index 2490327843..592160cfd5 100644
--- a/poke.el
+++ b/poke.el
@@ -696,22 +696,19 @@ Commands:
       (let ((buffer-read-only nil))
         (delete-region (point-min) (point-max))))))
 
-(defun poke-vu-refresh-code ()
+(defun poke-vu-refresh ()
   "Return the Poke code to send in order to refresh the poke-vu
 buffer."
   (let* ((buffer (get-buffer "*poke-vu*"))
          (window (get-buffer-window buffer)))
     (when (and (process-live-p poke-vu-process)
                window)
-      ;; Note we are assuming each VU line contains 0x10 bytes.
-      (concat "{vu "
-              ":from " (number-to-string
+      (poke-code-send (format
+                       "poke_el_vu_from = %s#B; poke_el_vu_size = %s#B; 
poke_el_vu_refresh;"
+                       (number-to-string
                         (buffer-local-value 'start-byte-offset buffer))
-              "#B "
-              ":size " (number-to-string (* (- (window-height window) 2)
-                                            #x10))
-              "#B"
-              ";} ?! E_no_ios;"))))
+                       (number-to-string (* (- (window-height window) 2)
+                                            #x10)))))))
 
 (defun poke-vu-refresh ()
   (interactive)
@@ -1338,6 +1335,19 @@ License GPLv3+: GNU GPL version 3 or later.\n\n\");
 There is NO WARRANTY, to the extent permitted by law.\n\");
 }
 
+var poke_el_vu_from = 0#B;
+var poke_el_vu_size = 0#B;
+
+fun poke_el_vu_refresh = void:
+{
+  try
+    vu :from poke_el_vu_from
+       :size poke_el_vu_size;
+  catch if E_no_ios {};
+}
+
+poked_after_eval_hook += [(poke_el_vu_refresh)];
+
 fun poke_el_ios_open = (int<32> ios) void:
 {
   var flags = ioflags (ios);