(isearch-mode-map): Add mouse-2.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 99fb61e..0cd1e76 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -312,6 +312,10 @@ Default value, nil, means edit the string instead."
       (define-key map "\C-\\" 'isearch-toggle-input-method)
       (define-key map "\C-^" 'isearch-toggle-specified-input-method)
 
+      ;; People expect to be able to paste with the mouse.
+      (define-key map [mouse-2] #'isearch-yank-kill)
+      (define-key map [down-mouse-2] nil)
+
       (setq isearch-mode-map map)
       ))