branch: scratch/mheerdegen-preview
commit 38def8b469501e2c62291a0604c350981349384e
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
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 b86a775..7c964ca 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2031,7 +2031,8 @@ The following bindings are available only when a search
is active:
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
