diff options
| author | Chong Yidong | 2009-02-21 17:53:16 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-02-21 17:53:16 +0000 |
| commit | 770f7c6396af1f2ad9459ad058e7e507cf30782b (patch) | |
| tree | e524887a8ce6cca5e83dacaba3da8db462c74208 | |
| parent | c067b28f3ff4039ac9c40ed54719aa6b750171db (diff) | |
| download | emacs-770f7c6396af1f2ad9459ad058e7e507cf30782b.tar.gz emacs-770f7c6396af1f2ad9459ad058e7e507cf30782b.zip | |
(flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).
| -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.") | |||
| 413 | ;;*---------------------------------------------------------------------*/ | 413 | ;;*---------------------------------------------------------------------*/ |
| 414 | (defvar flyspell-mouse-map | 414 | (defvar flyspell-mouse-map |
| 415 | (let ((map (make-sparse-keymap))) | 415 | (let ((map (make-sparse-keymap))) |
| 416 | (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2]) | 416 | (if (featurep 'xemacs) |
| 417 | #'flyspell-correct-word) | 417 | (define-key map [button2] #'flyspell-correct-word) |
| 418 | (define-key map [down-mouse-2] #'flyspell-correct-word) | ||
| 419 | (define-key map [mouse-2] 'undefined)) | ||
| 418 | map) | 420 | map) |
| 419 | "Keymap for Flyspell to put on erroneous words.") | 421 | "Keymap for Flyspell to put on erroneous words.") |
| 420 | 422 | ||