Mercurial > emacs
annotate lisp/textmodes/flyspell.el @ 22891:780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
(flyspell-mode-on): Fix the welcome message to deal with
how the binding for flyspell-auto-correct-word is now made.
(flyspell-delay, flyspell-delayed-commands): Doc fixes.
(flyspell-mode-off): Kill Ispell only if it is per-buffer.
(flyspell-mode-map): Explicitly bind M-TAB.
(flyspell-auto-correct-binding): Variable deleted.
(flyspell-incorrect-face, flyspell-duplicate-face): Fix typos.
(flyspell-check-pre-word-p): Check for word syntax in previous char.
(flyspell-word): Set process-kill-without-query for Ispell.
(flyspell-region): Put region args in order; use right percantage.
(flyspell-properties-at-p): Rename arg to POS; doc fix.
(flyspell-highlight-incorrect-region):
Check flyspell-highlight-properties first.
(flyspell-highlight-duplicate-region): Likewise.
(flyspell-auto-correct-word): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 03 Aug 1998 03:27:54 +0000 |
parents | 1104a715c324 |
children | cfde96067373 |
rev | line source |
---|---|
22611 | 1 ;;; flyspell.el --- On-the-fly spell checker |
2 | |
3 ;; Copyright (C) 1998 Free Software Foundation, Inc. | |
4 | |
5 ;; Author: Manuel Serrano <Manuel.Serrano@unice.fr> | |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
6 ;; Keywords: convenience |
22611 | 7 |
8 ;;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; commentary: | |
26 ;; | |
27 ;; Flyspell is a minor Emacs mode performing on-the-fly spelling | |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
28 ;; checking. |
22611 | 29 ;; |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
30 ;; To enable Flyspell minor mode, type Meta-x flyspell-mode. |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
31 ;; This applies only to the current buffer. |
22611 | 32 ;; |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
33 ;; Note: consider setting the variable ispell-parser to `tex' to |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
34 ;; avoid TeX command checking; use `(setq ispell-parser 'tex)' |
22611 | 35 ;; _before_ entering flyspell. |
36 ;; | |
37 ;; Some user variables control the behavior of flyspell. They are | |
38 ;; those defined under the `User variables' comment. | |
39 ;; | |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
40 ;; Note: as suggested by Yaron M. Minsky, if you use flyspell when |
22611 | 41 ;; sending mails, you should add the following: |
42 ;; (add-hook 'mail-send-hook 'flyspell-mode-off) | |
43 | |
44 ;;; Code: | |
45 (require 'font-lock) | |
46 (require 'ispell) | |
47 | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
48 ;*---------------------------------------------------------------------*/ |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
49 ;* Group ... */ |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
50 ;*---------------------------------------------------------------------*/ |
22611 | 51 (defgroup flyspell nil |
52 "Spellchecking on the fly." | |
53 :tag "FlySpell" | |
54 :prefix "flyspell-" | |
22648
3b7f1e026beb
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22612
diff
changeset
|
55 :group 'processes |
3b7f1e026beb
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22612
diff
changeset
|
56 :version "20.3") |
22611 | 57 |
58 ;*---------------------------------------------------------------------*/ | |
59 ;* User variables ... */ | |
60 ;*---------------------------------------------------------------------*/ | |
61 (defcustom flyspell-highlight-flag t | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
62 "*How Flyspell should indicate misspelled words. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
63 Non-nil means use highlight, nil means use minibuffer messages." |
22611 | 64 :group 'flyspell |
65 :type 'boolean) | |
66 | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
67 (defcustom flyspell-mark-duplications-flag t |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
68 "*Non-nil means Flyspell reports duplications as well as misspellings." |
22611 | 69 :group 'flyspell |
70 :type 'boolean) | |
71 | |
72 (defcustom flyspell-sort-corrections t | |
73 "*Non-nil means, sort the corrections alphabetically before popping them." | |
74 :group 'flyspell | |
75 :type 'boolean) | |
76 | |
77 (defcustom flyspell-command-hook t | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
78 "*Non-nil means that `post-command-hook' is used to check already-typed words." |
22611 | 79 :group 'flyspell |
80 :type 'boolean) | |
81 | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
82 (defcustom flyspell-duplicate-distance 10000 |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
83 "*The maximum distance between duplicate mispelled words, for flagging them. |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
84 -1 means no limit (search the whole buffer). |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
85 0 means do not search for duplicate misspelled words." |
22611 | 86 :group 'flyspell |
87 :type 'number) | |
88 | |
89 (defcustom flyspell-delay 3 | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
90 "*The number of seconds to wait before checking, after a \"delayed\" command." |
22611 | 91 :group 'flyspell |
92 :type 'number) | |
93 | |
94 (defcustom flyspell-persistent-highlight t | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
95 "*Non-nil means that hilighted words are not removed until the word are corrected." |
22611 | 96 :group 'flyspell |
97 :type 'boolean) | |
98 | |
99 (defcustom flyspell-highlight-properties t | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
100 "*Non-nil means highlight incorrect words even if a property exists for this word." |
22611 | 101 :group 'flyspell |
102 :type 'boolean) | |
103 | |
104 (defcustom flyspell-default-delayed-commands | |
105 '(self-insert-command | |
106 delete-backward-char | |
107 delete-char) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
108 "The standard list of delayed commands for Flyspell. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
109 See `flyspell-delayed-commands'." |
22611 | 110 :group 'flyspell |
111 :type '(repeat (symbol))) | |
112 | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
113 (defcustom flyspell-delayed-commands nil |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
114 "List of commands that are \"delayed\" for Flyspell mode. |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
115 After these commands, Flyspell checking is delayed for a short time, |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
116 whose length is specified by `flyspell-delay'." |
22611 | 117 :group 'flyspell |
118 :type '(repeat (symbol))) | |
119 | |
120 (defcustom flyspell-issue-welcome-flag t | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
121 "*Non-nil means that Flyspell should display a welcome message when started." |
22611 | 122 :group 'flyspell |
123 :type 'boolean) | |
124 | |
125 (defcustom flyspell-consider-dash-as-word-delimiter-flag nil | |
126 "*Non-nil means that the `-' char is considered as a word delimiter." | |
127 :group 'flyspell | |
128 :type 'boolean) | |
129 | |
130 (defcustom flyspell-incorrect-hook nil | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
131 "*List of functions to be called when incorrect words are encountered. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
132 Each function is given two arguments: the beginning and the end |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
133 of the incorrect region." |
22611 | 134 :group 'flyspell) |
135 | |
136 (defcustom flyspell-multi-language-p t | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
137 "*Non-nil means that Flyspell can be used with multiple languages. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
138 This mode works by starting a separate Ispell process for each buffer, |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
139 so that each buffer can use its own language." |
22611 | 140 :group 'flyspell |
141 :type 'boolean) | |
142 | |
143 ;*---------------------------------------------------------------------*/ | |
144 ;* Mode specific options */ | |
145 ;* ------------------------------------------------------------- */ | |
146 ;* Mode specific options enable users to disable flyspell on */ | |
147 ;* certain word depending of the emacs mode. For instance, when */ | |
148 ;* using flyspell with mail-mode add the following expression */ | |
149 ;* in your .emacs file: */ | |
150 ;* (add-hook 'mail-mode */ | |
151 ;* '(lambda () (setq flyspell-generic-check-word-p */ | |
152 ;* 'mail-mode-flyspell-verify))) */ | |
153 ;*---------------------------------------------------------------------*/ | |
154 (defvar flyspell-generic-check-word-p nil | |
155 "Function providing per-mode customization over which words are flyspelled. | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
156 Returns t to continue checking, nil otherwise. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
157 Flyspell mode sets this variable to whatever is the `flyspell-mode-predicate' |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
158 property of the major mode name.") |
22611 | 159 (make-variable-buffer-local 'flyspell-generic-check-word-p) |
160 | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
161 (put 'mail-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
162 (put 'message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify) |
22611 | 163 (defun mail-mode-flyspell-verify () |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
164 "This function is used for `flyspell-generic-check-word-p' in Mail mode." |
22611 | 165 (save-excursion |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
166 (or (progn |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
167 (beginning-of-line) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
168 (looking-at "Subject:")) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
169 (not (or (re-search-forward mail-header-separator nil t) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
170 (re-search-backward message-signature-separator nil t) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
171 (progn |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
172 (beginning-of-line) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
173 (looking-at "[>}|]"))))))) |
22611 | 174 |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
175 (put 'texinfo-mode 'flyspell-mode-predicate 'texinfo-mode-flyspell-verify) |
22611 | 176 (defun texinfo-mode-flyspell-verify () |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
177 "This function is used for `flyspell-generic-check-word-p' in Texinfo mode." |
22611 | 178 (save-excursion |
179 (forward-word -1) | |
180 (not (looking-at "@")))) | |
181 | |
182 ;*---------------------------------------------------------------------*/ | |
183 ;* Overlay compatibility */ | |
184 ;*---------------------------------------------------------------------*/ | |
185 (autoload 'make-overlay "overlay" "" t) | |
186 (autoload 'move-overlay "overlay" "" t) | |
187 (autoload 'overlayp "overlay" "" t) | |
188 (autoload 'overlay-properties "overlay" "" t) | |
189 (autoload 'overlays-in "overlay" "" t) | |
190 (autoload 'delete-overlay "overlay" "" t) | |
191 (autoload 'overlays-at "overlay" "" t) | |
192 (autoload 'overlay-put "overlay" "" t) | |
193 (autoload 'overlay-get "overlay" "" t) | |
194 | |
195 ;*---------------------------------------------------------------------*/ | |
196 ;* Which emacs are we currently running */ | |
197 ;*---------------------------------------------------------------------*/ | |
198 (defvar flyspell-emacs | |
199 (cond | |
200 ((string-match "XEmacs" emacs-version) | |
201 'xemacs) | |
202 (t | |
203 'emacs)) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
204 "The type of Emacs we are currently running.") |
22611 | 205 |
206 ;*---------------------------------------------------------------------*/ | |
207 ;* The minor mode declaration. */ | |
208 ;*---------------------------------------------------------------------*/ | |
209 (defvar flyspell-mode nil) | |
210 (make-variable-buffer-local 'flyspell-mode) | |
211 | |
212 (defvar flyspell-mode-map (make-sparse-keymap)) | |
213 (defvar flyspell-mouse-map (make-sparse-keymap)) | |
214 | |
215 (or (assoc 'flyspell-mode minor-mode-alist) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
216 (setq minor-mode-alist |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
217 (cons '(flyspell-mode " Fly") minor-mode-alist))) |
22611 | 218 |
219 (or (assoc 'flyspell-mode minor-mode-map-alist) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
220 (setq minor-mode-map-alist |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
221 (cons (cons 'flyspell-mode flyspell-mode-map) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
222 minor-mode-map-alist))) |
22611 | 223 |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
224 (define-key flyspell-mode-map "\M-\t" 'flyspell-auto-correct-word) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
225 |
22611 | 226 ;; mouse bindings |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
227 (cond |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
228 ((eq flyspell-emacs 'xemacs) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
229 (define-key flyspell-mouse-map [(button2)] |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
230 (function flyspell-correct-word/mouse-keymap))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
231 (t |
22611 | 232 (define-key flyspell-mode-map [(mouse-2)] |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
233 (function flyspell-correct-word/local-keymap)))) |
22611 | 234 |
235 ;; the name of the overlay property that defines the keymap | |
236 (defvar flyspell-overlay-keymap-property-name | |
237 (if (string-match "19.*XEmacs" emacs-version) | |
238 'keymap | |
239 'local-map)) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
240 |
22611 | 241 ;*---------------------------------------------------------------------*/ |
242 ;* Highlighting */ | |
243 ;*---------------------------------------------------------------------*/ | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
244 (defface flyspell-incorrect-face |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
245 '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
246 (t (:bold t))) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
247 "Face used for showing misspelled words in Flyspell." |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
248 :group 'flyspell) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
249 |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
250 (defface flyspell-duplicate-face |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
251 '((((class color)) (:foreground "Gold3" :bold t :underline t)) |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
252 (t (:bold t))) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
253 "Face used for showing misspelled words in Flyspell." |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
254 :group 'flyspell) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
255 |
22611 | 256 (defvar flyspell-overlay nil) |
257 | |
258 ;*---------------------------------------------------------------------*/ | |
259 ;* flyspell-mode ... */ | |
260 ;*---------------------------------------------------------------------*/ | |
261 ;;;###autoload | |
262 (defun flyspell-mode (&optional arg) | |
263 "Minor mode performing on-the-fly spelling checking. | |
264 Ispell is automatically spawned on background for each entered words. | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
265 The default flyspell behavior is to highlight incorrect words. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
266 With no argument, this command toggles Flyspell mode. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
267 With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive. |
22611 | 268 |
269 Bindings: | |
270 \\[ispell-word]: correct words (using Ispell). | |
271 \\[flyspell-auto-correct-word]: automatically correct word. | |
272 \\[flyspell-correct-word] (or mouse-2): popup correct words. | |
273 | |
274 Hooks: | |
275 flyspell-mode-hook is runner after flyspell is entered. | |
276 | |
277 Remark: | |
278 `flyspell-mode' uses `ispell-mode'. Thus all Ispell options are | |
279 valid. For instance, a personal dictionary can be used by | |
280 invoking `ispell-change-dictionary'. | |
281 | |
282 Consider using the `ispell-parser' to check your text. For instance | |
283 consider adding: | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
284 \(add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex)))) |
22611 | 285 in your .emacs file. |
286 | |
287 flyspell-region checks all words inside a region. | |
288 | |
289 flyspell-buffer checks the whole buffer." | |
290 (interactive "P") | |
291 ;; we set the mode on or off | |
292 (setq flyspell-mode (not (or (and (null arg) flyspell-mode) | |
293 (<= (prefix-numeric-value arg) 0)))) | |
294 (if flyspell-mode | |
295 (flyspell-mode-on) | |
296 (flyspell-mode-off)) | |
297 ;; we force the modeline re-printing | |
298 (set-buffer-modified-p (buffer-modified-p))) | |
299 | |
300 ;*---------------------------------------------------------------------*/ | |
301 ;* flyspell-mode-on ... */ | |
302 ;*---------------------------------------------------------------------*/ | |
303 (defun flyspell-mode-on () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
304 "Turn flyspell mode on. Do not use this; use `flyspell-mode' instead." |
22611 | 305 (setq ispell-highlight-face 'flyspell-incorrect-face) |
306 ;; ispell initialization | |
307 (if flyspell-multi-language-p | |
308 (progn | |
309 (make-variable-buffer-local 'ispell-dictionary) | |
310 (make-variable-buffer-local 'ispell-process) | |
311 (make-variable-buffer-local 'ispell-filter) | |
312 (make-variable-buffer-local 'ispell-filter-continue) | |
313 (make-variable-buffer-local 'ispell-process-directory) | |
314 (make-variable-buffer-local 'ispell-parser))) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
315 ;; We put the `flyspel-delayed' property on some commands. |
22611 | 316 (flyspell-delay-commands) |
317 ;; we bound flyspell action to post-command hook | |
318 (if flyspell-command-hook | |
319 (progn | |
320 (make-local-hook 'post-command-hook) | |
321 (add-hook 'post-command-hook | |
322 (function flyspell-post-command-hook) | |
323 t | |
324 t))) | |
325 ;; we bound flyspell action to pre-command hook | |
326 (if flyspell-command-hook | |
327 (progn | |
328 (make-local-hook 'pre-command-hook) | |
329 (add-hook 'pre-command-hook | |
330 (function flyspell-pre-command-hook) | |
331 t | |
332 t))) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
333 |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
334 ;; Set flyspell-generic-check-word-p based on the major mode. |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
335 (let ((mode-predicate (get major-mode 'flyspell-mode-predicate))) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
336 (if mode-predicate |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
337 (setq flyspell-generic-check-word-p mode-predicate))) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
338 |
22611 | 339 ;; the welcome message |
340 (if flyspell-issue-welcome-flag | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
341 (let ((binding (where-is-internal 'flyspell-auto-correct-word |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
342 nil 'non-ascii))) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
343 (message |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
344 (if binding |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
345 (format "Welcome to flyspell. Use %s or Mouse-2 to correct words." |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
346 (key-description binding)) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
347 "Welcome to flyspell. Use Mouse-2 to correct words.")))) |
22611 | 348 ;; we have to kill the flyspell process when the buffer is deleted. |
349 ;; (thanks to Jeff Miller and Roland Rosenfeld who sent me this | |
350 ;; improvement). | |
351 (add-hook 'kill-buffer-hook | |
352 '(lambda () | |
353 (if flyspell-mode | |
354 (flyspell-mode-off)))) | |
355 ;; we end with the flyspell hooks | |
356 (run-hooks 'flyspell-mode-hook)) | |
357 | |
358 ;*---------------------------------------------------------------------*/ | |
359 ;* flyspell-delay-commands ... */ | |
360 ;*---------------------------------------------------------------------*/ | |
361 (defun flyspell-delay-commands () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
362 "Install the standard set of delayed commands." |
22611 | 363 (mapcar 'flyspell-delay-command flyspell-default-delayed-commands) |
364 (mapcar 'flyspell-delay-command flyspell-delayed-commands)) | |
365 | |
366 ;*---------------------------------------------------------------------*/ | |
367 ;* flyspell-delay-command ... */ | |
368 ;*---------------------------------------------------------------------*/ | |
369 (defun flyspell-delay-command (command) | |
370 "Set COMMAND to be delayed. | |
371 When flyspell `post-command-hook' is invoked because a delayed command | |
372 as been used the current word is not immediatly checked. | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
373 It will be checked only after `flyspell-delay' seconds." |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
374 (interactive "SDelay Flyspell after Command: ") |
22611 | 375 (put command 'flyspell-delayed t)) |
376 | |
377 ;*---------------------------------------------------------------------*/ | |
378 ;* flyspell-ignore-commands ... */ | |
379 ;*---------------------------------------------------------------------*/ | |
380 (defun flyspell-ignore-commands () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
381 "This is an obsolete function, use `flyspell-delay-commands' instead." |
22611 | 382 (flyspell-delay-commands)) |
383 | |
384 ;*---------------------------------------------------------------------*/ | |
385 ;* flyspell-ignore-command ... */ | |
386 ;*---------------------------------------------------------------------*/ | |
387 (defun flyspell-ignore-command (command) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
388 "This is an obsolete function, use `flyspell-delay-command' instead. |
22611 | 389 COMMAND is the name of the command to be delayed." |
390 (flyspell-delay-command command)) | |
391 | |
392 (make-obsolete 'flyspell-ignore-commands 'flyspell-delay-commands) | |
393 (make-obsolete 'flyspell-ignore-command 'flyspell-delay-command) | |
394 | |
395 ;*---------------------------------------------------------------------*/ | |
396 ;* flyspell-word-cache ... */ | |
397 ;*---------------------------------------------------------------------*/ | |
398 (defvar flyspell-word-cache-start nil) | |
399 (defvar flyspell-word-cache-end nil) | |
400 (defvar flyspell-word-cache-word nil) | |
401 (make-variable-buffer-local 'flyspell-word-cache-start) | |
402 (make-variable-buffer-local 'flyspell-word-cache-end) | |
403 (make-variable-buffer-local 'flyspell-word-cache-word) | |
404 | |
405 ;*---------------------------------------------------------------------*/ | |
406 ;* The flyspell pre-hook, store the current position. In the */ | |
407 ;* post command hook, we will check, if the word at this position */ | |
408 ;* has to be spell checked. */ | |
409 ;*---------------------------------------------------------------------*/ | |
410 (defvar flyspell-pre-buffer nil) | |
411 (defvar flyspell-pre-point nil) | |
412 | |
413 ;*---------------------------------------------------------------------*/ | |
414 ;* flyspell-pre-command-hook ... */ | |
415 ;*---------------------------------------------------------------------*/ | |
416 (defun flyspell-pre-command-hook () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
417 "Save the current buffer and point for Flyspell's post-command hook." |
22611 | 418 (interactive) |
419 (setq flyspell-pre-buffer (current-buffer)) | |
420 (setq flyspell-pre-point (point))) | |
421 | |
422 ;*---------------------------------------------------------------------*/ | |
423 ;* flyspell-mode-off ... */ | |
424 ;*---------------------------------------------------------------------*/ | |
425 (defun flyspell-mode-off () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
426 "Turn flyspell mode off. Do not use this--use `flyspell-mode' instead." |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
427 ;; If we have an Ispell process for each buffer, |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
428 ;; kill the one for this buffer. |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
429 (if flyspell-multi-language-p |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
430 (ispell-kill-ispell t)) |
22611 | 431 ;; we remove the hooks |
432 (if flyspell-command-hook | |
433 (progn | |
434 (remove-hook 'post-command-hook | |
435 (function flyspell-post-command-hook) | |
436 t) | |
437 (remove-hook 'pre-command-hook | |
438 (function flyspell-pre-command-hook) | |
439 t))) | |
440 ;; we remove all the flyspell hilightings | |
441 (flyspell-delete-all-overlays) | |
442 ;; we have to erase pre cache variables | |
443 (setq flyspell-pre-buffer nil) | |
444 (setq flyspell-pre-point nil) | |
445 ;; we mark the mode as killed | |
446 (setq flyspell-mode nil)) | |
447 | |
448 ;*---------------------------------------------------------------------*/ | |
449 ;* flyspell-check-word-p ... */ | |
450 ;*---------------------------------------------------------------------*/ | |
451 (defun flyspell-check-word-p () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
452 "Return t when the word at `point' has to be checked. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
453 The answer depends of several criteria. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
454 Mostly we check word delimiters." |
22611 | 455 (cond |
456 ((<= (- (point-max) 1) (point-min)) | |
457 ;; the buffer is not filled enough | |
458 nil) | |
459 ((not (and (symbolp this-command) (get this-command 'flyspell-delayed))) | |
460 ;; the current command is not delayed, that | |
461 ;; is that we must check the word now | |
462 t) | |
463 ((and (> (point) (point-min)) | |
464 (save-excursion | |
465 (backward-char 1) | |
466 (and (looking-at (flyspell-get-not-casechars)) | |
467 (or flyspell-consider-dash-as-word-delimiter-flag | |
468 (not (looking-at "\\-")))))) | |
469 ;; yes because we have reached or typed a word delimiter | |
470 t) | |
471 ((not (integerp flyspell-delay)) | |
472 ;; yes because the user had settup a non delay configuration | |
473 t) | |
474 (t | |
475 (if (fboundp 'about-xemacs) | |
476 (sit-for flyspell-delay nil) | |
477 (sit-for flyspell-delay 0 nil))))) | |
478 | |
479 ;*---------------------------------------------------------------------*/ | |
480 ;* flyspell-check-pre-word-p ... */ | |
481 ;*---------------------------------------------------------------------*/ | |
482 (defun flyspell-check-pre-word-p () | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
483 "Return non-nil if we should to check the word before point. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
484 More precisely, it applies to the word that was before point |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
485 before the current command." |
22611 | 486 (cond |
487 ((or (not (numberp flyspell-pre-point)) | |
488 (not (bufferp flyspell-pre-buffer)) | |
489 (not (buffer-live-p flyspell-pre-buffer))) | |
490 nil) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
491 ((or (and (= flyspell-pre-point (- (point) 1)) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
492 (eq (char-syntax (char-after flyspell-pre-point)) ?w)) |
22611 | 493 (= flyspell-pre-point (point)) |
494 (= flyspell-pre-point (+ (point) 1))) | |
495 nil) | |
496 ((not (eq (current-buffer) flyspell-pre-buffer)) | |
497 t) | |
498 ((not (and (numberp flyspell-word-cache-start) | |
499 (numberp flyspell-word-cache-end))) | |
500 t) | |
501 (t | |
502 (or (< flyspell-pre-point flyspell-word-cache-start) | |
503 (> flyspell-pre-point flyspell-word-cache-end))))) | |
504 | |
505 ;*---------------------------------------------------------------------*/ | |
506 ;* flyspell-post-command-hook ... */ | |
507 ;*---------------------------------------------------------------------*/ | |
508 (defun flyspell-post-command-hook () | |
509 "The `post-command-hook' used by flyspell to check a word in-the-fly." | |
510 (interactive) | |
511 (if (flyspell-check-word-p) | |
512 (flyspell-word)) | |
513 (if (flyspell-check-pre-word-p) | |
514 (save-excursion | |
515 (set-buffer flyspell-pre-buffer) | |
516 (save-excursion | |
517 (goto-char flyspell-pre-point) | |
518 (flyspell-word))))) | |
519 | |
520 ;*---------------------------------------------------------------------*/ | |
521 ;* flyspell-word ... */ | |
522 ;*---------------------------------------------------------------------*/ | |
523 (defun flyspell-word (&optional following) | |
524 "Spell check a word." | |
525 (interactive (list current-prefix-arg)) | |
526 (if (interactive-p) | |
527 (setq following ispell-following-word)) | |
528 (save-excursion | |
529 (ispell-accept-buffer-local-defs) ; use the correct dictionary | |
530 (let ((cursor-location (point)) ; retain cursor location | |
531 (word (flyspell-get-word following)) | |
532 start end poss) | |
533 (if (or (eq word nil) | |
534 (and (fboundp flyspell-generic-check-word-p) | |
535 (not (funcall flyspell-generic-check-word-p)))) | |
536 t | |
537 (progn | |
538 ;; destructure return word info list. | |
539 (setq start (car (cdr word)) | |
540 end (car (cdr (cdr word))) | |
541 word (car word)) | |
542 ;; before checking in the directory, we check for doublons. | |
543 (cond | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
544 ((and flyspell-mark-duplications-flag |
22611 | 545 (save-excursion |
546 (goto-char start) | |
547 (word-search-backward word | |
548 (- start | |
549 (+ 1 (- end start))) | |
550 t))) | |
551 ;; yes, this is a doublon | |
552 (flyspell-highlight-incorrect-region start end)) | |
553 ((and (eq flyspell-word-cache-start start) | |
554 (eq flyspell-word-cache-end end) | |
555 (string-equal flyspell-word-cache-word word)) | |
556 ;; this word had been already checked, we skip | |
557 nil) | |
558 ((and (eq ispell-parser 'tex) | |
559 (flyspell-tex-command-p word)) | |
560 ;; this is a correct word (because a tex command) | |
561 (flyspell-unhighlight-at start) | |
562 (if (> end start) | |
563 (flyspell-unhighlight-at (- end 1))) | |
564 t) | |
565 (t | |
566 ;; we setup the cache | |
567 (setq flyspell-word-cache-start start) | |
568 (setq flyspell-word-cache-end end) | |
569 (setq flyspell-word-cache-word word) | |
570 ;; now check spelling of word. | |
571 (process-send-string ispell-process "%\n") | |
572 ;; put in verbose mode | |
573 (process-send-string ispell-process | |
574 (concat "^" word "\n")) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
575 ;; we mark the ispell process so it can be killed |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
576 ;; when emacs is exited without query |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
577 (if (fboundp 'process-kill-without-query) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
578 (process-kill-without-query ispell-process)) |
22611 | 579 ;; wait until ispell has processed word |
580 (while (progn | |
581 (accept-process-output ispell-process) | |
582 (not (string= "" (car ispell-filter))))) | |
583 ;; (process-send-string ispell-process "!\n") | |
584 ;; back to terse mode. | |
585 (setq ispell-filter (cdr ispell-filter)) | |
586 (if (listp ispell-filter) | |
587 (setq poss (ispell-parse-output (car ispell-filter)))) | |
588 (cond ((eq poss t) | |
589 ;; correct | |
590 (flyspell-unhighlight-at start) | |
591 (if (> end start) | |
592 (flyspell-unhighlight-at (- end 1))) | |
593 t) | |
594 ((and (stringp poss) flyspell-highlight-flag) | |
595 ;; correct | |
596 (flyspell-unhighlight-at start) | |
597 (if (> end start) | |
598 (flyspell-unhighlight-at (- end 1))) | |
599 t) | |
600 ((null poss) | |
601 (flyspell-unhighlight-at start) | |
602 (if (> end start) | |
603 (flyspell-unhighlight-at (- end 1))) | |
604 (message "Error in ispell process")) | |
605 ((or (and (< flyspell-duplicate-distance 0) | |
606 (or (save-excursion | |
607 (goto-char start) | |
608 (word-search-backward word | |
609 (point-min) | |
610 t)) | |
611 (save-excursion | |
612 (goto-char end) | |
613 (word-search-forward word | |
614 (point-max) | |
615 t)))) | |
616 (and (> flyspell-duplicate-distance 0) | |
617 (or (save-excursion | |
618 (goto-char start) | |
619 (word-search-backward | |
620 word | |
621 (- start | |
622 flyspell-duplicate-distance) | |
623 t)) | |
624 (save-excursion | |
625 (goto-char end) | |
626 (word-search-forward | |
627 word | |
628 (+ end | |
629 flyspell-duplicate-distance) | |
630 t))))) | |
631 (if flyspell-highlight-flag | |
632 (flyspell-highlight-duplicate-region start end) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
633 (message (format "duplicate `%s'" word)))) |
22611 | 634 (t |
635 ;; incorrect highlight the location | |
636 (if flyspell-highlight-flag | |
637 (flyspell-highlight-incorrect-region start end) | |
638 (message (format "mispelling `%s'" word))))) | |
639 (goto-char cursor-location) ; return to original location | |
640 (if ispell-quit (setq ispell-quit nil))))))))) | |
641 | |
642 ;*---------------------------------------------------------------------*/ | |
643 ;* flyspell-tex-command-p ... */ | |
644 ;*---------------------------------------------------------------------*/ | |
645 (defun flyspell-tex-command-p (word) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
646 "Return t if WORD is a TeX command." |
22611 | 647 (eq (aref word 0) ?\\)) |
648 | |
649 ;*---------------------------------------------------------------------*/ | |
650 ;* flyspell-casechars-cache ... */ | |
651 ;*---------------------------------------------------------------------*/ | |
652 (defvar flyspell-casechars-cache nil) | |
653 (defvar flyspell-ispell-casechars-cache nil) | |
654 (make-variable-buffer-local 'flyspell-casechars-cache) | |
655 (make-variable-buffer-local 'flyspell-ispell-casechars-cache) | |
656 | |
657 ;*---------------------------------------------------------------------*/ | |
658 ;* flyspell-get-casechars ... */ | |
659 ;*---------------------------------------------------------------------*/ | |
660 (defun flyspell-get-casechars () | |
661 "This function builds a string that is the regexp of word chars. | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
662 In order to avoid one useless string construction, |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
663 this function changes the last char of the `ispell-casechars' string." |
22611 | 664 (let ((ispell-casechars (ispell-get-casechars))) |
665 (cond | |
666 ((eq ispell-casechars flyspell-ispell-casechars-cache) | |
667 flyspell-casechars-cache) | |
668 ((not (eq ispell-parser 'tex)) | |
669 (setq flyspell-ispell-casechars-cache ispell-casechars) | |
670 (setq flyspell-casechars-cache | |
671 (concat (substring ispell-casechars | |
672 0 | |
673 (- (length ispell-casechars) 1)) | |
674 "{}]")) | |
675 flyspell-casechars-cache) | |
676 (t | |
677 (setq flyspell-ispell-casechars-cache ispell-casechars) | |
678 (setq flyspell-casechars-cache ispell-casechars) | |
679 flyspell-casechars-cache)))) | |
680 | |
681 ;*---------------------------------------------------------------------*/ | |
682 ;* flyspell-get-not-casechars-cache ... */ | |
683 ;*---------------------------------------------------------------------*/ | |
684 (defvar flyspell-not-casechars-cache nil) | |
685 (defvar flyspell-ispell-not-casechars-cache nil) | |
686 (make-variable-buffer-local 'flyspell-not-casechars-cache) | |
687 (make-variable-buffer-local 'flyspell-ispell-not-casechars-cache) | |
688 | |
689 ;*---------------------------------------------------------------------*/ | |
690 ;* flyspell-get-not-casechars ... */ | |
691 ;*---------------------------------------------------------------------*/ | |
692 (defun flyspell-get-not-casechars () | |
693 "This function builds a string that is the regexp of non-word chars." | |
694 (let ((ispell-not-casechars (ispell-get-not-casechars))) | |
695 (cond | |
696 ((eq ispell-not-casechars flyspell-ispell-not-casechars-cache) | |
697 flyspell-not-casechars-cache) | |
698 ((not (eq ispell-parser 'tex)) | |
699 (setq flyspell-ispell-not-casechars-cache ispell-not-casechars) | |
700 (setq flyspell-not-casechars-cache | |
701 (concat (substring ispell-not-casechars | |
702 0 | |
703 (- (length ispell-not-casechars) 1)) | |
704 "{}]")) | |
705 flyspell-not-casechars-cache) | |
706 (t | |
707 (setq flyspell-ispell-not-casechars-cache ispell-not-casechars) | |
708 (setq flyspell-not-casechars-cache ispell-not-casechars) | |
709 flyspell-not-casechars-cache)))) | |
710 | |
711 ;*---------------------------------------------------------------------*/ | |
712 ;* flyspell-get-word ... */ | |
713 ;*---------------------------------------------------------------------*/ | |
714 (defun flyspell-get-word (following) | |
715 "Return the word for spell-checking according to Ispell syntax. | |
716 If optional argument FOLLOWING is non-nil or if `ispell-following-word' | |
717 is non-nil when called interactively, then the following word | |
718 \(rather than preceding\) is checked when the cursor is not over a word. | |
719 Optional second argument contains otherchars that can be included in word | |
720 many times. | |
721 | |
722 Word syntax described by `ispell-dictionary-alist' (which see)." | |
723 (let* ((flyspell-casechars (flyspell-get-casechars)) | |
724 (flyspell-not-casechars (flyspell-get-not-casechars)) | |
725 (ispell-otherchars (ispell-get-otherchars)) | |
726 (ispell-many-otherchars-p (ispell-get-many-otherchars-p)) | |
727 (word-regexp (concat flyspell-casechars | |
728 "+\\(" | |
729 ispell-otherchars | |
730 "?" | |
731 flyspell-casechars | |
732 "+\\)" | |
733 (if ispell-many-otherchars-p | |
734 "*" "?"))) | |
735 (tex-prelude "[\\\\{]") | |
736 (tex-regexp (if (eq ispell-parser 'tex) | |
737 (concat tex-prelude "?" word-regexp "}?") | |
738 word-regexp)) | |
739 | |
740 did-it-once | |
741 start end word) | |
742 ;; find the word | |
743 (if (not (or (looking-at flyspell-casechars) | |
744 (and (eq ispell-parser 'tex) | |
745 (looking-at tex-prelude)))) | |
746 (if following | |
747 (re-search-forward flyspell-casechars (point-max) t) | |
748 (re-search-backward flyspell-casechars (point-min) t))) | |
749 ;; move to front of word | |
750 (re-search-backward flyspell-not-casechars (point-min) 'start) | |
751 (let ((pos nil)) | |
752 (while (and (looking-at ispell-otherchars) | |
753 (not (bobp)) | |
754 (or (not did-it-once) | |
755 ispell-many-otherchars-p) | |
756 (not (eq pos (point)))) | |
757 (setq pos (point)) | |
758 (setq did-it-once t) | |
759 (backward-char 1) | |
760 (if (looking-at flyspell-casechars) | |
761 (re-search-backward flyspell-not-casechars (point-min) 'move) | |
762 (backward-char -1)))) | |
763 ;; Now mark the word and save to string. | |
764 (if (eq (re-search-forward tex-regexp (point-max) t) nil) | |
765 nil | |
766 (progn | |
767 (setq start (match-beginning 0) | |
768 end (point) | |
769 word (buffer-substring start end)) | |
770 (list word start end))))) | |
771 | |
772 ;*---------------------------------------------------------------------*/ | |
773 ;* flyspell-region ... */ | |
774 ;*---------------------------------------------------------------------*/ | |
775 (defun flyspell-region (beg end) | |
776 "Flyspell text between BEG and END." | |
777 (interactive "r") | |
778 (save-excursion | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
779 (if (> beg end) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
780 (let ((old beg)) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
781 (setq beg end) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
782 (setq end old))) |
22611 | 783 (goto-char beg) |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
784 (let ((count 0)) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
785 (while (< (point) end) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
786 (if (= count 100) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
787 (progn |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
788 (message "Spell Checking...%d%%" |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
789 (* 100 (/ (float (- (point) beg)) (- end beg)))) |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
790 (setq count 0)) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
791 (setq count (+ 1 count))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
792 (flyspell-word) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
793 (let ((cur (point))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
794 (forward-word 1) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
795 (if (and (< (point) end) (> (point) (+ cur 1))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
796 (backward-char 1))))) |
22611 | 797 (backward-char 1) |
798 (message "Spell Checking...done") | |
799 (flyspell-word))) | |
800 | |
801 ;*---------------------------------------------------------------------*/ | |
802 ;* flyspell-buffer ... */ | |
803 ;*---------------------------------------------------------------------*/ | |
804 (defun flyspell-buffer () | |
805 "Flyspell whole buffer." | |
806 (interactive) | |
807 (flyspell-region (point-min) (point-max))) | |
808 | |
809 ;*---------------------------------------------------------------------*/ | |
810 ;* flyspell-overlay-p ... */ | |
811 ;*---------------------------------------------------------------------*/ | |
812 (defun flyspell-overlay-p (o) | |
813 "A predicate that return true iff O is an overlay used by flyspell." | |
814 (and (overlayp o) (overlay-get o 'flyspell-overlay))) | |
815 | |
816 ;*---------------------------------------------------------------------*/ | |
817 ;* flyspell-delete-all-overlays ... */ | |
818 ;* ------------------------------------------------------------- */ | |
819 ;* Remove all the overlays introduced by flyspell. */ | |
820 ;*---------------------------------------------------------------------*/ | |
821 (defun flyspell-delete-all-overlays () | |
822 "Delete all the overlays used by flyspell." | |
823 (let ((l (overlays-in (point-min) (point-max)))) | |
824 (while (consp l) | |
825 (progn | |
826 (if (flyspell-overlay-p (car l)) | |
827 (delete-overlay (car l))) | |
828 (setq l (cdr l)))))) | |
829 | |
830 ;*---------------------------------------------------------------------*/ | |
831 ;* flyspell-unhighlight-at ... */ | |
832 ;*---------------------------------------------------------------------*/ | |
833 (defun flyspell-unhighlight-at (pos) | |
834 "Remove the flyspell overlay that are located at POS." | |
835 (if flyspell-persistent-highlight | |
836 (let ((overlays (overlays-at pos))) | |
837 (while (consp overlays) | |
838 (if (flyspell-overlay-p (car overlays)) | |
839 (delete-overlay (car overlays))) | |
840 (setq overlays (cdr overlays)))) | |
841 (delete-overlay flyspell-overlay))) | |
842 | |
843 ;*---------------------------------------------------------------------*/ | |
844 ;* flyspell-properties-at-p ... */ | |
845 ;* ------------------------------------------------------------- */ | |
846 ;* Is there an highlight properties at position pos? */ | |
847 ;*---------------------------------------------------------------------*/ | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
848 (defun flyspell-properties-at-p (pos) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
849 "Return t if there is a text property at POS, not counting `local-map'. |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
850 If variable `flyspell-highlight-properties' is set to nil, |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
851 text with properties are not checked. This function is used to discover |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
852 if the character at POS has any other property." |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
853 (let ((prop (text-properties-at pos)) |
22611 | 854 (keep t)) |
855 (while (and keep (consp prop)) | |
856 (if (and (eq (car prop) 'local-map) (consp (cdr prop))) | |
857 (setq prop (cdr (cdr prop))) | |
858 (setq keep nil))) | |
859 (consp prop))) | |
860 | |
861 ;*---------------------------------------------------------------------*/ | |
862 ;* make-flyspell-overlay ... */ | |
863 ;*---------------------------------------------------------------------*/ | |
864 (defun make-flyspell-overlay (beg end face mouse-face) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
865 "Allocate an overlay to highlight an incorrect word. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
866 BEG and END specify the range in the buffer of that word. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
867 FACE and MOUSE-FACE specify the `face' and `mouse-face' properties |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
868 for the overlay." |
22611 | 869 (let ((flyspell-overlay (make-overlay beg end))) |
870 (overlay-put flyspell-overlay 'face face) | |
871 (overlay-put flyspell-overlay 'mouse-face mouse-face) | |
872 (overlay-put flyspell-overlay 'flyspell-overlay t) | |
873 (if (eq flyspell-emacs 'xemacs) | |
874 (overlay-put flyspell-overlay | |
875 flyspell-overlay-keymap-property-name | |
876 flyspell-mouse-map)))) | |
877 | |
878 ;*---------------------------------------------------------------------*/ | |
879 ;* flyspell-highlight-incorrect-region ... */ | |
880 ;*---------------------------------------------------------------------*/ | |
881 (defun flyspell-highlight-incorrect-region (beg end) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
882 "Set up an overlay on a misspelled word, in the buffer from BEG to END." |
22611 | 883 (run-hook-with-args 'flyspell-incorrect-hook beg end) |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
884 (if (or flyspell-highlight-properties (not (flyspell-properties-at-p beg))) |
22611 | 885 (progn |
886 ;; we cleanup current overlay at the same position | |
887 (if (and (not flyspell-persistent-highlight) | |
888 (overlayp flyspell-overlay)) | |
889 (delete-overlay flyspell-overlay) | |
890 (let ((overlays (overlays-at beg))) | |
891 (while (consp overlays) | |
892 (if (flyspell-overlay-p (car overlays)) | |
893 (delete-overlay (car overlays))) | |
894 (setq overlays (cdr overlays))))) | |
895 ;; now we can use a new overlay | |
896 (setq flyspell-overlay | |
897 (make-flyspell-overlay beg end | |
898 'flyspell-incorrect-face 'highlight))))) | |
899 | |
900 ;*---------------------------------------------------------------------*/ | |
901 ;* flyspell-highlight-duplicate-region ... */ | |
902 ;*---------------------------------------------------------------------*/ | |
903 (defun flyspell-highlight-duplicate-region (beg end) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
904 "Set up an overlay on a duplicated word, in the buffer from BEG to END." |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
905 (if (or flyspell-highlight-properties (not (flyspell-properties-at-p beg))) |
22611 | 906 (progn |
907 ;; we cleanup current overlay at the same position | |
908 (if (and (not flyspell-persistent-highlight) | |
909 (overlayp flyspell-overlay)) | |
910 (delete-overlay flyspell-overlay) | |
911 (let ((overlays (overlays-at beg))) | |
912 (while (consp overlays) | |
913 (if (flyspell-overlay-p (car overlays)) | |
914 (delete-overlay (car overlays))) | |
915 (setq overlays (cdr overlays))))) | |
916 ;; now we can use a new overlay | |
917 (setq flyspell-overlay | |
918 (make-flyspell-overlay beg end | |
919 'flyspell-duplicate-face 'highlight))))) | |
920 | |
921 ;*---------------------------------------------------------------------*/ | |
922 ;* flyspell-auto-correct-cache ... */ | |
923 ;*---------------------------------------------------------------------*/ | |
924 (defvar flyspell-auto-correct-pos nil) | |
925 (defvar flyspell-auto-correct-region nil) | |
926 (defvar flyspell-auto-correct-ring nil) | |
927 | |
928 ;*---------------------------------------------------------------------*/ | |
929 ;* flyspell-auto-correct-word ... */ | |
930 ;*---------------------------------------------------------------------*/ | |
931 (defun flyspell-auto-correct-word (pos) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
932 "Correct the word at POS. |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
933 This command proposes various successive corrections for the word at POS. |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
934 The variable `flyspell-auto-correct-binding' specifies the key to bind |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
935 to this command." |
22611 | 936 (interactive "d") |
937 ;; use the correct dictionary | |
938 (ispell-accept-buffer-local-defs) | |
939 (if (eq flyspell-auto-correct-pos pos) | |
940 ;; we have already been using the function at the same location | |
941 (progn | |
942 (save-excursion | |
943 (let ((start (car flyspell-auto-correct-region)) | |
944 (len (cdr flyspell-auto-correct-region))) | |
945 (delete-region start (+ start len)) | |
946 (setq flyspell-auto-correct-ring (cdr flyspell-auto-correct-ring)) | |
947 (let* ((word (car flyspell-auto-correct-ring)) | |
948 (len (length word))) | |
949 (rplacd flyspell-auto-correct-region len) | |
950 (goto-char start) | |
951 (insert word)))) | |
952 (setq flyspell-auto-correct-pos (point))) | |
953 ;; retain cursor location | |
954 (let ((cursor-location pos) | |
955 (word (flyspell-get-word nil)) | |
956 start end poss) | |
957 ;; destructure return word info list. | |
958 (setq start (car (cdr word)) | |
959 end (car (cdr (cdr word))) | |
960 word (car word)) | |
961 ;; now check spelling of word. | |
962 (process-send-string ispell-process "%\n") ;put in verbose mode | |
963 (process-send-string ispell-process (concat "^" word "\n")) | |
964 ;; wait until ispell has processed word | |
965 (while (progn | |
966 (accept-process-output ispell-process) | |
967 (not (string= "" (car ispell-filter))))) | |
968 (setq ispell-filter (cdr ispell-filter)) | |
969 (if (listp ispell-filter) | |
970 (setq poss (ispell-parse-output (car ispell-filter)))) | |
971 (cond ((or (eq poss t) (stringp poss)) | |
972 ;; don't correct word | |
973 t) | |
974 ((null poss) | |
975 ;; ispell error | |
976 (error "Ispell: error in Ispell process")) | |
977 (t | |
978 ;; the word is incorrect, we have to propose a replacement | |
979 (let ((replacements (if flyspell-sort-corrections | |
980 (sort (car (cdr (cdr poss))) 'string<) | |
981 (car (cdr (cdr poss)))))) | |
982 (if (consp replacements) | |
983 (progn | |
984 (let ((replace (car replacements))) | |
985 (setq word replace) | |
986 (setq cursor-location (+ (- (length word) (- end start)) | |
987 cursor-location)) | |
988 (if (not (equal word (car poss))) | |
989 (progn | |
990 ;; the save the current replacements | |
991 (setq flyspell-auto-correct-pos cursor-location) | |
992 (setq flyspell-auto-correct-region | |
993 (cons start (length word))) | |
994 (let ((l replacements)) | |
995 (while (consp (cdr l)) | |
996 (setq l (cdr l))) | |
997 (rplacd l (cons (car poss) replacements))) | |
998 (setq flyspell-auto-correct-ring | |
999 (cdr replacements)) | |
1000 (delete-region start end) | |
1001 (insert word))))))))) | |
1002 ;; return to original location | |
1003 (goto-char cursor-location) | |
1004 (ispell-pdict-save t)))) | |
1005 | |
1006 ;*---------------------------------------------------------------------*/ | |
1007 ;* flyspell-correct-word ... */ | |
1008 ;*---------------------------------------------------------------------*/ | |
1009 (defun flyspell-correct-word (event) | |
1010 "Check spelling of word under or before the cursor. | |
1011 If the word is not found in dictionary, display possible corrections | |
1012 in a popup menu allowing you to choose one. | |
1013 | |
1014 Word syntax described by `ispell-dictionary-alist' (which see). | |
1015 | |
1016 This will check or reload the dictionary. Use \\[ispell-change-dictionary] | |
1017 or \\[ispell-region] to update the Ispell process." | |
1018 (interactive "e") | |
1019 (if (eq flyspell-emacs 'xemacs) | |
1020 (flyspell-correct-word/mouse-keymap event) | |
1021 (flyspell-correct-word/local-keymap event))) | |
1022 | |
1023 ;*---------------------------------------------------------------------*/ | |
1024 ;* flyspell-correct-word/local-keymap ... */ | |
1025 ;*---------------------------------------------------------------------*/ | |
1026 (defun flyspell-correct-word/local-keymap (event) | |
1027 "emacs 19.xx seems to be buggous. Overlay keymap does not seems | |
1028 to work correctly with local map. That is, if a key is not | |
1029 defined for the overlay keymap, the current local map, is not | |
1030 checked. The binding is resolved with the global map. The | |
1031 consequence is that we can not use overlay map with flyspell." | |
1032 (interactive "e") | |
1033 (save-window-excursion | |
1034 (let ((save (point))) | |
1035 (mouse-set-point event) | |
1036 ;; we look for a flyspell overlay here | |
1037 (let ((overlays (overlays-at (point))) | |
1038 (overlay nil)) | |
1039 (while (consp overlays) | |
1040 (if (flyspell-overlay-p (car overlays)) | |
1041 (progn | |
1042 (setq overlay (car overlays)) | |
1043 (setq overlays nil)) | |
1044 (setq overlays (cdr overlays)))) | |
1045 ;; we return to the correct location | |
1046 (goto-char save) | |
1047 ;; we check to see if button2 has been used overlay a | |
1048 ;; flyspell overlay | |
1049 (if overlay | |
1050 ;; yes, so we use the flyspell function | |
1051 (flyspell-correct-word/mouse-keymap event) | |
1052 ;; no so we have to use the non flyspell binding | |
1053 (let ((flyspell-mode nil)) | |
1054 (if (key-binding (this-command-keys)) | |
1055 (command-execute (key-binding (this-command-keys)))))))))) | |
1056 | |
1057 ;*---------------------------------------------------------------------*/ | |
1058 ;* flyspell-correct-word ... */ | |
1059 ;*---------------------------------------------------------------------*/ | |
1060 (defun flyspell-correct-word/mouse-keymap (event) | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
1061 "Pop up a menu of possible corrections for a misspelled word. |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
1062 The word checked is the word at the mouse position." |
22611 | 1063 (interactive "e") |
1064 ;; use the correct dictionary | |
1065 (ispell-accept-buffer-local-defs) | |
1066 ;; retain cursor location (I don't know why but save-excursion here fails). | |
1067 (let ((save (point))) | |
1068 (mouse-set-point event) | |
1069 (let ((cursor-location (point)) | |
1070 (word (flyspell-get-word nil)) | |
1071 start end poss replace) | |
1072 ;; destructure return word info list. | |
1073 (setq start (car (cdr word)) | |
1074 end (car (cdr (cdr word))) | |
1075 word (car word)) | |
1076 ;; now check spelling of word. | |
1077 (process-send-string ispell-process "%\n") ;put in verbose mode | |
1078 (process-send-string ispell-process (concat "^" word "\n")) | |
1079 ;; wait until ispell has processed word | |
1080 (while (progn | |
1081 (accept-process-output ispell-process) | |
1082 (not (string= "" (car ispell-filter))))) | |
1083 (setq ispell-filter (cdr ispell-filter)) | |
1084 (if (listp ispell-filter) | |
1085 (setq poss (ispell-parse-output (car ispell-filter)))) | |
1086 (cond ((or (eq poss t) (stringp poss)) | |
1087 ;; don't correct word | |
1088 t) | |
1089 ((null poss) | |
1090 ;; ispell error | |
1091 (error "Ispell: error in Ispell process")) | |
1092 ((string-match "GNU" (emacs-version)) | |
1093 ;; the word is incorrect, we have to propose a replacement | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
1094 (setq replace (flyspell-emacs-popup event poss word)) |
22611 | 1095 (cond ((eq replace 'ignore) |
1096 nil) | |
1097 ((eq replace 'save) | |
1098 (process-send-string ispell-process (concat "*" word "\n")) | |
1099 (flyspell-unhighlight-at cursor-location) | |
1100 (setq ispell-pdict-modified-p '(t))) | |
1101 ((or (eq replace 'buffer) (eq replace 'session)) | |
1102 (process-send-string ispell-process (concat "@" word "\n")) | |
1103 (if (null ispell-pdict-modified-p) | |
1104 (setq ispell-pdict-modified-p | |
1105 (list ispell-pdict-modified-p))) | |
1106 (flyspell-unhighlight-at cursor-location) | |
1107 (if (eq replace 'buffer) | |
1108 (ispell-add-per-file-word-list word))) | |
1109 (replace | |
1110 (setq word (if (atom replace) replace (car replace)) | |
1111 cursor-location (+ (- (length word) (- end start)) | |
1112 cursor-location)) | |
1113 (if (not (equal word (car poss))) | |
1114 (progn | |
1115 (delete-region start end) | |
1116 (insert word)))))) | |
1117 ((string-match "XEmacs" (emacs-version)) | |
1118 (flyspell-xemacs-popup | |
1119 event poss word cursor-location start end))) | |
1120 (ispell-pdict-save t)) | |
1121 (if (< save (point-max)) | |
1122 (goto-char save) | |
1123 (goto-char (point-max))))) | |
1124 | |
1125 ;*---------------------------------------------------------------------*/ | |
1126 ;* flyspell-xemacs-correct ... */ | |
1127 ;*---------------------------------------------------------------------*/ | |
1128 (defun flyspell-xemacs-correct (replace poss word cursor-location start end) | |
1129 "The xemacs popup menu callback." | |
1130 (cond ((eq replace 'ignore) | |
1131 nil) | |
1132 ((eq replace 'save) | |
1133 (process-send-string ispell-process (concat "*" word "\n")) | |
1134 (flyspell-unhighlight-at cursor-location) | |
1135 (setq ispell-pdict-modified-p '(t))) | |
1136 ((or (eq replace 'buffer) (eq replace 'session)) | |
1137 (process-send-string ispell-process (concat "@" word "\n")) | |
1138 (flyspell-unhighlight-at cursor-location) | |
1139 (if (null ispell-pdict-modified-p) | |
1140 (setq ispell-pdict-modified-p | |
1141 (list ispell-pdict-modified-p))) | |
1142 (if (eq replace 'buffer) | |
1143 (ispell-add-per-file-word-list word))) | |
1144 (replace | |
1145 (setq word (if (atom replace) replace (car replace)) | |
1146 cursor-location (+ (- (length word) (- end start)) | |
1147 cursor-location)) | |
1148 (if (not (equal word (car poss))) | |
1149 (save-excursion | |
1150 (delete-region start end) | |
1151 (goto-char start) | |
1152 (insert word)))))) | |
1153 | |
1154 ;*---------------------------------------------------------------------*/ | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
1155 ;* flyspell-emacs-popup ... */ |
22611 | 1156 ;*---------------------------------------------------------------------*/ |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
1157 (defun flyspell-emacs-popup (event poss word) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
1158 "The Emacs popup menu." |
22611 | 1159 (if (not event) |
1160 (let* ((mouse-pos (mouse-position)) | |
1161 (mouse-pos (if (nth 1 mouse-pos) | |
1162 mouse-pos | |
1163 (set-mouse-position (car mouse-pos) | |
1164 (/ (frame-width) 2) 2) | |
1165 (unfocus-frame) | |
1166 (mouse-position)))) | |
1167 (setq event (list (list (car (cdr mouse-pos)) | |
1168 (1+ (cdr (cdr mouse-pos)))) | |
1169 (car mouse-pos))))) | |
1170 (let* ((corrects (if flyspell-sort-corrections | |
1171 (sort (car (cdr (cdr poss))) 'string<) | |
1172 (car (cdr (cdr poss))))) | |
1173 (cor-menu (if (consp corrects) | |
1174 (mapcar (lambda (correct) | |
1175 (list correct correct)) | |
1176 corrects) | |
1177 '())) | |
1178 (affix (car (cdr (cdr (cdr poss))))) | |
1179 (base-menu (let ((save (if (consp affix) | |
1180 (list | |
1181 (list (concat "Save affix: " (car affix)) | |
1182 'save) | |
1183 '("Accept (session)" accept) | |
1184 '("Accept (buffer)" buffer)) | |
1185 '(("Save word" save) | |
1186 ("Accept (session)" session) | |
1187 ("Accept (buffer)" buffer))))) | |
1188 (if (consp cor-menu) | |
1189 (append cor-menu (cons "" save)) | |
1190 save))) | |
1191 (menu (cons "flyspell correction menu" base-menu))) | |
1192 (car (x-popup-menu event | |
1193 (list (format "%s [%s]" word (or ispell-local-dictionary | |
1194 ispell-dictionary)) | |
1195 menu))))) | |
1196 | |
1197 ;*---------------------------------------------------------------------*/ | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
1198 ;* flyspell-xemacs-popup ... */ |
22611 | 1199 ;*---------------------------------------------------------------------*/ |
1200 (defun flyspell-xemacs-popup (event poss word cursor-location start end) | |
1201 "The xemacs popup menu." | |
1202 (let* ((corrects (if flyspell-sort-corrections | |
1203 (sort (car (cdr (cdr poss))) 'string<) | |
1204 (car (cdr (cdr poss))))) | |
1205 (cor-menu (if (consp corrects) | |
1206 (mapcar (lambda (correct) | |
1207 (vector correct | |
1208 (list 'flyspell-xemacs-correct | |
1209 correct | |
1210 (list 'quote poss) | |
1211 word | |
1212 cursor-location | |
1213 start | |
1214 end) | |
1215 t)) | |
1216 corrects) | |
1217 '())) | |
1218 (affix (car (cdr (cdr (cdr poss))))) | |
1219 (menu (let ((save (if (consp affix) | |
1220 (vector | |
1221 (concat "Save affix: " (car affix)) | |
1222 (list 'flyspell-xemacs-correct | |
1223 ''save | |
1224 (list 'quote poss) | |
1225 word | |
1226 cursor-location | |
1227 start | |
1228 end) | |
1229 t) | |
1230 (vector | |
1231 "Save word" | |
1232 (list 'flyspell-xemacs-correct | |
1233 ''save | |
1234 (list 'quote poss) | |
1235 word | |
1236 cursor-location | |
1237 start | |
1238 end) | |
1239 t))) | |
1240 (session (vector "Accept (session)" | |
1241 (list 'flyspell-xemacs-correct | |
1242 ''session | |
1243 (list 'quote poss) | |
1244 word | |
1245 cursor-location | |
1246 start | |
1247 end) | |
1248 t)) | |
1249 (buffer (vector "Accept (buffer)" | |
1250 (list 'flyspell-xemacs-correct | |
1251 ''buffer | |
1252 (list 'quote poss) | |
1253 word | |
1254 cursor-location | |
1255 start | |
1256 end) | |
1257 t))) | |
1258 (if (consp cor-menu) | |
1259 (append cor-menu (list "-" save session buffer)) | |
1260 (list save session buffer))))) | |
1261 (popup-menu (cons (format "%s [%s]" word (or ispell-local-dictionary | |
1262 ispell-dictionary)) | |
1263 menu)))) | |
1264 | |
1265 (provide 'flyspell) | |
1266 | |
1267 ;;; flyspell.el ends here |