branch: externals/poke
commit 72c5ec9ba3584b11d63e20a836274d2c724becdc
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
poke.el: new function `quit'
2022-03-12 Jose E. Marchesi <[email protected]>
* emacs/poke.el (poke-pk): Define.
(poke): Evaluate poke-pk at startup.
---
poke.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/poke.el b/poke.el
index c509eaab8a..c47814781e 100644
--- a/poke.el
+++ b/poke.el
@@ -618,6 +618,13 @@ fun plet_elval = (string s) void:
;;;; Main interface
+(defconst poke-pk
+ "\
+fun quit = void:
+{
+ plet_elval (\"(poke-exit)\");
+}")
+
(defun poke-open-file (filename)
(interactive "fFile to open: ")
;; XXX: quote filename if needed
@@ -649,6 +656,7 @@ fun plet_elval = (string s) void:
(poke-elval)
(poke-repl)
(poke-vu)
+ (poke-code-send poke-pk)
(delete-other-windows)
(switch-to-buffer "*poke-vu*")
(switch-to-buffer-other-window "*poke-out*")
