[elpa] externals/poke 66fb149542 56/76: poke.el: command C-cV in repl to refresh the VU

[ELPA Syncer]

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

    poke.el: command C-cV in repl to refresh the VU
    
    * emacs/poke.el (poke-ios-populate): Reverse list of IOS before
    printing.
---
 poke.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/poke.el b/poke.el
index 1c46ce8070..4c4e4ca54c 100644
--- a/poke.el
+++ b/poke.el
@@ -701,6 +701,7 @@ buffer."
               ";} ?! E_no_ios;"))))
 
 (defun poke-vu-refresh ()
+  (interactive)
   (let ((code (poke-vu-refresh-code)))
     (when code
       (poke-code-send code))))
@@ -759,6 +760,8 @@ fun plet_elval = (string s) void:
     (define-key map (kbd "\C-cc") 'poke-code)
     (define-key map (kbd "\C-cs") 'poke-settings)
     (define-key map (kbd "\C-cm") 'poke-maps)
+    (define-key map (kbd "\C-cv") 'poke-vu)
+    (define-key map (kbd "\C-cV") 'poke-vu-refresh)
     map)
   "Local keymap for `poke-repl-mode' buffers.")