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

c9961eca · Dave Love · 8b9a64c2 · c9961eca
Commit c9961eca authored Sep 06, 1999 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

lisp/isearch.el lisp/isearch.el +4 -0

No files found.
--- 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)
      ))