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

- prevented out of bound condition when scrolling message-window's 

contents (this was actually a regression).
This commit is contained in:
cage 2021-07-31 11:42:12 +02:00
parent 69ee5ab811
commit a0c25ee8fe
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/line-oriented-window.lisp
View File

@ -224,7 +224,8 @@
(select-row object 0)) (select-row object 0))
(defun adjust-rows-select-first (window) (defun adjust-rows-select-first (window)
(select-first-row window)) (when (rows window)
(select-first-row window)))
(defun adjust-rows-select-last (window) (defun adjust-rows-select-last (window)
(with-accessors ((rows rows)) window (with-accessors ((rows rows)) window

2
src/program-events.lisp
View File

@ -1143,6 +1143,8 @@
(progn (progn
(setf (gemini-viewer:gemini-metadata-source-file window-metadata) source) (setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
(setf (gemini-viewer:gemini-metadata-links window-metadata) links) (setf (gemini-viewer:gemini-metadata-links window-metadata) links)
(funcall (message-window:adjust-rows-strategy win)
win)
(line-oriented-window:update-all-rows win new-rows))))))) (line-oriented-window:update-all-rows win new-rows)))))))
(defmethod process-event ((object gemini-got-line-event)) (defmethod process-event ((object gemini-got-line-event))