diff --git a/lisp/channel-tui-main.lisp b/lisp/channel-tui-main.lisp index f79f914..f715a9c 100644 --- a/lisp/channel-tui-main.lisp +++ b/lisp/channel-tui-main.lisp @@ -842,7 +842,7 @@ (add-msg :system "Search exited"))) (t (on-key ch))))))) (when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty))) - (cl-tty.backend:backend-clear curr-fb) + (cl-tty.backend:backend-clear be) (redraw curr-fb w h) (cl-tty.rendering:flush-framebuffer prev-fb curr-fb be) (rotatef prev-fb curr-fb)) diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index d1993f9..de70c23 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -885,7 +885,7 @@ Event handlers + daemon I/O + main loop. (add-msg :system "Search exited"))) (t (on-key ch))))))) (when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty))) - (cl-tty.backend:backend-clear curr-fb) + (cl-tty.backend:backend-clear be) (redraw curr-fb w h) (cl-tty.rendering:flush-framebuffer prev-fb curr-fb be) (rotatef prev-fb curr-fb))