# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1235238796 0
# Node ID 312d8aba5a0830e3a27863d886bf833056c94f03
# Parent  028c3c972340f088bd27f7f4aa211869ff8756e1
(flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).

diff -r 028c3c972340 -r 312d8aba5a08 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Sat Feb 21 17:52:59 2009 +0000
+++ b/lisp/textmodes/flyspell.el	Sat Feb 21 17:53:16 2009 +0000
@@ -413,8 +413,10 @@
 ;;*---------------------------------------------------------------------*/
 (defvar flyspell-mouse-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2])
-      #'flyspell-correct-word)
+    (if (featurep 'xemacs)
+	(define-key map [button2] #'flyspell-correct-word)
+      (define-key map [down-mouse-2] #'flyspell-correct-word)
+      (define-key map [mouse-2] 'undefined))
     map)
   "Keymap for Flyspell to put on erroneous words.")