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

- do not repeat a search if no search has been performed before.

This commit is contained in:
cage 2021-01-02 11:29:46 +01:00
parent 7e378a3db5
commit 62bd4ac19f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/program-events.lisp
View File

@ -417,13 +417,17 @@
(defclass search-event (program-event) ())
(defun search-event-p (a)
(typep a 'search-event))
(defmethod process-event :before ((object search-event))
(setf *search-next-saved-event* object))
(defclass search-next-event (program-event) ())
(defmethod process-event ((object search-next-event))
(push-event *search-next-saved-event*))
(when (search-event-p *search-next-saved-event*)
(push-event *search-next-saved-event*)))
(defclass search-regex-message-content-event (search-event) ())