branch: externals/poke
commit 66fb14954226efcac7864138fb8fd8bcf34e9854
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
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.")
