branch: externals/poke
commit 4e561bd42c0fa757a1302e019be8f451d6774c25
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
poke.el: several fixes
git add ..2022-03-18 Jose E. Marchesi <[email protected]>
* emacs/poke.el (poke-edit-1): Use tree-mode when formatting
element values.
(poke-exit): Handle *poke-edit*.
---
poke.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/poke.el b/poke.el
index 446e87dabc..0b9a1cd870 100644
--- a/poke.el
+++ b/poke.el
@@ -961,7 +961,7 @@ fun plet_elval = (string s) void:
elems)
(mapcar
(lambda (ename)
- (setq elem-values (concat elem-values "format (\"%v\", "
+ (setq elem-values (concat elem-values "format (\"%Tv\", "
"(" name ")"
(if (equal (aref ename 0) ?\[) "" ".")
ename "),")))
@@ -1413,7 +1413,7 @@ fun quit = void:
(when buf (kill-buffer buf))))
'("*poke-out*" "*poke-cmd*" "*poke-code*" "*poke-ios*"
"*poke-vu*" "*poke-repl*" "*poke-elval*" "*poked*"
- "*poke-settings*" "*poke-maps*"))
+ "*poke-settings*" "*poke-maps*" "*poke-edit*"))
(setq poke-repl-prompt poke-repl-default-prompt)
(setq poke-ios-alist nil))
