Mercurial > emacs
comparison 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 |
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 |