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

- fixed vertical position of line mark in message window.

This commit is contained in:
cage 2020-09-06 11:25:23 +02:00
parent 6135cc5c02
commit a129f14834
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/message-window.lisp
View File

@ -89,7 +89,7 @@
(row-selected-index row-selected-index)
(line-position-mark line-position-mark)) window
(let* ((height (1- (win-height-no-border window)))
(rows-count (length rows))
(rows-count (- (length rows) height))
(fraction (/ row-selected-index
(max 1 (1- rows-count))))
(mark-y (1+ (truncate (* fraction height))))