diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-16 15:29:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-16 15:29:10 +0000 |
| commit | 27c35b9521d5c9e58d584254ab93d6c53e457a2e (patch) | |
| tree | 919a051c1d5ea9350acce42430091281eac36bca /lisp/textmodes/flyspell.el | |
| parent | b0339ffd835406b87caf8d0065b60e2d38f63396 (diff) | |
| download | emacs-27c35b9521d5c9e58d584254ab93d6c53e457a2e.tar.gz | |
(flyspell-mouse-map): Pop the menu
when pressing rather than when releasing mouse-2. Simplify.
Diffstat (limited to 'lisp/textmodes/flyspell.el')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 441d9972173..01db2d64b27 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -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 @@ property of the major mode name.") (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 @@ This function is meant to be added to 'flyspell-incorrect-hook'." (provide 'flyspell) -;;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a +;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a ;;; flyspell.el ends here |