cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-18 08:20:35 +01:00
Code Issues

- increased priority for message window text searching event.

Browse Source
This commit is contained in:
cage 2021-06-17 14:44:49 +02:00
parent 6635bb9458
commit 334d5389ff
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ui-goodies.lisp
View File

@ -282,7 +282,8 @@ Metadata includes:
(defun repeat-search ()
"Repeat the last search performed"
(push-event (make-instance 'search-next-event)))
(push-event (make-instance 'search-next-event
:priority +maximum-event-priority+)))
(defun thread-open-selected-message ()
"Open selected message"
@ -354,6 +355,7 @@ Metadata includes:
"Search regular expression in message"
(flet ((on-input-complete (regex)
(let ((event (make-instance 'search-regex-message-content-event
:priority +maximum-event-priority+
:payload regex)))
(push-event event))))
(ask-string-input #'on-input-complete :prompt (_ "Search key: "))))