Mercurial > emacs
annotate lisp/textmodes/flyspell.el @ 30024:9fd285caeb51
(concat): While copying text properties, make each composition
property value a copy.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 04 Jul 2000 07:38:15 +0000 |
parents | d40d47971e6b |
children | b7b96f09059d |
rev | line source |
---|---|
22611 | 1 ;;; flyspell.el --- On-the-fly spell checker |
2 | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
3 ;; Copyright (C) 1998, 2000 Free Software Foundation, Inc. |
22611 | 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 'ispell) | |
46 | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
47 ;*---------------------------------------------------------------------*/ |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
48 ;* Group ... */ |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
49 ;*---------------------------------------------------------------------*/ |
22611 | 50 (defgroup flyspell nil |
51 "Spellchecking on the fly." | |
52 :tag "FlySpell" | |
53 :prefix "flyspell-" | |
22648
3b7f1e026beb
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22612
diff
changeset
|
54 :group 'processes |
3b7f1e026beb
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22612
diff
changeset
|
55 :version "20.3") |
22611 | 56 |
57 ;*---------------------------------------------------------------------*/ | |
58 ;* User variables ... */ | |
59 ;*---------------------------------------------------------------------*/ | |
60 (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
|
61 "*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
|
62 Non-nil means use highlight, nil means use minibuffer messages." |
22611 | 63 :group 'flyspell |
64 :type 'boolean) | |
65 | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
66 (defcustom flyspell-mark-duplications-flag t |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
67 "*Non-nil means Flyspell reports a repeated word as an error." |
22611 | 68 :group 'flyspell |
69 :type 'boolean) | |
70 | |
71 (defcustom flyspell-sort-corrections t | |
72 "*Non-nil means, sort the corrections alphabetically before popping them." | |
73 :group 'flyspell | |
74 :type 'boolean) | |
75 | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
76 (defcustom flyspell-duplicate-distance 10000 |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
77 "*The maximum distance for finding duplicates of unrecognized words. |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
78 This applies to the feature that when a word is not found in the dictionary, |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
79 if the same spelling occurs elsewhere in the buffer, |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
80 Flyspell uses a different face (`flyspell-duplicate-face') to highlight it. |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
81 This variable specifies how far to search to find such a duplicate. |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
82 -1 means no limit (search the whole buffer). |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
83 0 means do not search for duplicate unrecognized spellings." |
22611 | 84 :group 'flyspell |
85 :type 'number) | |
86 | |
87 (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
|
88 "*The number of seconds to wait before checking, after a \"delayed\" command." |
22611 | 89 :group 'flyspell |
90 :type 'number) | |
91 | |
92 (defcustom flyspell-persistent-highlight t | |
22946
cfde96067373
(flyspell-persistent-highlight): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22891
diff
changeset
|
93 "*Non-nil means misspelled words remain highlighted until corrected. |
cfde96067373
(flyspell-persistent-highlight): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22891
diff
changeset
|
94 If this variable is nil, only the most recently detected misspelled word |
cfde96067373
(flyspell-persistent-highlight): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
22891
diff
changeset
|
95 is highlighted." |
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 | |
23179
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
136 (defcustom flyspell-multi-language-p nil |
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 |
23943
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
206 (defvar flyspell-use-local-map |
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
207 (or (eq flyspell-emacs 'xemacs) |
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
208 (not (string< emacs-version "20")))) |
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
209 |
22611 | 210 ;*---------------------------------------------------------------------*/ |
211 ;* The minor mode declaration. */ | |
212 ;*---------------------------------------------------------------------*/ | |
213 (defvar flyspell-mode nil) | |
214 (make-variable-buffer-local 'flyspell-mode) | |
215 | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
216 (defvar flyspell-mouse-map |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
217 (let ((map (make-sparse-keymap))) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
218 (cond |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
219 ((eq flyspell-emacs 'xemacs) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
220 (define-key map [(button2)] |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
221 #'flyspell-correct-word/mouse-keymap) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
222 (define-key flyspell-mouse-map "\M-\t" #'flyspell-auto-correct-word)) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
223 (flyspell-use-local-map |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
224 (define-key map [(mouse-2)] #'flyspell-correct-word/mouse-keymap) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
225 (define-key map "\M-\t" #'flyspell-auto-correct-word))) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
226 map)) |
22611 | 227 (defvar flyspell-mode-map (make-sparse-keymap)) |
228 | |
229 (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
|
230 (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
|
231 (cons '(flyspell-mode " Fly") minor-mode-alist))) |
22611 | 232 |
23943
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
233 ;; mouse or local-map bindings |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
234 (when (or (assoc 'flyspell-mode minor-mode-map-alist) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
235 (setq minor-mode-map-alist |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
236 (cons (cons 'flyspell-mode flyspell-mode-map) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
237 minor-mode-map-alist))) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
238 (define-key flyspell-mode-map "\M-\t" 'flyspell-auto-correct-word) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
239 (define-key flyspell-mode-map [(mouse-2)] |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
240 (function flyspell-correct-word/local-keymap))) |
22611 | 241 |
242 ;; the name of the overlay property that defines the keymap | |
243 (defvar flyspell-overlay-keymap-property-name | |
244 (if (string-match "19.*XEmacs" emacs-version) | |
245 'keymap | |
246 'local-map)) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
247 |
22611 | 248 ;*---------------------------------------------------------------------*/ |
249 ;* Highlighting */ | |
250 ;*---------------------------------------------------------------------*/ | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
251 (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
|
252 '((((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
|
253 (t (:bold t))) |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
254 "Face used for marking a misspelled word in Flyspell." |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
255 :group 'flyspell) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
256 |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
257 (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
|
258 '((((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
|
259 (t (:bold t))) |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
260 "Face used for marking a misspelled word that appears twice in the buffer. |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
261 See also `flyspell-duplicate-distance'." |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
262 :group 'flyspell) |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
263 |
22611 | 264 (defvar flyspell-overlay nil) |
265 | |
266 ;*---------------------------------------------------------------------*/ | |
267 ;* flyspell-mode ... */ | |
268 ;*---------------------------------------------------------------------*/ | |
269 ;;;###autoload | |
270 (defun flyspell-mode (&optional arg) | |
271 "Minor mode performing on-the-fly spelling checking. | |
272 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
|
273 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
|
274 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
|
275 With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive. |
22611 | 276 |
277 Bindings: | |
278 \\[ispell-word]: correct words (using Ispell). | |
279 \\[flyspell-auto-correct-word]: automatically correct word. | |
280 \\[flyspell-correct-word] (or mouse-2): popup correct words. | |
281 | |
282 Hooks: | |
23234 | 283 flyspell-mode-hook is run after flyspell is entered. |
22611 | 284 |
285 Remark: | |
286 `flyspell-mode' uses `ispell-mode'. Thus all Ispell options are | |
287 valid. For instance, a personal dictionary can be used by | |
288 invoking `ispell-change-dictionary'. | |
289 | |
290 Consider using the `ispell-parser' to check your text. For instance | |
291 consider adding: | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
292 \(add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex)))) |
22611 | 293 in your .emacs file. |
294 | |
295 flyspell-region checks all words inside a region. | |
296 | |
297 flyspell-buffer checks the whole buffer." | |
298 (interactive "P") | |
23179
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
299 (let ((old-flyspell-mode flyspell-mode)) |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
300 ;; Mark the mode as on or off. |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
301 (setq flyspell-mode (not (or (and (null arg) flyspell-mode) |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
302 (<= (prefix-numeric-value arg) 0)))) |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
303 ;; Do the real work. |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
304 (unless (eq flyspell-mode old-flyspell-mode) |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
305 (if flyspell-mode |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
306 (flyspell-mode-on) |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
307 (flyspell-mode-off)) |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
308 ;; Force modeline redisplay. |
72461ea3cfc8
(flyspell-mode): Do nothing if mode
Karl Heuer <kwzh@gnu.org>
parents:
22963
diff
changeset
|
309 (set-buffer-modified-p (buffer-modified-p))))) |
22611 | 310 |
311 ;*---------------------------------------------------------------------*/ | |
312 ;* flyspell-mode-on ... */ | |
313 ;*---------------------------------------------------------------------*/ | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
314 (eval-when-compile (defvar flyspell-local-mouse-map)) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
315 |
22611 | 316 (defun flyspell-mode-on () |
23234 | 317 "Turn Flyspell mode on. Do not use this; use `flyspell-mode' instead." |
22611 | 318 (setq ispell-highlight-face 'flyspell-incorrect-face) |
319 ;; ispell initialization | |
320 (if flyspell-multi-language-p | |
321 (progn | |
322 (make-variable-buffer-local 'ispell-dictionary) | |
323 (make-variable-buffer-local 'ispell-process) | |
324 (make-variable-buffer-local 'ispell-filter) | |
325 (make-variable-buffer-local 'ispell-filter-continue) | |
326 (make-variable-buffer-local 'ispell-process-directory) | |
23234 | 327 (make-variable-buffer-local 'ispell-parser) |
328 (put 'ispell-dictionary 'permanent-local t) | |
329 (put 'ispell-process 'permanent-local t) | |
330 (put 'ispell-filter 'permanent-local t) | |
331 (put 'ispell-filter-continue 'permanent-local t) | |
332 (put 'ispell-process-directory 'permanent-local t) | |
333 (put 'ispell-parser 'permanent-local t))) | |
23788
764497f1c6a0
(flyspell-check-word-p): Don't delay inside a kbd macro.
Richard M. Stallman <rms@gnu.org>
parents:
23234
diff
changeset
|
334 ;; We put the `flyspell-delayed' property on some commands. |
22611 | 335 (flyspell-delay-commands) |
336 ;; we bound flyspell action to post-command hook | |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
337 (make-local-hook 'post-command-hook) |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
338 (add-hook 'post-command-hook (function flyspell-post-command-hook) t t) |
22611 | 339 ;; we bound flyspell action to pre-command hook |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
340 (make-local-hook 'pre-command-hook) |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
341 (add-hook 'pre-command-hook (function flyspell-pre-command-hook) t t) |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
342 |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
343 ;; 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
|
344 (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
|
345 (if mode-predicate |
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
346 (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
|
347 |
22611 | 348 ;; the welcome message |
349 (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
|
350 (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
|
351 nil 'non-ascii))) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
352 (message |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
353 (if binding |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
354 (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
|
355 (key-description binding)) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
356 "Welcome to flyspell. Use Mouse-2 to correct words.")))) |
22611 | 357 ;; we have to kill the flyspell process when the buffer is deleted. |
358 ;; (thanks to Jeff Miller and Roland Rosenfeld who sent me this | |
359 ;; improvement). | |
360 (add-hook 'kill-buffer-hook | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
361 (lambda () |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
362 (if (and flyspell-multi-language-p ispell-process) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
363 (ispell-kill-ispell t)))) |
24458 | 364 (make-local-hook 'change-major-mode-hook) |
365 (add-hook 'change-major-mode-hook 'flyspell-mode-off) | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
366 ;; Use this so that we can still get major mode bindings at a |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
367 ;; misspelled word (unless they're overridden by |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
368 ;; `flyspell-mouse-map'). |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
369 (set (make-local-variable 'flyspell-local-mouse-map) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
370 (let ((map (copy-keymap flyspell-mouse-map))) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
371 (if (eq flyspell-emacs 'xemacs) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
372 (set-keymap-parents (list (current-local-map))) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
373 (set-keymap-parent map (current-local-map))) |
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
374 map)) |
22611 | 375 ;; we end with the flyspell hooks |
376 (run-hooks 'flyspell-mode-hook)) | |
377 | |
378 ;*---------------------------------------------------------------------*/ | |
379 ;* flyspell-delay-commands ... */ | |
380 ;*---------------------------------------------------------------------*/ | |
381 (defun flyspell-delay-commands () | |
23234 | 382 "Install the standard set of Flyspell delayed commands." |
22611 | 383 (mapcar 'flyspell-delay-command flyspell-default-delayed-commands) |
384 (mapcar 'flyspell-delay-command flyspell-delayed-commands)) | |
385 | |
386 ;*---------------------------------------------------------------------*/ | |
387 ;* flyspell-delay-command ... */ | |
388 ;*---------------------------------------------------------------------*/ | |
389 (defun flyspell-delay-command (command) | |
23234 | 390 "Set COMMAND to be delayed, for Flyspell. |
22611 | 391 When flyspell `post-command-hook' is invoked because a delayed command |
392 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
|
393 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
|
394 (interactive "SDelay Flyspell after Command: ") |
22611 | 395 (put command 'flyspell-delayed t)) |
396 | |
397 ;*---------------------------------------------------------------------*/ | |
398 ;* flyspell-ignore-commands ... */ | |
399 ;*---------------------------------------------------------------------*/ | |
400 (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
|
401 "This is an obsolete function, use `flyspell-delay-commands' instead." |
22611 | 402 (flyspell-delay-commands)) |
403 | |
404 ;*---------------------------------------------------------------------*/ | |
405 ;* flyspell-ignore-command ... */ | |
406 ;*---------------------------------------------------------------------*/ | |
407 (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
|
408 "This is an obsolete function, use `flyspell-delay-command' instead. |
22611 | 409 COMMAND is the name of the command to be delayed." |
410 (flyspell-delay-command command)) | |
411 | |
412 (make-obsolete 'flyspell-ignore-commands 'flyspell-delay-commands) | |
413 (make-obsolete 'flyspell-ignore-command 'flyspell-delay-command) | |
414 | |
415 ;*---------------------------------------------------------------------*/ | |
416 ;* flyspell-word-cache ... */ | |
417 ;*---------------------------------------------------------------------*/ | |
418 (defvar flyspell-word-cache-start nil) | |
419 (defvar flyspell-word-cache-end nil) | |
420 (defvar flyspell-word-cache-word nil) | |
421 (make-variable-buffer-local 'flyspell-word-cache-start) | |
422 (make-variable-buffer-local 'flyspell-word-cache-end) | |
423 (make-variable-buffer-local 'flyspell-word-cache-word) | |
424 | |
425 ;*---------------------------------------------------------------------*/ | |
426 ;* The flyspell pre-hook, store the current position. In the */ | |
427 ;* post command hook, we will check, if the word at this position */ | |
428 ;* has to be spell checked. */ | |
429 ;*---------------------------------------------------------------------*/ | |
430 (defvar flyspell-pre-buffer nil) | |
431 (defvar flyspell-pre-point nil) | |
432 | |
433 ;*---------------------------------------------------------------------*/ | |
434 ;* flyspell-pre-command-hook ... */ | |
435 ;*---------------------------------------------------------------------*/ | |
436 (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
|
437 "Save the current buffer and point for Flyspell's post-command hook." |
22611 | 438 (interactive) |
439 (setq flyspell-pre-buffer (current-buffer)) | |
440 (setq flyspell-pre-point (point))) | |
441 | |
442 ;*---------------------------------------------------------------------*/ | |
443 ;* flyspell-mode-off ... */ | |
444 ;*---------------------------------------------------------------------*/ | |
23234 | 445 ;;;###autoload |
22611 | 446 (defun flyspell-mode-off () |
23234 | 447 "Turn Flyspell mode off." |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
448 ;; 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
|
449 ;; 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
|
450 (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
|
451 (ispell-kill-ispell t)) |
22611 | 452 ;; we remove the hooks |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
453 (remove-hook 'post-command-hook (function flyspell-post-command-hook) t) |
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
454 (remove-hook 'pre-command-hook (function flyspell-pre-command-hook) t) |
22611 | 455 ;; we remove all the flyspell hilightings |
456 (flyspell-delete-all-overlays) | |
457 ;; we have to erase pre cache variables | |
458 (setq flyspell-pre-buffer nil) | |
459 (setq flyspell-pre-point nil) | |
460 ;; we mark the mode as killed | |
461 (setq flyspell-mode nil)) | |
462 | |
463 ;*---------------------------------------------------------------------*/ | |
464 ;* flyspell-check-word-p ... */ | |
465 ;*---------------------------------------------------------------------*/ | |
466 (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
|
467 "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
|
468 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
|
469 Mostly we check word delimiters." |
22611 | 470 (cond |
471 ((<= (- (point-max) 1) (point-min)) | |
472 ;; the buffer is not filled enough | |
473 nil) | |
474 ((not (and (symbolp this-command) (get this-command 'flyspell-delayed))) | |
475 ;; the current command is not delayed, that | |
476 ;; is that we must check the word now | |
477 t) | |
478 ((and (> (point) (point-min)) | |
479 (save-excursion | |
480 (backward-char 1) | |
481 (and (looking-at (flyspell-get-not-casechars)) | |
482 (or flyspell-consider-dash-as-word-delimiter-flag | |
483 (not (looking-at "\\-")))))) | |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
484 ;; yes because we have reached or typed a word delimiter. |
22611 | 485 t) |
486 ((not (integerp flyspell-delay)) | |
22962
f4509374e88e
(flyspell-command-hook): Option deleted.
Richard M. Stallman <rms@gnu.org>
parents:
22946
diff
changeset
|
487 ;; yes because the user had set up a no-delay configuration. |
22611 | 488 t) |
23788
764497f1c6a0
(flyspell-check-word-p): Don't delay inside a kbd macro.
Richard M. Stallman <rms@gnu.org>
parents:
23234
diff
changeset
|
489 (executing-kbd-macro |
764497f1c6a0
(flyspell-check-word-p): Don't delay inside a kbd macro.
Richard M. Stallman <rms@gnu.org>
parents:
23234
diff
changeset
|
490 ;; Don't delay inside a keyboard macro. |
764497f1c6a0
(flyspell-check-word-p): Don't delay inside a kbd macro.
Richard M. Stallman <rms@gnu.org>
parents:
23234
diff
changeset
|
491 t) |
22611 | 492 (t |
493 (if (fboundp 'about-xemacs) | |
494 (sit-for flyspell-delay nil) | |
495 (sit-for flyspell-delay 0 nil))))) | |
496 | |
497 ;*---------------------------------------------------------------------*/ | |
498 ;* flyspell-check-pre-word-p ... */ | |
499 ;*---------------------------------------------------------------------*/ | |
500 (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
|
501 "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
|
502 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
|
503 before the current command." |
22611 | 504 (cond |
505 ((or (not (numberp flyspell-pre-point)) | |
506 (not (bufferp flyspell-pre-buffer)) | |
507 (not (buffer-live-p flyspell-pre-buffer))) | |
508 nil) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
509 ((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
|
510 (eq (char-syntax (char-after flyspell-pre-point)) ?w)) |
22611 | 511 (= flyspell-pre-point (point)) |
512 (= flyspell-pre-point (+ (point) 1))) | |
513 nil) | |
514 ((not (eq (current-buffer) flyspell-pre-buffer)) | |
515 t) | |
516 ((not (and (numberp flyspell-word-cache-start) | |
517 (numberp flyspell-word-cache-end))) | |
518 t) | |
519 (t | |
520 (or (< flyspell-pre-point flyspell-word-cache-start) | |
521 (> flyspell-pre-point flyspell-word-cache-end))))) | |
522 | |
523 ;*---------------------------------------------------------------------*/ | |
524 ;* flyspell-post-command-hook ... */ | |
525 ;*---------------------------------------------------------------------*/ | |
526 (defun flyspell-post-command-hook () | |
527 "The `post-command-hook' used by flyspell to check a word in-the-fly." | |
528 (interactive) | |
529 (if (flyspell-check-word-p) | |
530 (flyspell-word)) | |
531 (if (flyspell-check-pre-word-p) | |
532 (save-excursion | |
533 (set-buffer flyspell-pre-buffer) | |
534 (save-excursion | |
535 (goto-char flyspell-pre-point) | |
536 (flyspell-word))))) | |
537 | |
538 ;*---------------------------------------------------------------------*/ | |
539 ;* flyspell-word ... */ | |
540 ;*---------------------------------------------------------------------*/ | |
541 (defun flyspell-word (&optional following) | |
542 "Spell check a word." | |
543 (interactive (list current-prefix-arg)) | |
544 (if (interactive-p) | |
545 (setq following ispell-following-word)) | |
546 (save-excursion | |
547 (ispell-accept-buffer-local-defs) ; use the correct dictionary | |
548 (let ((cursor-location (point)) ; retain cursor location | |
549 (word (flyspell-get-word following)) | |
550 start end poss) | |
551 (if (or (eq word nil) | |
552 (and (fboundp flyspell-generic-check-word-p) | |
553 (not (funcall flyspell-generic-check-word-p)))) | |
554 t | |
555 (progn | |
556 ;; destructure return word info list. | |
557 (setq start (car (cdr word)) | |
558 end (car (cdr (cdr word))) | |
559 word (car word)) | |
560 ;; before checking in the directory, we check for doublons. | |
561 (cond | |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
562 ((and flyspell-mark-duplications-flag |
22611 | 563 (save-excursion |
564 (goto-char start) | |
565 (word-search-backward word | |
566 (- start | |
567 (+ 1 (- end start))) | |
568 t))) | |
569 ;; yes, this is a doublon | |
570 (flyspell-highlight-incorrect-region start end)) | |
571 ((and (eq flyspell-word-cache-start start) | |
572 (eq flyspell-word-cache-end end) | |
573 (string-equal flyspell-word-cache-word word)) | |
574 ;; this word had been already checked, we skip | |
575 nil) | |
576 ((and (eq ispell-parser 'tex) | |
577 (flyspell-tex-command-p word)) | |
578 ;; this is a correct word (because a tex command) | |
579 (flyspell-unhighlight-at start) | |
580 (if (> end start) | |
581 (flyspell-unhighlight-at (- end 1))) | |
582 t) | |
583 (t | |
584 ;; we setup the cache | |
585 (setq flyspell-word-cache-start start) | |
586 (setq flyspell-word-cache-end end) | |
587 (setq flyspell-word-cache-word word) | |
588 ;; now check spelling of word. | |
589 (process-send-string ispell-process "%\n") | |
590 ;; put in verbose mode | |
591 (process-send-string ispell-process | |
592 (concat "^" word "\n")) | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
593 ;; 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
|
594 ;; 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
|
595 (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
|
596 (process-kill-without-query ispell-process)) |
22611 | 597 ;; wait until ispell has processed word |
598 (while (progn | |
599 (accept-process-output ispell-process) | |
600 (not (string= "" (car ispell-filter))))) | |
601 ;; (process-send-string ispell-process "!\n") | |
602 ;; back to terse mode. | |
603 (setq ispell-filter (cdr ispell-filter)) | |
604 (if (listp ispell-filter) | |
605 (setq poss (ispell-parse-output (car ispell-filter)))) | |
606 (cond ((eq poss t) | |
607 ;; correct | |
608 (flyspell-unhighlight-at start) | |
609 (if (> end start) | |
610 (flyspell-unhighlight-at (- end 1))) | |
611 t) | |
612 ((and (stringp poss) flyspell-highlight-flag) | |
613 ;; correct | |
614 (flyspell-unhighlight-at start) | |
615 (if (> end start) | |
616 (flyspell-unhighlight-at (- end 1))) | |
617 t) | |
618 ((null poss) | |
619 (flyspell-unhighlight-at start) | |
620 (if (> end start) | |
621 (flyspell-unhighlight-at (- end 1))) | |
622 (message "Error in ispell process")) | |
623 ((or (and (< flyspell-duplicate-distance 0) | |
624 (or (save-excursion | |
625 (goto-char start) | |
626 (word-search-backward word | |
627 (point-min) | |
628 t)) | |
629 (save-excursion | |
630 (goto-char end) | |
631 (word-search-forward word | |
632 (point-max) | |
633 t)))) | |
634 (and (> flyspell-duplicate-distance 0) | |
635 (or (save-excursion | |
636 (goto-char start) | |
637 (word-search-backward | |
638 word | |
639 (- start | |
640 flyspell-duplicate-distance) | |
641 t)) | |
642 (save-excursion | |
643 (goto-char end) | |
644 (word-search-forward | |
645 word | |
646 (+ end | |
647 flyspell-duplicate-distance) | |
648 t))))) | |
649 (if flyspell-highlight-flag | |
650 (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
|
651 (message (format "duplicate `%s'" word)))) |
22611 | 652 (t |
653 ;; incorrect highlight the location | |
654 (if flyspell-highlight-flag | |
655 (flyspell-highlight-incorrect-region start end) | |
656 (message (format "mispelling `%s'" word))))) | |
657 (goto-char cursor-location) ; return to original location | |
658 (if ispell-quit (setq ispell-quit nil))))))))) | |
659 | |
660 ;*---------------------------------------------------------------------*/ | |
661 ;* flyspell-tex-command-p ... */ | |
662 ;*---------------------------------------------------------------------*/ | |
663 (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
|
664 "Return t if WORD is a TeX command." |
22611 | 665 (eq (aref word 0) ?\\)) |
666 | |
667 ;*---------------------------------------------------------------------*/ | |
668 ;* flyspell-casechars-cache ... */ | |
669 ;*---------------------------------------------------------------------*/ | |
670 (defvar flyspell-casechars-cache nil) | |
671 (defvar flyspell-ispell-casechars-cache nil) | |
672 (make-variable-buffer-local 'flyspell-casechars-cache) | |
673 (make-variable-buffer-local 'flyspell-ispell-casechars-cache) | |
674 | |
675 ;*---------------------------------------------------------------------*/ | |
676 ;* flyspell-get-casechars ... */ | |
677 ;*---------------------------------------------------------------------*/ | |
678 (defun flyspell-get-casechars () | |
679 "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
|
680 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
|
681 this function changes the last char of the `ispell-casechars' string." |
22611 | 682 (let ((ispell-casechars (ispell-get-casechars))) |
683 (cond | |
684 ((eq ispell-casechars flyspell-ispell-casechars-cache) | |
685 flyspell-casechars-cache) | |
686 ((not (eq ispell-parser 'tex)) | |
687 (setq flyspell-ispell-casechars-cache ispell-casechars) | |
688 (setq flyspell-casechars-cache | |
689 (concat (substring ispell-casechars | |
690 0 | |
691 (- (length ispell-casechars) 1)) | |
692 "{}]")) | |
693 flyspell-casechars-cache) | |
694 (t | |
695 (setq flyspell-ispell-casechars-cache ispell-casechars) | |
696 (setq flyspell-casechars-cache ispell-casechars) | |
697 flyspell-casechars-cache)))) | |
698 | |
699 ;*---------------------------------------------------------------------*/ | |
700 ;* flyspell-get-not-casechars-cache ... */ | |
701 ;*---------------------------------------------------------------------*/ | |
702 (defvar flyspell-not-casechars-cache nil) | |
703 (defvar flyspell-ispell-not-casechars-cache nil) | |
704 (make-variable-buffer-local 'flyspell-not-casechars-cache) | |
705 (make-variable-buffer-local 'flyspell-ispell-not-casechars-cache) | |
706 | |
707 ;*---------------------------------------------------------------------*/ | |
708 ;* flyspell-get-not-casechars ... */ | |
709 ;*---------------------------------------------------------------------*/ | |
710 (defun flyspell-get-not-casechars () | |
711 "This function builds a string that is the regexp of non-word chars." | |
712 (let ((ispell-not-casechars (ispell-get-not-casechars))) | |
713 (cond | |
714 ((eq ispell-not-casechars flyspell-ispell-not-casechars-cache) | |
715 flyspell-not-casechars-cache) | |
716 ((not (eq ispell-parser 'tex)) | |
717 (setq flyspell-ispell-not-casechars-cache ispell-not-casechars) | |
718 (setq flyspell-not-casechars-cache | |
719 (concat (substring ispell-not-casechars | |
720 0 | |
721 (- (length ispell-not-casechars) 1)) | |
722 "{}]")) | |
723 flyspell-not-casechars-cache) | |
724 (t | |
725 (setq flyspell-ispell-not-casechars-cache ispell-not-casechars) | |
726 (setq flyspell-not-casechars-cache ispell-not-casechars) | |
727 flyspell-not-casechars-cache)))) | |
728 | |
729 ;*---------------------------------------------------------------------*/ | |
730 ;* flyspell-get-word ... */ | |
731 ;*---------------------------------------------------------------------*/ | |
732 (defun flyspell-get-word (following) | |
733 "Return the word for spell-checking according to Ispell syntax. | |
734 If optional argument FOLLOWING is non-nil or if `ispell-following-word' | |
735 is non-nil when called interactively, then the following word | |
736 \(rather than preceding\) is checked when the cursor is not over a word. | |
737 Optional second argument contains otherchars that can be included in word | |
738 many times. | |
739 | |
740 Word syntax described by `ispell-dictionary-alist' (which see)." | |
741 (let* ((flyspell-casechars (flyspell-get-casechars)) | |
742 (flyspell-not-casechars (flyspell-get-not-casechars)) | |
743 (ispell-otherchars (ispell-get-otherchars)) | |
744 (ispell-many-otherchars-p (ispell-get-many-otherchars-p)) | |
24943
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
745 (word-regexp (if (not (string= "" ispell-otherchars)) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
746 (concat |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
747 flyspell-casechars |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
748 "+\\(" |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
749 ispell-otherchars |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
750 "?" |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
751 flyspell-casechars |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
752 "+\\)" |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
753 (if ispell-many-otherchars-p |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
754 "*" "?")) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
755 (concat flyspell-casechars "+"))) |
22611 | 756 (tex-prelude "[\\\\{]") |
757 (tex-regexp (if (eq ispell-parser 'tex) | |
758 (concat tex-prelude "?" word-regexp "}?") | |
759 word-regexp)) | |
760 | |
761 did-it-once | |
762 start end word) | |
763 ;; find the word | |
764 (if (not (or (looking-at flyspell-casechars) | |
765 (and (eq ispell-parser 'tex) | |
766 (looking-at tex-prelude)))) | |
767 (if following | |
768 (re-search-forward flyspell-casechars (point-max) t) | |
769 (re-search-backward flyspell-casechars (point-min) t))) | |
770 ;; move to front of word | |
771 (re-search-backward flyspell-not-casechars (point-min) 'start) | |
24943
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
772 (if (not (string= "" ispell-otherchars)) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
773 (let ((pos nil)) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
774 (while (and (looking-at ispell-otherchars) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
775 (not (bobp)) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
776 (or (not did-it-once) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
777 ispell-many-otherchars-p) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
778 (not (eq pos (point)))) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
779 (setq pos (point)) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
780 (setq did-it-once t) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
781 (backward-char 1) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
782 (if (looking-at flyspell-casechars) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
783 (re-search-backward flyspell-not-casechars (point-min) 'move) |
59585a4135a6
(flyspell-get-word): Add special handling for when ispell-otherchars is empty.
Richard M. Stallman <rms@gnu.org>
parents:
24458
diff
changeset
|
784 (backward-char -1))))) |
22611 | 785 ;; Now mark the word and save to string. |
786 (if (eq (re-search-forward tex-regexp (point-max) t) nil) | |
787 nil | |
788 (progn | |
789 (setq start (match-beginning 0) | |
790 end (point) | |
791 word (buffer-substring start end)) | |
792 (list word start end))))) | |
793 | |
794 ;*---------------------------------------------------------------------*/ | |
795 ;* flyspell-region ... */ | |
796 ;*---------------------------------------------------------------------*/ | |
797 (defun flyspell-region (beg end) | |
798 "Flyspell text between BEG and END." | |
799 (interactive "r") | |
800 (save-excursion | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
801 (if (> beg end) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
802 (let ((old beg)) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
803 (setq beg end) |
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
804 (setq end old))) |
22611 | 805 (goto-char beg) |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
806 (let ((count 0)) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
807 (while (< (point) end) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
808 (if (= count 100) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
809 (progn |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
810 (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
|
811 (* 100 (/ (float (- (point) beg)) (- end beg)))) |
22612
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
812 (setq count 0)) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
813 (setq count (+ 1 count))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
814 (flyspell-word) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
815 (let ((cur (point))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
816 (forward-word 1) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
817 (if (and (< (point) end) (> (point) (+ cur 1))) |
6def3da74c7c
Delete defcustom definition.
Richard M. Stallman <rms@gnu.org>
parents:
22611
diff
changeset
|
818 (backward-char 1))))) |
22611 | 819 (backward-char 1) |
820 (message "Spell Checking...done") | |
821 (flyspell-word))) | |
822 | |
823 ;*---------------------------------------------------------------------*/ | |
824 ;* flyspell-buffer ... */ | |
825 ;*---------------------------------------------------------------------*/ | |
826 (defun flyspell-buffer () | |
827 "Flyspell whole buffer." | |
828 (interactive) | |
829 (flyspell-region (point-min) (point-max))) | |
830 | |
831 ;*---------------------------------------------------------------------*/ | |
832 ;* flyspell-overlay-p ... */ | |
833 ;*---------------------------------------------------------------------*/ | |
834 (defun flyspell-overlay-p (o) | |
835 "A predicate that return true iff O is an overlay used by flyspell." | |
836 (and (overlayp o) (overlay-get o 'flyspell-overlay))) | |
837 | |
838 ;*---------------------------------------------------------------------*/ | |
839 ;* flyspell-delete-all-overlays ... */ | |
840 ;* ------------------------------------------------------------- */ | |
841 ;* Remove all the overlays introduced by flyspell. */ | |
842 ;*---------------------------------------------------------------------*/ | |
843 (defun flyspell-delete-all-overlays () | |
844 "Delete all the overlays used by flyspell." | |
845 (let ((l (overlays-in (point-min) (point-max)))) | |
846 (while (consp l) | |
847 (progn | |
848 (if (flyspell-overlay-p (car l)) | |
849 (delete-overlay (car l))) | |
850 (setq l (cdr l)))))) | |
851 | |
852 ;*---------------------------------------------------------------------*/ | |
853 ;* flyspell-unhighlight-at ... */ | |
854 ;*---------------------------------------------------------------------*/ | |
855 (defun flyspell-unhighlight-at (pos) | |
856 "Remove the flyspell overlay that are located at POS." | |
857 (if flyspell-persistent-highlight | |
858 (let ((overlays (overlays-at pos))) | |
859 (while (consp overlays) | |
860 (if (flyspell-overlay-p (car overlays)) | |
861 (delete-overlay (car overlays))) | |
862 (setq overlays (cdr overlays)))) | |
863 (delete-overlay flyspell-overlay))) | |
864 | |
865 ;*---------------------------------------------------------------------*/ | |
866 ;* flyspell-properties-at-p ... */ | |
867 ;* ------------------------------------------------------------- */ | |
868 ;* Is there an highlight properties at position pos? */ | |
869 ;*---------------------------------------------------------------------*/ | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
870 (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
|
871 "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
|
872 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
|
873 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
|
874 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
|
875 (let ((prop (text-properties-at pos)) |
22611 | 876 (keep t)) |
877 (while (and keep (consp prop)) | |
878 (if (and (eq (car prop) 'local-map) (consp (cdr prop))) | |
879 (setq prop (cdr (cdr prop))) | |
880 (setq keep nil))) | |
881 (consp prop))) | |
882 | |
883 ;*---------------------------------------------------------------------*/ | |
884 ;* make-flyspell-overlay ... */ | |
885 ;*---------------------------------------------------------------------*/ | |
886 (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
|
887 "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
|
888 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
|
889 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
|
890 for the overlay." |
24076
6236e60302e2
(make-flyspell-overlay): fix front stickiness.
Richard M. Stallman <rms@gnu.org>
parents:
23943
diff
changeset
|
891 (let ((flyspell-overlay (make-overlay beg end nil t nil))) |
22611 | 892 (overlay-put flyspell-overlay 'face face) |
893 (overlay-put flyspell-overlay 'mouse-face mouse-face) | |
894 (overlay-put flyspell-overlay 'flyspell-overlay t) | |
23943
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
895 (if flyspell-use-local-map |
22611 | 896 (overlay-put flyspell-overlay |
897 flyspell-overlay-keymap-property-name | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
898 flyspell-local-mouse-map)))) |
22611 | 899 |
900 ;*---------------------------------------------------------------------*/ | |
901 ;* flyspell-highlight-incorrect-region ... */ | |
902 ;*---------------------------------------------------------------------*/ | |
903 (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
|
904 "Set up an overlay on a misspelled word, in the buffer from BEG to END." |
22611 | 905 (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
|
906 (if (or flyspell-highlight-properties (not (flyspell-properties-at-p beg))) |
22611 | 907 (progn |
908 ;; we cleanup current overlay at the same position | |
909 (if (and (not flyspell-persistent-highlight) | |
910 (overlayp flyspell-overlay)) | |
911 (delete-overlay flyspell-overlay) | |
912 (let ((overlays (overlays-at beg))) | |
913 (while (consp overlays) | |
914 (if (flyspell-overlay-p (car overlays)) | |
915 (delete-overlay (car overlays))) | |
916 (setq overlays (cdr overlays))))) | |
917 ;; now we can use a new overlay | |
918 (setq flyspell-overlay | |
919 (make-flyspell-overlay beg end | |
920 'flyspell-incorrect-face 'highlight))))) | |
921 | |
922 ;*---------------------------------------------------------------------*/ | |
923 ;* flyspell-highlight-duplicate-region ... */ | |
924 ;*---------------------------------------------------------------------*/ | |
925 (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
|
926 "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
|
927 (if (or flyspell-highlight-properties (not (flyspell-properties-at-p beg))) |
22611 | 928 (progn |
929 ;; we cleanup current overlay at the same position | |
930 (if (and (not flyspell-persistent-highlight) | |
931 (overlayp flyspell-overlay)) | |
932 (delete-overlay flyspell-overlay) | |
933 (let ((overlays (overlays-at beg))) | |
934 (while (consp overlays) | |
935 (if (flyspell-overlay-p (car overlays)) | |
936 (delete-overlay (car overlays))) | |
937 (setq overlays (cdr overlays))))) | |
938 ;; now we can use a new overlay | |
939 (setq flyspell-overlay | |
940 (make-flyspell-overlay beg end | |
941 'flyspell-duplicate-face 'highlight))))) | |
942 | |
943 ;*---------------------------------------------------------------------*/ | |
944 ;* flyspell-auto-correct-cache ... */ | |
945 ;*---------------------------------------------------------------------*/ | |
946 (defvar flyspell-auto-correct-pos nil) | |
947 (defvar flyspell-auto-correct-region nil) | |
948 (defvar flyspell-auto-correct-ring nil) | |
949 | |
950 ;*---------------------------------------------------------------------*/ | |
951 ;* flyspell-auto-correct-word ... */ | |
952 ;*---------------------------------------------------------------------*/ | |
953 (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
|
954 "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
|
955 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
|
956 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
|
957 to this command." |
22611 | 958 (interactive "d") |
959 ;; use the correct dictionary | |
960 (ispell-accept-buffer-local-defs) | |
961 (if (eq flyspell-auto-correct-pos pos) | |
962 ;; we have already been using the function at the same location | |
963 (progn | |
964 (save-excursion | |
965 (let ((start (car flyspell-auto-correct-region)) | |
966 (len (cdr flyspell-auto-correct-region))) | |
967 (delete-region start (+ start len)) | |
968 (setq flyspell-auto-correct-ring (cdr flyspell-auto-correct-ring)) | |
969 (let* ((word (car flyspell-auto-correct-ring)) | |
970 (len (length word))) | |
971 (rplacd flyspell-auto-correct-region len) | |
972 (goto-char start) | |
973 (insert word)))) | |
974 (setq flyspell-auto-correct-pos (point))) | |
975 ;; retain cursor location | |
976 (let ((cursor-location pos) | |
977 (word (flyspell-get-word nil)) | |
978 start end poss) | |
979 ;; destructure return word info list. | |
980 (setq start (car (cdr word)) | |
981 end (car (cdr (cdr word))) | |
982 word (car word)) | |
983 ;; now check spelling of word. | |
984 (process-send-string ispell-process "%\n") ;put in verbose mode | |
985 (process-send-string ispell-process (concat "^" word "\n")) | |
986 ;; wait until ispell has processed word | |
987 (while (progn | |
988 (accept-process-output ispell-process) | |
989 (not (string= "" (car ispell-filter))))) | |
990 (setq ispell-filter (cdr ispell-filter)) | |
991 (if (listp ispell-filter) | |
992 (setq poss (ispell-parse-output (car ispell-filter)))) | |
993 (cond ((or (eq poss t) (stringp poss)) | |
994 ;; don't correct word | |
995 t) | |
996 ((null poss) | |
997 ;; ispell error | |
998 (error "Ispell: error in Ispell process")) | |
999 (t | |
1000 ;; the word is incorrect, we have to propose a replacement | |
1001 (let ((replacements (if flyspell-sort-corrections | |
1002 (sort (car (cdr (cdr poss))) 'string<) | |
1003 (car (cdr (cdr poss)))))) | |
1004 (if (consp replacements) | |
1005 (progn | |
1006 (let ((replace (car replacements))) | |
1007 (setq word replace) | |
1008 (setq cursor-location (+ (- (length word) (- end start)) | |
1009 cursor-location)) | |
1010 (if (not (equal word (car poss))) | |
1011 (progn | |
1012 ;; the save the current replacements | |
1013 (setq flyspell-auto-correct-pos cursor-location) | |
1014 (setq flyspell-auto-correct-region | |
1015 (cons start (length word))) | |
1016 (let ((l replacements)) | |
1017 (while (consp (cdr l)) | |
1018 (setq l (cdr l))) | |
1019 (rplacd l (cons (car poss) replacements))) | |
1020 (setq flyspell-auto-correct-ring | |
1021 (cdr replacements)) | |
1022 (delete-region start end) | |
1023 (insert word))))))))) | |
1024 ;; return to original location | |
1025 (goto-char cursor-location) | |
1026 (ispell-pdict-save t)))) | |
1027 | |
1028 ;*---------------------------------------------------------------------*/ | |
1029 ;* flyspell-correct-word ... */ | |
1030 ;*---------------------------------------------------------------------*/ | |
1031 (defun flyspell-correct-word (event) | |
1032 "Check spelling of word under or before the cursor. | |
1033 If the word is not found in dictionary, display possible corrections | |
1034 in a popup menu allowing you to choose one. | |
1035 | |
1036 Word syntax described by `ispell-dictionary-alist' (which see). | |
1037 | |
1038 This will check or reload the dictionary. Use \\[ispell-change-dictionary] | |
1039 or \\[ispell-region] to update the Ispell process." | |
1040 (interactive "e") | |
23943
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
1041 (if flyspell-use-local-map |
22611 | 1042 (flyspell-correct-word/mouse-keymap event) |
23943
7555c77bc4f0
If local-maps work, don't put
Richard M. Stallman <rms@gnu.org>
parents:
23788
diff
changeset
|
1043 (flyspell-correct-word/local-keymap event))) |
22611 | 1044 |
1045 ;*---------------------------------------------------------------------*/ | |
1046 ;* flyspell-correct-word/local-keymap ... */ | |
1047 ;*---------------------------------------------------------------------*/ | |
1048 (defun flyspell-correct-word/local-keymap (event) | |
1049 "emacs 19.xx seems to be buggous. Overlay keymap does not seems | |
1050 to work correctly with local map. That is, if a key is not | |
1051 defined for the overlay keymap, the current local map, is not | |
1052 checked. The binding is resolved with the global map. The | |
1053 consequence is that we can not use overlay map with flyspell." | |
1054 (interactive "e") | |
1055 (save-window-excursion | |
1056 (let ((save (point))) | |
1057 (mouse-set-point event) | |
1058 ;; we look for a flyspell overlay here | |
1059 (let ((overlays (overlays-at (point))) | |
1060 (overlay nil)) | |
1061 (while (consp overlays) | |
1062 (if (flyspell-overlay-p (car overlays)) | |
1063 (progn | |
1064 (setq overlay (car overlays)) | |
1065 (setq overlays nil)) | |
1066 (setq overlays (cdr overlays)))) | |
1067 ;; we return to the correct location | |
1068 (goto-char save) | |
1069 ;; we check to see if button2 has been used overlay a | |
1070 ;; flyspell overlay | |
1071 (if overlay | |
1072 ;; yes, so we use the flyspell function | |
1073 (flyspell-correct-word/mouse-keymap event) | |
1074 ;; no so we have to use the non flyspell binding | |
1075 (let ((flyspell-mode nil)) | |
1076 (if (key-binding (this-command-keys)) | |
1077 (command-execute (key-binding (this-command-keys)))))))))) | |
1078 | |
1079 ;*---------------------------------------------------------------------*/ | |
1080 ;* flyspell-correct-word ... */ | |
1081 ;*---------------------------------------------------------------------*/ | |
1082 (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
|
1083 "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
|
1084 The word checked is the word at the mouse position." |
22611 | 1085 (interactive "e") |
1086 ;; use the correct dictionary | |
1087 (ispell-accept-buffer-local-defs) | |
1088 ;; retain cursor location (I don't know why but save-excursion here fails). | |
1089 (let ((save (point))) | |
1090 (mouse-set-point event) | |
1091 (let ((cursor-location (point)) | |
1092 (word (flyspell-get-word nil)) | |
1093 start end poss replace) | |
1094 ;; destructure return word info list. | |
1095 (setq start (car (cdr word)) | |
1096 end (car (cdr (cdr word))) | |
1097 word (car word)) | |
1098 ;; now check spelling of word. | |
1099 (process-send-string ispell-process "%\n") ;put in verbose mode | |
1100 (process-send-string ispell-process (concat "^" word "\n")) | |
1101 ;; wait until ispell has processed word | |
1102 (while (progn | |
1103 (accept-process-output ispell-process) | |
1104 (not (string= "" (car ispell-filter))))) | |
1105 (setq ispell-filter (cdr ispell-filter)) | |
1106 (if (listp ispell-filter) | |
1107 (setq poss (ispell-parse-output (car ispell-filter)))) | |
1108 (cond ((or (eq poss t) (stringp poss)) | |
1109 ;; don't correct word | |
1110 t) | |
1111 ((null poss) | |
1112 ;; ispell error | |
1113 (error "Ispell: error in Ispell process")) | |
1114 ((string-match "GNU" (emacs-version)) | |
1115 ;; 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
|
1116 (setq replace (flyspell-emacs-popup event poss word)) |
22611 | 1117 (cond ((eq replace 'ignore) |
1118 nil) | |
1119 ((eq replace 'save) | |
1120 (process-send-string ispell-process (concat "*" word "\n")) | |
1121 (flyspell-unhighlight-at cursor-location) | |
1122 (setq ispell-pdict-modified-p '(t))) | |
1123 ((or (eq replace 'buffer) (eq replace 'session)) | |
1124 (process-send-string ispell-process (concat "@" word "\n")) | |
1125 (if (null ispell-pdict-modified-p) | |
1126 (setq ispell-pdict-modified-p | |
1127 (list ispell-pdict-modified-p))) | |
1128 (flyspell-unhighlight-at cursor-location) | |
1129 (if (eq replace 'buffer) | |
1130 (ispell-add-per-file-word-list word))) | |
1131 (replace | |
1132 (setq word (if (atom replace) replace (car replace)) | |
1133 cursor-location (+ (- (length word) (- end start)) | |
1134 cursor-location)) | |
1135 (if (not (equal word (car poss))) | |
1136 (progn | |
1137 (delete-region start end) | |
1138 (insert word)))))) | |
27787
d40d47971e6b
(flyspell-mouse-map): Change definition
Dave Love <fx@gnu.org>
parents:
24943
diff
changeset
|
1139 ((eq flyspell-emacs 'xemacs) |
22611 | 1140 (flyspell-xemacs-popup |
1141 event poss word cursor-location start end))) | |
1142 (ispell-pdict-save t)) | |
1143 (if (< save (point-max)) | |
1144 (goto-char save) | |
1145 (goto-char (point-max))))) | |
1146 | |
1147 ;*---------------------------------------------------------------------*/ | |
1148 ;* flyspell-xemacs-correct ... */ | |
1149 ;*---------------------------------------------------------------------*/ | |
1150 (defun flyspell-xemacs-correct (replace poss word cursor-location start end) | |
1151 "The xemacs popup menu callback." | |
1152 (cond ((eq replace 'ignore) | |
1153 nil) | |
1154 ((eq replace 'save) | |
1155 (process-send-string ispell-process (concat "*" word "\n")) | |
1156 (flyspell-unhighlight-at cursor-location) | |
1157 (setq ispell-pdict-modified-p '(t))) | |
1158 ((or (eq replace 'buffer) (eq replace 'session)) | |
1159 (process-send-string ispell-process (concat "@" word "\n")) | |
1160 (flyspell-unhighlight-at cursor-location) | |
1161 (if (null ispell-pdict-modified-p) | |
1162 (setq ispell-pdict-modified-p | |
1163 (list ispell-pdict-modified-p))) | |
1164 (if (eq replace 'buffer) | |
1165 (ispell-add-per-file-word-list word))) | |
1166 (replace | |
1167 (setq word (if (atom replace) replace (car replace)) | |
1168 cursor-location (+ (- (length word) (- end start)) | |
1169 cursor-location)) | |
1170 (if (not (equal word (car poss))) | |
1171 (save-excursion | |
1172 (delete-region start end) | |
1173 (goto-char start) | |
1174 (insert word)))))) | |
1175 | |
1176 ;*---------------------------------------------------------------------*/ | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
1177 ;* flyspell-emacs-popup ... */ |
22611 | 1178 ;*---------------------------------------------------------------------*/ |
22844
1104a715c324
(flyspell-emacs-popup): Renamed from flyspell-gnuemacs-popup. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
22648
diff
changeset
|
1179 (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
|
1180 "The Emacs popup menu." |
22611 | 1181 (if (not event) |
1182 (let* ((mouse-pos (mouse-position)) | |
1183 (mouse-pos (if (nth 1 mouse-pos) | |
1184 mouse-pos | |
1185 (set-mouse-position (car mouse-pos) | |
1186 (/ (frame-width) 2) 2) | |
1187 (unfocus-frame) | |
1188 (mouse-position)))) | |
1189 (setq event (list (list (car (cdr mouse-pos)) | |
1190 (1+ (cdr (cdr mouse-pos)))) | |
1191 (car mouse-pos))))) | |
1192 (let* ((corrects (if flyspell-sort-corrections | |
1193 (sort (car (cdr (cdr poss))) 'string<) | |
1194 (car (cdr (cdr poss))))) | |
1195 (cor-menu (if (consp corrects) | |
1196 (mapcar (lambda (correct) | |
1197 (list correct correct)) | |
1198 corrects) | |
1199 '())) | |
1200 (affix (car (cdr (cdr (cdr poss))))) | |
1201 (base-menu (let ((save (if (consp affix) | |
1202 (list | |
1203 (list (concat "Save affix: " (car affix)) | |
1204 'save) | |
1205 '("Accept (session)" accept) | |
1206 '("Accept (buffer)" buffer)) | |
1207 '(("Save word" save) | |
1208 ("Accept (session)" session) | |
1209 ("Accept (buffer)" buffer))))) | |
1210 (if (consp cor-menu) | |
1211 (append cor-menu (cons "" save)) | |
1212 save))) | |
1213 (menu (cons "flyspell correction menu" base-menu))) | |
1214 (car (x-popup-menu event | |
1215 (list (format "%s [%s]" word (or ispell-local-dictionary | |
1216 ispell-dictionary)) | |
1217 menu))))) | |
1218 | |
1219 ;*---------------------------------------------------------------------*/ | |
22891
780c3ef895d7
(flyspell-duplicate-distance): Doc fix; change default to 10000.
Richard M. Stallman <rms@gnu.org>
parents:
22844
diff
changeset
|
1220 ;* flyspell-xemacs-popup ... */ |
22611 | 1221 ;*---------------------------------------------------------------------*/ |
1222 (defun flyspell-xemacs-popup (event poss word cursor-location start end) | |
1223 "The xemacs popup menu." | |
1224 (let* ((corrects (if flyspell-sort-corrections | |
1225 (sort (car (cdr (cdr poss))) 'string<) | |
1226 (car (cdr (cdr poss))))) | |
1227 (cor-menu (if (consp corrects) | |
1228 (mapcar (lambda (correct) | |
1229 (vector correct | |
1230 (list 'flyspell-xemacs-correct | |
1231 correct | |
1232 (list 'quote poss) | |
1233 word | |
1234 cursor-location | |
1235 start | |
1236 end) | |
1237 t)) | |
1238 corrects) | |
1239 '())) | |
1240 (affix (car (cdr (cdr (cdr poss))))) | |
1241 (menu (let ((save (if (consp affix) | |
1242 (vector | |
1243 (concat "Save affix: " (car affix)) | |
1244 (list 'flyspell-xemacs-correct | |
1245 ''save | |
1246 (list 'quote poss) | |
1247 word | |
1248 cursor-location | |
1249 start | |
1250 end) | |
1251 t) | |
1252 (vector | |
1253 "Save word" | |
1254 (list 'flyspell-xemacs-correct | |
1255 ''save | |
1256 (list 'quote poss) | |
1257 word | |
1258 cursor-location | |
1259 start | |
1260 end) | |
1261 t))) | |
1262 (session (vector "Accept (session)" | |
1263 (list 'flyspell-xemacs-correct | |
1264 ''session | |
1265 (list 'quote poss) | |
1266 word | |
1267 cursor-location | |
1268 start | |
1269 end) | |
1270 t)) | |
1271 (buffer (vector "Accept (buffer)" | |
1272 (list 'flyspell-xemacs-correct | |
1273 ''buffer | |
1274 (list 'quote poss) | |
1275 word | |
1276 cursor-location | |
1277 start | |
1278 end) | |
1279 t))) | |
1280 (if (consp cor-menu) | |
1281 (append cor-menu (list "-" save session buffer)) | |
1282 (list save session buffer))))) | |
1283 (popup-menu (cons (format "%s [%s]" word (or ispell-local-dictionary | |
1284 ispell-dictionary)) | |
1285 menu)))) | |
1286 | |
1287 (provide 'flyspell) | |
1288 | |
1289 ;;; flyspell.el ends here |