Mercurial > emacs
changeset 102170:312d8aba5a08
(flyspell-mouse-map): Undefine mouse-2 to avoid yanks (Bug#2408).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 21 Feb 2009 17:53:16 +0000 |
| parents | 028c3c972340 |
| children | eef68c3b426f |
| files | lisp/textmodes/flyspell.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.")