cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- added docstring.

Browse Source
This commit is contained in:
cage 2022-02-25 16:40:53 +01:00
parent 8e9e19dd82
commit 5f17796318
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ui-goodies.lisp
View File

@ -1325,6 +1325,8 @@ Browse and optionally open the links the text of the message window contains."
(open-message-link-window:open-message-link url enqueue)))
(defun gemini-jump-to-link ()
"Scroll the document to the line where this link appears in the
gemini document."
(when-let* ((link-win *open-message-link-window*)
(message-win *message-window*)
(selected-line (line-oriented-window:selected-row link-win))