mirror of https://codeberg.org/cage/tinmop/
- performed a cleanup of searching even if the search string is empty or is not a valid regular expression.
This commit is contained in:
parent
844dd1b931
commit
f74e6a9361
|
@ -432,14 +432,16 @@
|
||||||
(defclass search-regex-message-content-event (search-event) ())
|
(defclass search-regex-message-content-event (search-event) ())
|
||||||
|
|
||||||
(defmethod process-event ((object search-regex-message-content-event))
|
(defmethod process-event ((object search-regex-message-content-event))
|
||||||
(let ((regexp (payload object)))
|
(let ((regexp (payload object))
|
||||||
(when (text-utils:string-not-empty-p regexp)
|
|
||||||
(handler-case
|
|
||||||
(let ((scanner (cl-ppcre:create-scanner regexp :case-insensitive-mode t))
|
|
||||||
(win specials:*message-window*))
|
(win specials:*message-window*))
|
||||||
|
(if (text-utils:string-not-empty-p regexp)
|
||||||
|
(handler-case
|
||||||
|
(let ((scanner (cl-ppcre:create-scanner regexp :case-insensitive-mode t)))
|
||||||
(message-window:search-regex win scanner))
|
(message-window:search-regex win scanner))
|
||||||
(cl-ppcre:ppcre-syntax-error ()
|
(cl-ppcre:ppcre-syntax-error ()
|
||||||
(ui:error-message (_ "Invalid regular expression")))))))
|
(line-oriented-window:cleanup-after-search win)
|
||||||
|
(ui:error-message (_ "Invalid regular expression"))))
|
||||||
|
(line-oriented-window:cleanup-after-search win))))
|
||||||
|
|
||||||
(defclass thread-search-event (search-event)
|
(defclass thread-search-event (search-event)
|
||||||
((search-direction
|
((search-direction
|
||||||
|
|
Loading…
Reference in New Issue