[elpa] scratch/mheerdegen-preview d774bfe 24/33: WIP: Test: Make mouse clicks not abort the search

[Michael Heerdegen]

branch: scratch/mheerdegen-preview
commit d774bfe34eae357beaa8e78ca2e6ec191c7b95bd
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    WIP: Test: Make mouse clicks not abort the search
---
 packages/el-search/el-search.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index db62e84..ca4cb20 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2027,7 +2027,8 @@ any case."
    el-search-allow-scroll
    (symbolp command)
    (or (get command 'isearch-scroll) ;isearch is preloaded
-       (get command 'scroll-command))))
+       (get command 'scroll-command)
+       (memq command '(mouse-set-point mouse-drag-region mouse-set-region)))))
 
 (defun el-search-prefix-key-maybe-set-transient-map ()
   (set-transient-map