[elpa] externals/poke b88ff20148 31/76: poke.el: couple of small fixes

[ELPA Syncer]

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

    poke.el: couple of small fixes
    
    2022-03-16  Jose E. Marchesi  <jemarch@gnu.org>
    
            * 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*")))