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

- fixed regression: searching in the message window does not get stuck at the first occurence.

This commit is contained in:
cage 2021-06-16 18:33:16 +02:00
parent c2f3f155aa
commit 68c250e03c
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/message-window.lisp
View File

@ -480,14 +480,20 @@
(defmethod search-regex ((object message-window) regex) (defmethod search-regex ((object message-window) regex)
(with-accessors ((row-selected-index row-selected-index)) object (with-accessors ((row-selected-index row-selected-index)) object
(let ((line-found (rows-position-if object (let* ((selected-row (selected-row object))
(lambda (a) (selected-text (normal-text selected-row))
(scan regex (actual-row-starting (if (scan regex
(tui-string->chars-string (normal-text a)))) (tui-string->chars-string selected-text))
:start (clamp row-selected-index (1+ row-selected-index)
0 row-selected-index))
(rows-length object)))) (line-found (rows-position-if object
(replacements-strings ())) (lambda (a)
(scan regex
(tui-string->chars-string (normal-text a))))
:start (clamp actual-row-starting
0
(rows-length object))))
(replacements-strings ()))
(when line-found (when line-found
(progn (progn
(row-move object (- line-found row-selected-index)) (row-move object (- line-found row-selected-index))