branch: externals/poke
commit b88ff201488220733a0927900237bb00aa2d77f1
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
poke.el: couple of small fixes
2022-03-16 Jose E. Marchesi <[email protected]>
* emacs/poke.el (poke-vu-refresh): Ask for the right number of
lines, taking the header and modeline into account.
(poke-repl): Do not show banner if repl is already alive.
---
poke.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/poke.el b/poke.el
index 4f9ce26645..1487e63dd5 100644
--- a/poke.el
+++ b/poke.el
@@ -529,7 +529,7 @@ Commands:
":from " (number-to-string
(buffer-local-value 'start-byte-offset
buffer))
"#B "
- ":size " (number-to-string (* (- (window-height
window) 1)
+ ":size " (number-to-string (* (- (window-height
window) 2)
#x10)) "#B"
";} ?! E_no_ios;")))))
@@ -653,8 +653,8 @@ fun plet_elval = (string s) void:
(setq poke-repl-seq 0)
(let ((buf (get-buffer-create "*poke-repl*")))
(with-current-buffer buf
- (poke-repl-mode))))
- (poke-code-send "poke_el_banner;")
+ (poke-repl-mode)))
+ (poke-code-send "poke_el_banner;"))
(when (called-interactively-p)
(switch-to-buffer-other-window "*poke-repl*")))
