procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Chong Yidong 2009-02-21 17:53:16 +00:00
parent c067b28f3f
commit 770f7c6396
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/flyspell.el
View file

@ -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.")