diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-02-21 17:53:16 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-02-21 17:53:16 +0000 |
| commit | 770f7c6396af1f2ad9459ad058e7e507cf30782b (patch) | |
| tree | e524887a8ce6cca5e83dacaba3da8db462c74208 /lisp/textmodes | |
| parent | c067b28f3ff4039ac9c40ed54719aa6b750171db (diff) | |
| download | emacs-770f7c6396af1f2ad9459ad058e7e507cf30782b.tar.gz | |
(flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 6 |
1 files changed, 4 insertions, 2 deletions
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.") |