From 334d5389ff7bf63aee6ba571ccaf99a7f7119b09 Mon Sep 17 00:00:00 2001 From: cage Date: Thu, 17 Jun 2021 14:44:49 +0200 Subject: [PATCH] - increased priority for message window text searching event. --- src/ui-goodies.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 6a9cb63..aa16602 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -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,7 +355,8 @@ Metadata includes: "Search regular expression in message" (flet ((on-input-complete (regex) (let ((event (make-instance 'search-regex-message-content-event - :payload regex))) + :priority +maximum-event-priority+ + :payload regex))) (push-event event)))) (ask-string-input #'on-input-complete :prompt (_ "Search key: "))))