cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed end position for 'visible-rows'

This commit is contained in:
cage 2021-04-21 16:36:45 +02:00
parent 02894dcc64
commit be6f2a9551
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/message-window.lisp
View File

@ -102,14 +102,15 @@
(defun visible-rows (window) (defun visible-rows (window)
(with-accessors ((row-selected-index row-selected-index)) window (with-accessors ((row-selected-index row-selected-index)) window
(let* ((start row-selected-index) (let* ((start row-selected-index)
(end (+ start (end (+ start
(win-height-no-border window)))) (win-height-no-border window)))
(values (line-oriented-window:rows-safe-subseq window (rows (rows-safe-subseq window
row-selected-index row-selected-index
:end end) :end end)))
(values rows
start start
end)))) (length rows)))))
(defun draw-text (window) (defun draw-text (window)
(when hooks:*before-rendering-message-text* (when hooks:*before-rendering-message-text*