Mercurial > emacs

comparison lisp/textmodes/flyspell.el @ 90046:b637c617432f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
90045:dfd72aa2c4e2 90046:b637c617432f
1 ;;; flyspell.el --- on-the-fly spell checker 1 ;;; flyspell.el --- on-the-fly spell checker
2 2
3 ;; Copyright (C) 1998, 2000, 2001, 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 1998, 2000, 2001, 2002, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> 5 ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr>
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: convenience 7 ;; Keywords: convenience
8 8
389 (defvar flyspell-mode nil) 389 (defvar flyspell-mode nil)
390 (make-variable-buffer-local 'flyspell-mode) 390 (make-variable-buffer-local 'flyspell-mode)
391 391
392 (defvar flyspell-mouse-map 392 (defvar flyspell-mouse-map
393 (let ((map (make-sparse-keymap))) 393 (let ((map (make-sparse-keymap)))
394 (cond 394 (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2])
395 ((eq flyspell-emacs 'xemacs) 395 #'flyspell-correct-word)
396 (define-key map [(button2)] #'flyspell-correct-word) 396 (define-key map "\M-\t" #'flyspell-auto-correct-word)
397 (define-key map "\M-\t" #'flyspell-auto-correct-word))
398 (flyspell-use-local-map
399 (define-key map [(mouse-2)] #'flyspell-correct-word)
400 (define-key map "\M-\t" #'flyspell-auto-correct-word)))
401 map)) 397 map))
402 398
403 ;;;###autoload 399 ;;;###autoload
404 (defvar flyspell-mode-map (make-sparse-keymap)) 400 (defvar flyspell-mode-map (make-sparse-keymap))
405 401
2121 (defun flyspell-change-abbrev (table old new) 2117 (defun flyspell-change-abbrev (table old new)
2122 (set (abbrev-symbol old table) new)) 2118 (set (abbrev-symbol old table) new))
2123 2119
2124 (provide 'flyspell) 2120 (provide 'flyspell)
2125 2121
2126 ;;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a 2122 ;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a
2127 ;;; flyspell.el ends here 2123 ;;; flyspell.el ends here