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

10
src/message-window.lisp
View File

@ -480,11 +480,17 @@
(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))
(selected-text (normal-text selected-row))
(actual-row-starting (if (scan regex
(tui-string->chars-string selected-text))
(1+ row-selected-index)
row-selected-index))
(line-found (rows-position-if object
(lambda (a) (lambda (a)
(scan regex (scan regex
(tui-string->chars-string (normal-text a)))) (tui-string->chars-string (normal-text a))))
:start (clamp row-selected-index :start (clamp actual-row-starting
0 0
(rows-length object)))) (rows-length object))))
(replacements-strings ())) (replacements-strings ()))