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

- increased priority for message window text searching event.

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

6
src/ui-goodies.lisp
View File

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