Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 14169:83f275dcd93a
Update FSF's address.
author | Erik Naggum <erik@naggum.no> |
---|---|
date | Sun, 14 Jan 1996 07:34:30 +0000 |
parents | 187735b53d52 |
children | b7708fc4d023 |
comparison
equal
deleted
inserted
replaced
14168:3b925cc52931 | 14169:83f275dcd93a |
---|---|
1 ;;; ispell.el --- spell checking using Ispell | 1 ;;; ispell.el --- spell checking using Ispell |
2 | 2 |
3 ;;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. |
4 | 4 |
5 ;;; Authors : Ken Stevens <k.stevens@ieee.org> | 5 ;; Authors : Ken Stevens <k.stevens@ieee.org> |
6 ;;; Note: version numbers and time stamp are not updated | 6 ;; Last Modified On: Tue Jun 13 12:05:28 EDT 1995 |
7 ;;; when this file is edited for release with GNU Emacs. | 7 ;; Update Revision : 2.37 |
8 ;;; Last Modified On: Tue Jun 13 12:05:28 EDT 1995 | 8 ;; Syntax : emacs-lisp |
9 ;;; Update Revision : 2.37 | 9 ;; Status : Release with 3.1.12+ ispell. |
10 ;;; Syntax : emacs-lisp | 10 ;; Version : International Ispell Version 3.1 by Geoff Kuenning. |
11 ;;; Status : Release with 3.1.12+ ispell. | 11 ;; Bug Reports : ispell-el-bugs@itcorp.com |
12 ;;; Version : International Ispell Version 3.1 by Geoff Kuenning. | 12 |
13 ;;; Bug Reports : ispell-el-bugs@itcorp.com | 13 ;; This file is part of GNU Emacs. |
14 | 14 |
15 ;;; Note: version numbers and time stamp are not updated | 15 ;; GNU Emacs is free software; you can redistribute it and/or modify |
16 ;;; when this file is edited for release with GNU Emacs. | 16 ;; it under the terms of the GNU General Public License as published by |
17 | 17 ;; the Free Software Foundation; either version 2, or (at your option) |
18 ;;; This file is part of GNU Emacs. | 18 ;; any later version. |
19 ;;; | 19 |
20 ;;; GNU Emacs is free software; you can redistribute it and/or modify | 20 ;; GNU Emacs is distributed in the hope that it will be useful, |
21 ;;; it under the terms of the GNU General Public License as published by | 21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
22 ;;; the Free Software Foundation; either version 2, or (at your option) | 22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
23 ;;; any later version. | 23 ;; GNU General Public License for more details. |
24 ;;; | 24 |
25 ;;; GNU Emacs is distributed in the hope that it will be useful, | 25 ;; You should have received a copy of the GNU General Public License |
26 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 26 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
27 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
28 ;;; GNU General Public License for more details. | 28 ;; Boston, MA 02111-1307, USA. |
29 ;;; | 29 |
30 ;;; You should have received a copy of the GNU General Public License | 30 ;; Note: version numbers and time stamp are not updated |
31 ;;; along with GNU Emacs; see the file COPYING. If not, write to | 31 ;; when this file is edited for release with GNU Emacs. |
32 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 32 |
33 ;;; | |
34 ;;; Commentary: | 33 ;;; Commentary: |
35 ;;; | 34 |
36 ;;; INSTRUCTIONS | 35 ;; INSTRUCTIONS |
37 ;;; | 36 ;; |
38 ;;; This code contains a section of user-settable variables that you should | 37 ;; This code contains a section of user-settable variables that you should |
39 ;;; inspect prior to installation. Look past the end of the history list. | 38 ;; inspect prior to installation. Look past the end of the history list. |
40 ;;; Set them up for your locale and the preferences of the majority of the | 39 ;; Set them up for your locale and the preferences of the majority of the |
41 ;;; users. Otherwise the users may need to set a number of variables | 40 ;; users. Otherwise the users may need to set a number of variables |
42 ;;; themselves. | 41 ;; themselves. |
43 ;;; You particularly may want to change the default dictionary for your | 42 ;; You particularly may want to change the default dictionary for your |
44 ;;; country and language. | 43 ;; country and language. |
45 ;;; | 44 ;; |
46 ;;; | 45 ;; |
47 ;;; To fully install this, add this file to your Emacs Lisp directory and | 46 ;; To fully install this, add this file to your Emacs Lisp directory and |
48 ;;; compile it with M-X byte-compile-file. Then add the following to the | 47 ;; compile it with M-X byte-compile-file. Then add the following to the |
49 ;;; appropriate init file: | 48 ;; appropriate init file: |
50 ;;; | 49 ;; |
51 ;;; (autoload 'ispell-word "ispell" | 50 ;; (autoload 'ispell-word "ispell" |
52 ;;; "Check the spelling of word in buffer." t) | 51 ;; "Check the spelling of word in buffer." t) |
53 ;;; (global-set-key "\e$" 'ispell-word) | 52 ;; (global-set-key "\e$" 'ispell-word) |
54 ;;; (autoload 'ispell-region "ispell" | 53 ;; (autoload 'ispell-region "ispell" |
55 ;;; "Check the spelling of region." t) | 54 ;; "Check the spelling of region." t) |
56 ;;; (autoload 'ispell-buffer "ispell" | 55 ;; (autoload 'ispell-buffer "ispell" |
57 ;;; "Check the spelling of buffer." t) | 56 ;; "Check the spelling of buffer." t) |
58 ;;; (autoload 'ispell-complete-word "ispell" | 57 ;; (autoload 'ispell-complete-word "ispell" |
59 ;;; "Look up current word in dictionary and try to complete it." t) | 58 ;; "Look up current word in dictionary and try to complete it." t) |
60 ;;; (autoload 'ispell-change-dictionary "ispell" | 59 ;; (autoload 'ispell-change-dictionary "ispell" |
61 ;;; "Change ispell dictionary." t) | 60 ;; "Change ispell dictionary." t) |
62 ;;; (autoload 'ispell-message "ispell" | 61 ;; (autoload 'ispell-message "ispell" |
63 ;;; "Check spelling of mail message or news post.") | 62 ;; "Check spelling of mail message or news post.") |
64 ;;; | 63 ;; |
65 ;;; Depending on the mail system you use, you may want to include these: | 64 ;; Depending on the mail system you use, you may want to include these: |
66 ;;; | 65 ;; |
67 ;;; (add-hook 'news-inews-hook 'ispell-message) | 66 ;; (add-hook 'news-inews-hook 'ispell-message) |
68 ;;; (add-hook 'mail-send-hook 'ispell-message) | 67 ;; (add-hook 'mail-send-hook 'ispell-message) |
69 ;;; (add-hook 'mh-before-send-letter-hook 'ispell-message) | 68 ;; (add-hook 'mh-before-send-letter-hook 'ispell-message) |
70 ;;; | 69 ;; |
71 ;;; | 70 ;; |
72 ;;; Ispell has a TeX parser and a nroff parser (the default). | 71 ;; Ispell has a TeX parser and a nroff parser (the default). |
73 ;;; The parsing is controlled by the variable ispell-parser. Currently | 72 ;; The parsing is controlled by the variable ispell-parser. Currently |
74 ;;; it is just a "toggle" between TeX and nroff, but if more parsers are | 73 ;; it is just a "toggle" between TeX and nroff, but if more parsers are |
75 ;;; added it will be updated. See the variable description for more info. | 74 ;; added it will be updated. See the variable description for more info. |
76 ;;; | 75 ;; |
77 ;;; | 76 ;; |
78 ;;; TABLE OF CONTENTS | 77 ;; TABLE OF CONTENTS |
79 ;;; | 78 ;; |
80 ;;; ispell-word | 79 ;; ispell-word |
81 ;;; ispell-region | 80 ;; ispell-region |
82 ;;; ispell-buffer | 81 ;; ispell-buffer |
83 ;;; ispell-message | 82 ;; ispell-message |
84 ;;; ispell-continue | 83 ;; ispell-continue |
85 ;;; ispell-complete-word | 84 ;; ispell-complete-word |
86 ;;; ispell-complete-word-interior-frag | 85 ;; ispell-complete-word-interior-frag |
87 ;;; ispell-change-dictionary | 86 ;; ispell-change-dictionary |
88 ;;; ispell-kill-ispell | 87 ;; ispell-kill-ispell |
89 ;;; ispell-pdict-save | 88 ;; ispell-pdict-save |
90 ;;; | 89 ;; |
91 ;;; | 90 ;; |
92 ;;; Commands in ispell-region: | 91 ;; Commands in ispell-region: |
93 ;;; Character replacement: Replace word with choice. May query-replace. | 92 ;; Character replacement: Replace word with choice. May query-replace. |
94 ;;; ' ': Accept word this time. | 93 ;; ' ': Accept word this time. |
95 ;;; 'i': Accept word and insert into private dictionary. | 94 ;; 'i': Accept word and insert into private dictionary. |
96 ;;; 'a': Accept word for this session. | 95 ;; 'a': Accept word for this session. |
97 ;;; 'A': Accept word and place in buffer-local dictionary. | 96 ;; 'A': Accept word and place in buffer-local dictionary. |
98 ;;; 'r': Replace word with typed-in value. Rechecked. | 97 ;; 'r': Replace word with typed-in value. Rechecked. |
99 ;;; 'R': Replace word with typed-in value. Query-replaced in buffer. Rechecked. | 98 ;; 'R': Replace word with typed-in value. Query-replaced in buffer. Rechecked. |
100 ;;; '?': Show these commands | 99 ;; '?': Show these commands |
101 ;;; 'x': Exit spelling buffer. Move cursor to original point. | 100 ;; 'x': Exit spelling buffer. Move cursor to original point. |
102 ;;; 'X': Exit spelling buffer. Leave cursor at the current point. | 101 ;; 'X': Exit spelling buffer. Leave cursor at the current point. |
103 ;;; 'q': Quit spelling session (Kills ispell process). | 102 ;; 'q': Quit spelling session (Kills ispell process). |
104 ;;; 'l': Look up typed-in replacement in alternate dictionary. Wildcards okay. | 103 ;; 'l': Look up typed-in replacement in alternate dictionary. Wildcards okay. |
105 ;;; 'u': Like 'i', but the word is lower-cased first. | 104 ;; 'u': Like 'i', but the word is lower-cased first. |
106 ;;; 'm': Like 'i', but allows one to include dictionary completion info. | 105 ;; 'm': Like 'i', but allows one to include dictionary completion info. |
107 ;;; 'C-l': redraws screen | 106 ;; 'C-l': redraws screen |
108 ;;; 'C-r': recursive edit | 107 ;; 'C-r': recursive edit |
109 ;;; 'C-z': suspend emacs or iconify frame | 108 ;; 'C-z': suspend emacs or iconify frame |
110 ;;; | 109 ;; |
111 ;;; Buffer-Local features: | 110 ;; Buffer-Local features: |
112 ;;; There are a number of buffer-local features that can be used to customize | 111 ;; There are a number of buffer-local features that can be used to customize |
113 ;;; ispell for the current buffer. This includes language dictionaries, | 112 ;; ispell for the current buffer. This includes language dictionaries, |
114 ;;; personal dictionaries, parsing, and local word spellings. Each of these | 113 ;; personal dictionaries, parsing, and local word spellings. Each of these |
115 ;;; local customizations are done either through local variables, or by | 114 ;; local customizations are done either through local variables, or by |
116 ;;; including the keyword and argument(s) at the end of the buffer (usually | 115 ;; including the keyword and argument(s) at the end of the buffer (usually |
117 ;;; prefixed by the comment characters). See the end of this file for | 116 ;; prefixed by the comment characters). See the end of this file for |
118 ;;; examples. The local keywords and variables are: | 117 ;; examples. The local keywords and variables are: |
119 ;;; | 118 ;; |
120 ;;; ispell-dictionary-keyword language-dictionary | 119 ;; ispell-dictionary-keyword language-dictionary |
121 ;;; uses local variable ispell-local-dictionary | 120 ;; uses local variable ispell-local-dictionary |
122 ;;; ispell-pdict-keyword personal-dictionary | 121 ;; ispell-pdict-keyword personal-dictionary |
123 ;;; uses local variable ispell-local-pdict | 122 ;; uses local variable ispell-local-pdict |
124 ;;; ispell-parsing-keyword mode-arg extended-char-arg | 123 ;; ispell-parsing-keyword mode-arg extended-char-arg |
125 ;;; ispell-words-keyword any number of local word spellings | 124 ;; ispell-words-keyword any number of local word spellings |
126 ;;; | 125 ;; |
127 ;;; | 126 ;; |
128 ;;; BUGS: | 127 ;; BUGS: |
129 ;;; Highlighting in version 19 still doesn't work on tty's. | 128 ;; Highlighting in version 19 still doesn't work on tty's. |
130 ;;; On some versions of emacs, growing the minibuffer fails. | 129 ;; On some versions of emacs, growing the minibuffer fails. |
131 ;;; | 130 ;; |
132 ;;; HISTORY | 131 ;; HISTORY |
133 ;;; | 132 ;; |
134 ;;; Revision 2.37 1995/6/13 12:05:28 stevens | 133 ;; Revision 2.37 1995/6/13 12:05:28 stevens |
135 ;;; Removed autoload from ispell-dictionary-alist. *choices* mode-line shows | 134 ;; Removed autoload from ispell-dictionary-alist. *choices* mode-line shows |
136 ;;; misspelled word. Block skip for pgp & forwarded messages added. | 135 ;; misspelled word. Block skip for pgp & forwarded messages added. |
137 ;;; RMS: the autoload changes had problems and I removed them. | 136 ;; RMS: the autoload changes had problems and I removed them. |
138 ;;; | 137 ;; |
139 ;;; Revision 2.36 1995/2/6 17:39:38 stevens | 138 ;; Revision 2.36 1995/2/6 17:39:38 stevens |
140 ;;; Properly adjust screen with different ispell-choices-win-default-height | 139 ;; Properly adjust screen with different ispell-choices-win-default-height |
141 ;;; settings. Skips SGML entity references. | 140 ;; settings. Skips SGML entity references. |
142 ;;; | 141 ;; |
143 ;;; Revision 2.35 1995/1/13 14:16:46 stevens | 142 ;; Revision 2.35 1995/1/13 14:16:46 stevens |
144 ;;; Skips SGML tags, ispell-change-dictionary fix for add-hook, assure personal | 143 ;; Skips SGML tags, ispell-change-dictionary fix for add-hook, assure personal |
145 ;;; dictionary is saved when called from the menu | 144 ;; dictionary is saved when called from the menu |
146 ;;; | 145 ;; |
147 ;;; Revision 2.34 1994/12/08 13:17:41 stevens | 146 ;; Revision 2.34 1994/12/08 13:17:41 stevens |
148 ;;; Interaction corrected to function with all 3.1 ispell versions. | 147 ;; Interaction corrected to function with all 3.1 ispell versions. |
149 ;;; | 148 ;; |
150 ;;; Revision 2.33 1994/11/24 02:31:20 stevens | 149 ;; Revision 2.33 1994/11/24 02:31:20 stevens |
151 ;;; Repaired bug introduced in 2.32 that corrupts buffers when correcting. | 150 ;; Repaired bug introduced in 2.32 that corrupts buffers when correcting. |
152 ;;; Improved buffer scrolling. Nondestructive buffer selections allowed. | 151 ;; Improved buffer scrolling. Nondestructive buffer selections allowed. |
153 ;;; | 152 ;; |
154 ;;; Revision 2.32 1994/10/31 21:10:08 geoff | 153 ;; Revision 2.32 1994/10/31 21:10:08 geoff |
155 ;;; Many revisions accepted from RMS/FSF. I think (though I don't know) that | 154 ;; Many revisions accepted from RMS/FSF. I think (though I don't know) that |
156 ;;; this represents an 'official' version. | 155 ;; this represents an 'official' version. |
157 ;;; | 156 ;; |
158 ;;; Revision 2.31 1994/5/31 10:18:17 stevens | 157 ;; Revision 2.31 1994/5/31 10:18:17 stevens |
159 ;;; Repaired comments. buffer-local commands executed in `ispell-word' now. | 158 ;; Repaired comments. buffer-local commands executed in `ispell-word' now. |
160 ;;; German dictionary described for extended character mode. Dict messages. | 159 ;; German dictionary described for extended character mode. Dict messages. |
161 ;;; | 160 ;; |
162 ;;; Revision 2.30 1994/5/20 22:18:36 stevens | 161 ;; Revision 2.30 1994/5/20 22:18:36 stevens |
163 ;;; Continue ispell from ispell-word, C-z functionality fixed. | 162 ;; Continue ispell from ispell-word, C-z functionality fixed. |
164 ;;; | 163 ;; |
165 ;;; Revision 2.29 1994/5/12 09:44:33 stevens | 164 ;; Revision 2.29 1994/5/12 09:44:33 stevens |
166 ;;; Restored ispell-use-ptys-p, ispell-message aborts sends with interrupt. | 165 ;; Restored ispell-use-ptys-p, ispell-message aborts sends with interrupt. |
167 ;;; defined fn ispell | 166 ;; defined fn ispell |
168 ;;; | 167 ;; |
169 ;;; Revision 2.28 1994/4/28 16:24:40 stevens | 168 ;; Revision 2.28 1994/4/28 16:24:40 stevens |
170 ;;; Window checking when ispell-message put on gnus-inews-article-hook jwz. | 169 ;; Window checking when ispell-message put on gnus-inews-article-hook jwz. |
171 ;;; prefixed ispell- to highlight functions and horiz-scroll fn. | 170 ;; prefixed ispell- to highlight functions and horiz-scroll fn. |
172 ;;; Try and respect case of word in ispell-complete-word. | 171 ;; Try and respect case of word in ispell-complete-word. |
173 ;;; Ignore non-char events. Ispell-use-ptys-p commented out. Lucid menu. | 172 ;; Ignore non-char events. Ispell-use-ptys-p commented out. Lucid menu. |
174 ;;; Better interrupt handling. ispell-message improvements from Ethan. | 173 ;; Better interrupt handling. ispell-message improvements from Ethan. |
175 ;;; | 174 ;; |
176 ;;; Revision 2.27 | 175 ;; Revision 2.27 |
177 ;;; version 18 explicit C-g handling disabled as it didn't work. Added | 176 ;; version 18 explicit C-g handling disabled as it didn't work. Added |
178 ;;; ispell-extra-args for ispell customization (jwz) | 177 ;; ispell-extra-args for ispell customization (jwz) |
179 ;;; | 178 ;; |
180 ;;; Revision 2.26 1994/2/15 16:11:14 stevens | 179 ;; Revision 2.26 1994/2/15 16:11:14 stevens |
181 ;;; name changes for copyright assignment. Added word-frags in complete-word. | 180 ;; name changes for copyright assignment. Added word-frags in complete-word. |
182 ;;; Horizontal scroll (John Conover). Query-replace matches words now. bugs. | 181 ;; Horizontal scroll (John Conover). Query-replace matches words now. bugs. |
183 ;;; | 182 ;; |
184 ;;; Revision 2.25 | 183 ;; Revision 2.25 |
185 ;;; minor mods, upgraded ispell-message | 184 ;; minor mods, upgraded ispell-message |
186 ;;; | 185 ;; |
187 ;;; Revision 2.24 | 186 ;; Revision 2.24 |
188 ;;; query-replace more robust, messages, defaults, ispell-change-dict. | 187 ;; query-replace more robust, messages, defaults, ispell-change-dict. |
189 ;;; | 188 ;; |
190 ;;; Revision 2.23 1993/11/22 23:47:03 stevens | 189 ;; Revision 2.23 1993/11/22 23:47:03 stevens |
191 ;;; ispell-message, Fixed highlighting, added menu-bar, fixed ispell-help, ... | 190 ;; ispell-message, Fixed highlighting, added menu-bar, fixed ispell-help, ... |
192 ;;; | 191 ;; |
193 ;;; Revision 2.22 | 192 ;; Revision 2.22 |
194 ;;; Added 'u' command. Fixed default in ispell-local-dictionary. | 193 ;; Added 'u' command. Fixed default in ispell-local-dictionary. |
195 ;;; fixed affix rules display. Tib skipping more robust. Contributions by | 194 ;; fixed affix rules display. Tib skipping more robust. Contributions by |
196 ;;; Per Abraham (parser selection), Denis Howe, and Eberhard Mattes. | 195 ;; Per Abraham (parser selection), Denis Howe, and Eberhard Mattes. |
197 ;;; | 196 ;; |
198 ;;; Revision 2.21 1993/06/30 14:09:04 stevens | 197 ;; Revision 2.21 1993/06/30 14:09:04 stevens |
199 ;;; minor bugs. (nroff word skipping fixed) | 198 ;; minor bugs. (nroff word skipping fixed) |
200 ;;; | 199 ;; |
201 ;;; Revision 2.20 1993/06/30 14:09:04 stevens | 200 ;; Revision 2.20 1993/06/30 14:09:04 stevens |
202 ;;; | 201 ;; |
203 ;;; Debugging and contributions by: Boris Aronov, Rik Faith, Chris Moore, | 202 ;; Debugging and contributions by: Boris Aronov, Rik Faith, Chris Moore, |
204 ;;; Kevin Rodgers, Malcolm Davis. | 203 ;; Kevin Rodgers, Malcolm Davis. |
205 ;;; Particular thanks to Michael Lipp, Jamie Zawinski, Phil Queinnec | 204 ;; Particular thanks to Michael Lipp, Jamie Zawinski, Phil Queinnec |
206 ;;; and John Heidemann for suggestions and code. | 205 ;; and John Heidemann for suggestions and code. |
207 ;;; Major update including many tweaks. | 206 ;; Major update including many tweaks. |
208 ;;; Many changes were integrations of suggestions. | 207 ;; Many changes were integrations of suggestions. |
209 ;;; lookup-words rehacked to use call-process (Jamie). | 208 ;; lookup-words rehacked to use call-process (Jamie). |
210 ;;; ispell-complete-word rehacked to be compatible with the rest of the | 209 ;; ispell-complete-word rehacked to be compatible with the rest of the |
211 ;;; system for word searching and to include multiple wildcards, | 210 ;; system for word searching and to include multiple wildcards, |
212 ;;; and it's own dictionary. | 211 ;; and it's own dictionary. |
213 ;;; query-replace capability added. New options 'X', 'R', and 'A'. | 212 ;; query-replace capability added. New options 'X', 'R', and 'A'. |
214 ;;; buffer-local modes for dictionary, word-spelling, and formatter-parsing. | 213 ;; buffer-local modes for dictionary, word-spelling, and formatter-parsing. |
215 ;;; Many random bugs, like commented comments being skipped, fix to | 214 ;; Many random bugs, like commented comments being skipped, fix to |
216 ;;; keep-choices-win, fix for math mode, added pipe mode choice, | 215 ;; keep-choices-win, fix for math mode, added pipe mode choice, |
217 ;;; fixed 'q' command, ispell-word checks previous word and leave cursor | 216 ;; fixed 'q' command, ispell-word checks previous word and leave cursor |
218 ;;; in same location. Fixed tib code which could drop spelling regions. | 217 ;; in same location. Fixed tib code which could drop spelling regions. |
219 ;;; Cleaned up setq calls for efficiency. Gave more context on window overlays. | 218 ;; Cleaned up setq calls for efficiency. Gave more context on window overlays. |
220 ;;; Assure context on ispell-command-loop. Window lossage in look cmd fixed. | 219 ;; Assure context on ispell-command-loop. Window lossage in look cmd fixed. |
221 ;;; Due to pervasive opinion, common-lisp package syntax removed. Display | 220 ;; Due to pervasive opinion, common-lisp package syntax removed. Display |
222 ;;; problem when not highlighting. | 221 ;; problem when not highlighting. |
223 ;;; | 222 ;; |
224 ;;; Revision 2.19 1992/01/10 10:54:08 geoff | 223 ;; Revision 2.19 1992/01/10 10:54:08 geoff |
225 ;;; Make another attempt at fixing the "Bogus, dude" problem. This one is | 224 ;; Make another attempt at fixing the "Bogus, dude" problem. This one is |
226 ;;; less elegant, but has the advantage of working. | 225 ;; less elegant, but has the advantage of working. |
227 ;;; | 226 ;; |
228 ;;; Revision 2.18 1992/01/07 10:04:52 geoff | 227 ;; Revision 2.18 1992/01/07 10:04:52 geoff |
229 ;;; Fix the "Bogus, Dude" problem in ispell-word. | 228 ;; Fix the "Bogus, Dude" problem in ispell-word. |
230 ;;; | 229 ;; |
231 ;;; Revision 2.17 1991/09/12 00:01:42 geoff | 230 ;; Revision 2.17 1991/09/12 00:01:42 geoff |
232 ;;; Add some changes to make ispell-complete-word work better, though | 231 ;; Add some changes to make ispell-complete-word work better, though |
233 ;;; still not perfectly. | 232 ;; still not perfectly. |
234 ;;; | 233 ;; |
235 ;;; Revision 2.16 91/09/04 18:00:52 geoff | 234 ;; Revision 2.16 91/09/04 18:00:52 geoff |
236 ;;; More updates from Sebastian, to make the multiple-dictionary support | 235 ;; More updates from Sebastian, to make the multiple-dictionary support |
237 ;;; more flexible. | 236 ;; more flexible. |
238 ;;; | 237 ;; |
239 ;;; Revision 2.15 91/09/04 17:30:02 geoff | 238 ;; Revision 2.15 91/09/04 17:30:02 geoff |
240 ;;; Sebastian Kremer's tib support | 239 ;; Sebastian Kremer's tib support |
241 ;;; | 240 ;; |
242 ;;; Revision 2.14 91/09/04 16:19:37 geoff | 241 ;; Revision 2.14 91/09/04 16:19:37 geoff |
243 ;;; Don't do set-window-start if the move-to-window-line moved us | 242 ;; Don't do set-window-start if the move-to-window-line moved us |
244 ;;; downward, rather than upward. This prevents getting the buffer all | 243 ;; downward, rather than upward. This prevents getting the buffer all |
245 ;;; confused. Also, don't use the "not-modified" function to clear the | 244 ;; confused. Also, don't use the "not-modified" function to clear the |
246 ;;; modification flag; instead use set-buffer-modified-p. This prevents | 245 ;; modification flag; instead use set-buffer-modified-p. This prevents |
247 ;;; extra messages from flashing. | 246 ;; extra messages from flashing. |
248 ;;; | 247 ;; |
249 ;;; Revision 2.13 91/09/04 14:35:41 geoff | 248 ;; Revision 2.13 91/09/04 14:35:41 geoff |
250 ;;; Fix a spelling error in a comment. Add code to handshake with the | 249 ;; Fix a spelling error in a comment. Add code to handshake with the |
251 ;;; ispell process before sending anything to it. | 250 ;; ispell process before sending anything to it. |
252 ;;; | 251 ;; |
253 ;;; Revision 2.12 91/09/03 20:14:21 geoff | 252 ;; Revision 2.12 91/09/03 20:14:21 geoff |
254 ;;; Add Sebastian Kremer's multiple-language support. | 253 ;; Add Sebastian Kremer's multiple-language support. |
255 ;;; | 254 ;; |
256 ;;; | 255 ;; |
257 ;;; Walt Buehring | 256 ;; Walt Buehring |
258 ;;; Texas Instruments - Computer Science Center | 257 ;; Texas Instruments - Computer Science Center |
259 ;;; ARPA: Buehring%TI-CSL@CSNet-Relay | 258 ;; ARPA: Buehring%TI-CSL@CSNet-Relay |
260 ;;; UUCP: {smu, texsun, im4u, rice} ! ti-csl ! buehring | 259 ;; UUCP: {smu, texsun, im4u, rice} ! ti-csl ! buehring |
261 ;;; | 260 ;; |
262 ;;; ispell-region and associated routines added by | 261 ;; ispell-region and associated routines added by |
263 ;;; Perry Smith | 262 ;; Perry Smith |
264 ;;; pedz@bobkat | 263 ;; pedz@bobkat |
265 ;;; Tue Jan 13 20:18:02 CST 1987 | 264 ;; Tue Jan 13 20:18:02 CST 1987 |
266 ;;; | 265 ;; |
267 ;;; extensively modified by Mark Davies and Andrew Vignaux | 266 ;; extensively modified by Mark Davies and Andrew Vignaux |
268 ;;; {mark,andrew}@vuwcomp | 267 ;; {mark,andrew}@vuwcomp |
269 ;;; Sun May 10 11:45:04 NZST 1987 | 268 ;; Sun May 10 11:45:04 NZST 1987 |
270 ;;; | 269 ;; |
271 ;;; Ken Stevens ARPA: k.stevens@ieee.org | 270 ;; Ken Stevens ARPA: k.stevens@ieee.org |
272 ;;; Tue Jan 3 16:59:07 PST 1989 | 271 ;; Tue Jan 3 16:59:07 PST 1989 |
273 ;;; This file has overgone a major overhaul to be compatible with ispell | 272 ;; This file has overgone a major overhaul to be compatible with ispell |
274 ;;; version 2.1. Most of the functions have been totally rewritten, and | 273 ;; version 2.1. Most of the functions have been totally rewritten, and |
275 ;;; many user-accessible variables have been added. The syntax table has | 274 ;; many user-accessible variables have been added. The syntax table has |
276 ;;; been removed since it didn't work properly anyway, and a filter is | 275 ;; been removed since it didn't work properly anyway, and a filter is |
277 ;;; used rather than a buffer. Regular expressions are used based on | 276 ;; used rather than a buffer. Regular expressions are used based on |
278 ;;; ispell's internal definition of characters (see ispell(4)). | 277 ;; ispell's internal definition of characters (see ispell(4)). |
279 ;;; Some new updates: | 278 ;; Some new updates: |
280 ;;; - Updated to version 3.0 to include terse processing. | 279 ;; - Updated to version 3.0 to include terse processing. |
281 ;;; - Added a variable for the look command. | 280 ;; - Added a variable for the look command. |
282 ;;; - Fixed a bug in ispell-word when cursor is far away from the word | 281 ;; - Fixed a bug in ispell-word when cursor is far away from the word |
283 ;;; that is to be checked. | 282 ;; that is to be checked. |
284 ;;; - Ispell places the incorrect word or guess in the minibuffer now. | 283 ;; - Ispell places the incorrect word or guess in the minibuffer now. |
285 ;;; - fixed a bug with 'l' option when multiple windows are on the screen. | 284 ;; - fixed a bug with 'l' option when multiple windows are on the screen. |
286 ;;; - lookup-words just didn't work with the process filter. Fixed. | 285 ;; - lookup-words just didn't work with the process filter. Fixed. |
287 ;;; - Rewrote the process filter to make it cleaner and more robust | 286 ;; - Rewrote the process filter to make it cleaner and more robust |
288 ;;; in the event of a continued line not being completed. | 287 ;; in the event of a continued line not being completed. |
289 ;;; - Made ispell-init-process more robust in handling errors. | 288 ;; - Made ispell-init-process more robust in handling errors. |
290 ;;; - Fixed bug in continuation location after a region has been modified by | 289 ;; - Fixed bug in continuation location after a region has been modified by |
291 ;;; correcting a misspelling. | 290 ;; correcting a misspelling. |
292 ;;; Mon 17 Sept 1990 | 291 ;; Mon 17 Sept 1990 |
293 ;;; | 292 ;; |
294 ;;; Sebastian Kremer <sk@thp.uni-koeln.de> | 293 ;; Sebastian Kremer <sk@thp.uni-koeln.de> |
295 ;;; Wed Aug 7 14:02:17 MET DST 1991 | 294 ;; Wed Aug 7 14:02:17 MET DST 1991 |
296 ;;; - Ported ispell-complete-word from Ispell 2 to Ispell 3. | 295 ;; - Ported ispell-complete-word from Ispell 2 to Ispell 3. |
297 ;;; - Added ispell-kill-ispell command. | 296 ;; - Added ispell-kill-ispell command. |
298 ;;; - Added ispell-dictionary and ispell-dictionary-alist variables to | 297 ;; - Added ispell-dictionary and ispell-dictionary-alist variables to |
299 ;;; support other than default language. See their docstrings and | 298 ;; support other than default language. See their docstrings and |
300 ;;; command ispell-change-dictionary. | 299 ;; command ispell-change-dictionary. |
301 ;;; - (ispelled it :-) | 300 ;; - (ispelled it :-) |
302 ;;; - Added ispell-skip-tib variable to support the tib bibliography | 301 ;; - Added ispell-skip-tib variable to support the tib bibliography |
303 ;;; program. | 302 ;; program. |
304 ;;; | 303 |
305 ;;; | 304 |
306 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 305 ;; ********************************************************************** |
307 | 306 ;; The following variables should be set according to personal preference |
308 | 307 ;; and location of binaries: |
309 | 308 ;; ********************************************************************** |
310 ;;; ********************************************************************** | 309 |
311 ;;; The following variables should be set according to personal preference | 310 ;; ******* THIS FILE IS WRITTEN FOR ISPELL VERSION 3.1 |
312 ;;; and location of binaries: | 311 |
313 ;;; ********************************************************************** | |
314 | |
315 | |
316 ;;; ******* THIS FILE IS WRITTEN FOR ISPELL VERSION 3.1 | |
317 ;;; Code: | 312 ;;; Code: |
318 | 313 |
319 (defvar ispell-highlight-p t | 314 (defvar ispell-highlight-p t |
320 "*Highlight spelling errors when non-nil.") | 315 "*Highlight spelling errors when non-nil.") |
321 | 316 |