Mercurial > emacs
diff lisp/textmodes/flyspell.el @ 90046:b637c617432f
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-72
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-695
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-696
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-697
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-702
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-703
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-704
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-708
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-72
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-73
Merge from emacs--cvs-trunk--0
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 19 Nov 2004 06:55:13 +0000 |
parents | cb7f41387eb3 b838f6a6cb4d |
children | e4694597cbf4 |
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el Fri Nov 12 07:43:06 2004 +0000 +++ b/lisp/textmodes/flyspell.el Fri Nov 19 06:55:13 2004 +0000 @@ -1,6 +1,6 @@ ;;; flyspell.el --- on-the-fly spell checker -;; Copyright (C) 1998, 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2004 Free Software Foundation, Inc. ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> ;; Maintainer: FSF @@ -391,13 +391,9 @@ (defvar flyspell-mouse-map (let ((map (make-sparse-keymap))) - (cond - ((eq flyspell-emacs 'xemacs) - (define-key map [(button2)] #'flyspell-correct-word) - (define-key map "\M-\t" #'flyspell-auto-correct-word)) - (flyspell-use-local-map - (define-key map [(mouse-2)] #'flyspell-correct-word) - (define-key map "\M-\t" #'flyspell-auto-correct-word))) + (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2]) + #'flyspell-correct-word) + (define-key map "\M-\t" #'flyspell-auto-correct-word) map)) ;;;###autoload @@ -2123,5 +2119,5 @@ (provide 'flyspell) -;;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a +;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a ;;; flyspell.el ends here