[elpa] externals/poke d67195c851: reintroduce poke-find-file

[ELPA Syncer]

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

    reintroduce poke-find-file
---
 poke.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/poke.el b/poke.el
index 17f60c3d62..e7a35b5eb4 100644
--- a/poke.el
+++ b/poke.el
@@ -1610,6 +1610,12 @@ fun quit = void:
   (setq poke-repl-prompt poke-repl-default-prompt)
   (setq poke-ios-alist nil))
 
+(defun poke-find-file (filename)
+   (interactive "fFind file: ")
+   ;; XXX: quote filename if needed
+   (poke-code-send
+    (concat "{ set_ios (open (\"" filename "\")); } ?! E_io;")))
+
 ;;;; window layouts
 
 (defun poke-frame-layout-1 ()