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

- performed a cleanup of searching even if the search string is empty or is not a valid regular expression.

This commit is contained in:
cage 2021-05-06 17:10:37 +02:00
parent 844dd1b931
commit f74e6a9361
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/program-events.lisp
View File

@ -432,14 +432,16 @@
(defclass search-regex-message-content-event (search-event) ())
(defmethod process-event ((object search-regex-message-content-event))
(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*))
(message-window:search-regex win scanner))
(cl-ppcre:ppcre-syntax-error ()
(ui:error-message (_ "Invalid regular expression")))))))
(let ((regexp (payload object))
(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))
(cl-ppcre:ppcre-syntax-error ()
(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)
((search-direction