mirror of https://codeberg.org/cage/tinmop/
- prevented out of bound condition when scrolling message-window's
contents (this was actually a regression).
This commit is contained in:
parent
69ee5ab811
commit
a0c25ee8fe
|
@ -224,7 +224,8 @@
|
|||
(select-row object 0))
|
||||
|
||||
(defun adjust-rows-select-first (window)
|
||||
(select-first-row window))
|
||||
(when (rows window)
|
||||
(select-first-row window)))
|
||||
|
||||
(defun adjust-rows-select-last (window)
|
||||
(with-accessors ((rows rows)) window
|
||||
|
|
|
@ -1143,6 +1143,8 @@
|
|||
(progn
|
||||
(setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
|
||||
(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)))))))
|
||||
|
||||
(defmethod process-event ((object gemini-got-line-event))
|
||||
|
|
Loading…
Reference in New Issue