branch: scratch/mheerdegen-preview
commit df185f697c569d7ee1920dc0361b5188e7132f85
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 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
