From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 21 Feb 2009 17:53:16 +0000 (+0000)
Subject: (flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).
X-Git-Tag: emacs-pretest-23.0.91~94
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=770f7c6396af1f2ad9459ad058e7e507cf30782b;p=emacs.git

(flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).
---

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index e14ec47c2e0..70fd05aaf37 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -413,8 +413,10 @@ property of the major mode name.")
 ;;*---------------------------------------------------------------------*/
 (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.")