[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/textmodes flyspell.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/textmodes flyspell.el |
Date: |
Sat, 21 Feb 2009 17:53:17 +0000 |
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.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/textmodes flyspell.el,
Chong Yidong <=