[Emacs-diffs] emacs/lisp/textmodes flyspell.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/02/21 17:53:17

Modified files:
        lisp/textmodes : flyspell.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.141&r2=1.142

Patches:
Index: flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.141
retrieving revision 1.142
diff -u -b -r1.141 -r1.142
--- flyspell.el 16 Jan 2009 15:20:54 -0000      1.141
+++ flyspell.el 21 Feb 2009 17:53:16 -0000      1.142
@@ -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.")