annotate lisp/textmodes/=ispell4.el @ 7565:edf32f56ba70

(ispell-highlight): Do nothing unless window-system.
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 May 1994 21:19:39 +0000
parents 3b974ab09824
children f152f2b276c5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3722
c9938769a6b7 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 3623
diff changeset
1 ;;; ispell.el --- this is the GNU EMACS interface to GNU ISPELL version 4.
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 317
diff changeset
2
4043
6228decc1353 (ispell): Call deactivate-mark instead of setting mark-active directly. Do
Roland McGrath <roland@gnu.org>
parents: 3722
diff changeset
3 ;;Copyright (C) 1990, 1991, 1993 Free Software Foundation, Inc.
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
4
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
5 ;; Keywords: wp
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
6
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
7 ;;This file is part of GNU Emacs.
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;;
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
9 ;;GNU Emacs is free software; you can redistribute it and/or modify
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;;it under the terms of the GNU General Public License as published by
317
18554fcbc0b6 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 316
diff changeset
11 ;;the Free Software Foundation; either version 2, or (at your option)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;;any later version.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;;
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
14 ;;GNU Emacs is distributed in the hope that it will be useful,
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;;but WITHOUT ANY WARRANTY; without even the implied warranty of
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;;GNU General Public License for more details.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;;
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;;You should have received a copy of the GNU General Public License
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
20 ;;along with GNU Emacs; see the file COPYING. If not, write to
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;;the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
23 ;;; Commentary:
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
24
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
25 ;; This package provides a graceful interface to ispell, the GNU
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
26 ;; spelling checker.
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
27
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
28 ;;; Code:
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
29
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 (defvar ispell-have-new-look t
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
31 "Non-nil means use the `-r' option when running `look'.")
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 (defvar ispell-enable-tex-parser nil
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
34 "Non-nil enables experimental TeX parser in Ispell for TeX-mode buffers.")
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
35
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
36 (defvar ispell-process nil "The process running Ispell")
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
37 (defvar ispell-next-message nil
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
38 "An integer: where in `*ispell*' buffer to find next message from Ispell.")
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
40 (defvar ispell-command "ispell"
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
41 "Command for running Ispell.")
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
42 (defvar ispell-command-options nil
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
43 "*String (or list of strings) to pass to Ispell as command arguments.
5293
346d921eaf3b Don't imply private dictionary is always ispell.words.
Richard M. Stallman <rms@gnu.org>
parents: 4933
diff changeset
44 You can specify your private dictionary via the -p <filename> option.
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
45 The -S option is always passed to Ispell as the last parameter,
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
46 and need not be mentioned here.")
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
48 (defvar ispell-look-command "look"
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
49 "*Command for running look.")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
50
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;Each marker in this list points to the start of a word that
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;ispell thought was bad last time it did the :file command.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 ;Notice that if the user accepts or inserts a word into his
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;private dictionary, then some "good" words will be on the list.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 ;We would like to deal with this by looking up the words again just before
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;presenting them to the user, but that is too slow on machines
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;without the select system call. Therefore, see the variable
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ;ispell-recently-accepted.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 (defvar ispell-bad-words nil
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
60 "A list of markers reflecting the output of the Ispell `:file' command.")
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;list of words that the user has accepted, but that might still
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;be on the bad-words list
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 (defvar ispell-recently-accepted nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
66 ;; Non-nil means we have started showing an alternatives window.
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
67 ;; This is the window config from before then.
4105
230eede21566 (ispell-menu-map): Add missing quote in defalias.
Richard M. Stallman <rms@gnu.org>
parents: 4062
diff changeset
68 (defvar ispell-window-configuration nil)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
69
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;t when :dump command needed
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 (defvar ispell-dump-needed nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 (defun ispell-flush-bad-words ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (while ispell-bad-words
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 (if (markerp (car ispell-bad-words))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 (set-marker (car ispell-bad-words) nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (setq ispell-bad-words (cdr ispell-bad-words)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 (setq ispell-recently-accepted nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 (defun kill-ispell ()
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
81 "Kill the Ispell process.
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3112
diff changeset
82 Any changes in your private dictionary
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 that have not already been dumped will be lost."
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 (interactive)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 (if ispell-process
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 (delete-process ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 (setq ispell-process nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 (ispell-flush-bad-words))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (put 'ispell-startup-error 'error-conditions
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 '(ispell-startup-error error))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (put 'ispell-startup-error 'error-message
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 "Problem starting ispell - see buffer *ispell*")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
95 ;; Start an ispell subprocess; check the version; and display the greeting.
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
96
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 (defun start-ispell ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (message "Starting ispell ...")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 (let ((buf (get-buffer "*ispell*")))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (if buf
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 (kill-buffer buf)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 (condition-case err
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
103 (setq ispell-process
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
104 (apply 'start-process "ispell" "*ispell*" ispell-command
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
105 (append (if (listp ispell-command-options)
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
106 ispell-command-options
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
107 (list ispell-command-options))
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
108 '("-S"))))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 (file-error (signal 'ispell-startup-error nil)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 (process-kill-without-query ispell-process)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 (buffer-disable-undo (process-buffer ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 (accept-process-output ispell-process)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 (let (last-char)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 (set-buffer (process-buffer ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 (bury-buffer (current-buffer))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (setq last-char (- (point-max) 1))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 (while (not (eq (char-after last-char) ?=))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (cond ((not (eq (process-status ispell-process) 'run))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (kill-ispell)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (signal 'ispell-startup-error nil)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (accept-process-output ispell-process)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (setq last-char (- (point-max) 1)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (goto-char (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 (let ((greeting (read (current-buffer))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (if (not (= (car greeting) 1))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (error "Bad ispell version: wanted 1, got %d" (car greeting)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (message (car (cdr greeting))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (delete-region (point-min) last-char))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
131 ;; Make sure ispell is ready for a command.
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
132 ;; Leaves buffer set to *ispell*, point at '='.
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
133
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 (defun ispell-sync (intr)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 (if (or (null ispell-process)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 (not (eq (process-status ispell-process) 'run)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (start-ispell))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 (if intr
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 (interrupt-process ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 (let (last-char)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 (set-buffer (process-buffer ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 (bury-buffer (current-buffer))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (setq last-char (- (point-max) 1))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 (while (not (eq (char-after last-char) ?=))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 (accept-process-output ispell-process)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (setq last-char (- (point-max) 1)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (goto-char last-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
149 ;; Send a command to ispell. Choices are:
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
150 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
151 ;; WORD Check spelling of WORD. Result is
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
152 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
153 ;; nil not found
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
154 ;; t spelled ok
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
155 ;; list of strings near misses
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
156 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
157 ;; :file FILENAME scan the named file, and print the file offsets of
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
158 ;; any misspelled words
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
159 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
160 ;; :insert WORD put word in private dictionary
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
161 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
162 ;; :accept WORD don't complain about word any more this session
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
163 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
164 ;; :dump write out the current private dictionary, if necessary.
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
165 ;;
5293
346d921eaf3b Don't imply private dictionary is always ispell.words.
Richard M. Stallman <rms@gnu.org>
parents: 4933
diff changeset
166 ;; :reload reread private dictionary (default: `~/ispell.words')
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
167 ;;
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
168 ;; :tex
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
169 ;; :troff
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
170 ;; :generic set type of parser to use when scanning whole files
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
172 (defun ispell-cmd (&rest strings)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 (ispell-sync t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (set-buffer (process-buffer ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 (bury-buffer (current-buffer))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 (erase-buffer)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 (setq ispell-next-message (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 (while strings
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 (process-send-string ispell-process (car strings))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 (setq strings (cdr strings)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (process-send-string ispell-process "\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (accept-process-output ispell-process)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (ispell-sync nil)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (defun ispell-dump ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (cond (ispell-dump-needed
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 (setq ispell-dump-needed nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 (ispell-cmd ":dump"))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 (defun ispell-insert (word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 (ispell-cmd ":insert " word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 (if ispell-bad-words
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (setq ispell-recently-accepted (cons word ispell-recently-accepted)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (setq ispell-dump-needed t))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (defun ispell-accept (word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 (ispell-cmd ":accept " word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 (if ispell-bad-words
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 (setq ispell-recently-accepted (cons word ispell-recently-accepted))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
202 ;; Return the next message sent by the Ispell subprocess.
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (defun ispell-next-message ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 (set-buffer (process-buffer ispell-process))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (bury-buffer (current-buffer))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 (save-restriction
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (goto-char ispell-next-message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (narrow-to-region (point)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (progn (forward-sexp 1) (point)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 (setq ispell-next-message (point))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 (goto-char (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 (read (current-buffer)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 (defun ispell-tex-buffer-p ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 (memq major-mode '(plain-TeX-mode LaTeX-mode)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218
4062
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
219 (defvar ispell-menu-map (make-sparse-keymap "Spell"))
4105
230eede21566 (ispell-menu-map): Add missing quote in defalias.
Richard M. Stallman <rms@gnu.org>
parents: 4062
diff changeset
220 (defalias 'ispell-menu-map ispell-menu-map)
4062
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
221
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
222 (define-key ispell-menu-map [ispell-complete-word-interior-frag]
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
223 '("Complete Interior Fragment" . ispell-complete-word-interior-frag))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
224
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
225 (define-key ispell-menu-map [ispell-complete-word]
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
226 '("Complete Word" . ispell-complete-word))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
227
4062
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
228 (define-key ispell-menu-map [reload-ispell]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
229 '("Reload Dictionary" . reload-ispell))
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
230
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
231 (define-key ispell-menu-map [ispell-next]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
232 '("Continue Check" . ispell-next))
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
233
4749
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
234 (define-key ispell-menu-map [ispell-message]
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
235 '("Check Message" . ispell-message))
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
236
4062
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
237 (define-key ispell-menu-map [ispell-region]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
238 '("Check Region" . ispell-region))
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
239
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
240 (define-key ispell-menu-map [ispell-buffer]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
241 '("Check Buffer" . ispell))
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
242
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
243 (define-key ispell-menu-map [ispell-word]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
244 '("Check Word" . ispell-word))
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
245
256
7e4c7ef44243 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 214
diff changeset
246 ;;;###autoload
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 (defun ispell (&optional buf start end)
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
248 "Run Ispell over current buffer's visited file.
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
249 First the file is scanned for misspelled words, then Ispell
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 enters a loop with the following commands for every misspelled word:
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 DIGIT Near miss selector. If the misspelled word is close to
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 some words in the dictionary, they are offered as near misses.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 r Replace. Replace the word with a string you type. Each word
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 of your new string is also checked.
5293
346d921eaf3b Don't imply private dictionary is always ispell.words.
Richard M. Stallman <rms@gnu.org>
parents: 4933
diff changeset
256 i Insert. Insert this word in your private dictionary (by default,
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 `$HOME/ispell.words').
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 a Accept. Accept this word for the rest of this editing session,
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3112
diff changeset
259 but don't put it in your private dictionary.
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 l Lookup. Look for a word in the dictionary by fast binary
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 search, or search for a regular expression in the dictionary
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 using grep.
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 SPACE Accept the word this time, but complain if it is seen again.
214
a1430f8459e5 *** empty log message ***
Brian Preble <rassilon@gnu.org>
parents: 55
diff changeset
264 q, \\[keyboard-quit] Leave the command loop. You can come back later with \\[ispell-next]."
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (interactive)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 (if (null start)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (setq start 0))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (if (null end)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (setq end 0))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (if (null buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (setq buf (current-buffer)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 (setq buf (get-buffer buf))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 (if (null buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (error "Can't find buffer"))
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
276 ;; Deactivate the mark, because we'll do it anyway if we change something,
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
277 ;; and a region highlight while in the Ispell loop is distracting.
4043
6228decc1353 (ispell): Call deactivate-mark instead of setting mark-active directly. Do
Roland McGrath <roland@gnu.org>
parents: 3722
diff changeset
278 (deactivate-mark)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (let ((filename buffer-file-name)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
282 (delete-temp nil))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 (unwind-protect
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (progn
4889
8b896067d6fb (ispell): If the buffer to spell has no associated file, or, the
Brian Fox <bfox@gnu.org>
parents: 4842
diff changeset
285 (cond ((or (null filename)
7030
9e51b51e8595 Pass operation to find-file-name-handler.
Karl Heuer <kwzh@gnu.org>
parents: 5400
diff changeset
286 (find-file-name-handler buffer-file-name nil))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 (setq filename (make-temp-name "/usr/tmp/ispell"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (setq delete-temp t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (write-region (point-min) (point-max) filename))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 ((and (buffer-modified-p buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 (y-or-n-p (format "Save file %s? " filename)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 (save-buffer)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 (message "Ispell scanning file...")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 (if (and ispell-enable-tex-parser
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 (ispell-tex-buffer-p))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 (ispell-cmd ":tex")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 (ispell-cmd ":generic"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 (ispell-cmd (format ":file %s %d %d" filename start end)))
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
299 (if delete-temp
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
300 (condition-case ()
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
301 (delete-file filename)
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
302 (file-error nil)))))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (message "Parsing ispell output ...")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (ispell-flush-bad-words)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 (let (pos bad-words)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 (while (numberp (setq pos (ispell-next-message)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 ;;ispell may check the words on the line following the end
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 ;;of the region - therefore, don't record anything out of range
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 (if (or (= end 0)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 (< pos end))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 (setq bad-words (cons (set-marker (make-marker) (+ pos 1))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 bad-words))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 (setq bad-words (cons pos bad-words))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 (setq ispell-bad-words (nreverse bad-words))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 (cond ((not (markerp (car ispell-bad-words)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (setq ispell-bad-words nil)
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
317 (message "No misspellings.")
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
318 t)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (t
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (message "Ispell parsing done.")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 (ispell-next))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322
316
ba0e7d5a44ad *** empty log message ***
Brian Preble <rassilon@gnu.org>
parents: 256
diff changeset
323 ;;;###autoload
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2307
diff changeset
324 (defalias 'ispell-buffer 'ispell)
316
ba0e7d5a44ad *** empty log message ***
Brian Preble <rassilon@gnu.org>
parents: 256
diff changeset
325
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 (defun ispell-next ()
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
327 "Resume command loop for most recent Ispell command.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
328 Return value is t unless exit is due to typing `q'."
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (interactive)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
330 (setq ispell-window-configuration nil)
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
331 (prog1
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
332 (unwind-protect
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
333 (catch 'ispell-quit
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
334 ;; There used to be a save-excursion here,
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
335 ;; but that was annoying: it's better if point doesn't move
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
336 ;; when you type q.
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
337 (let (next)
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
338 (while (markerp (setq next (car ispell-bad-words)))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
339 (switch-to-buffer (marker-buffer next))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
340 (push-mark)
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
341 (ispell-point next "at saved position.")
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
342 (setq ispell-bad-words (cdr ispell-bad-words))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
343 (set-marker next nil)))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
344 t)
5400
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
345 (ispell-dehighlight)
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
346 (if ispell-window-configuration
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
347 (set-window-configuration ispell-window-configuration))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
348 (cond ((null ispell-bad-words)
5384
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
349 (error "Ispell has not yet been run"))
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
350 ((markerp (car ispell-bad-words))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
351 (message (substitute-command-keys
5384
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
352 "Type \\[ispell-next] to continue")))
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
353 ((eq (car ispell-bad-words) nil)
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
354 (setq ispell-bad-words nil)
5384
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
355 (message "No more misspellings (but checker was interrupted)"))
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
356 ((eq (car ispell-bad-words) t)
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
357 (setq ispell-bad-words nil)
5384
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
358 (message "Ispell done"))
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
359 (t
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
360 (setq ispell-bad-words nil)
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
361 (message "Bad ispell internal list"))))
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
362 (ispell-dump)))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363
256
7e4c7ef44243 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 214
diff changeset
364 ;;;###autoload
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
365 (defun ispell-word (&optional resume)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 "Check the spelling of the word under the cursor.
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
367 See the command `ispell' for more information.
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
368 With a prefix argument, resume handling of the previous Ispell command."
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
369 (interactive "P")
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
370 (if resume
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
371 (ispell-next)
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
372 (condition-case err
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
373 (catch 'ispell-quit
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
374 (save-window-excursion
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
375 (ispell-point (point) "at point."))
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
376 (ispell-dump))
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
377 (ispell-startup-error
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
378 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ")
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
379 (load-library "spell")
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
380 (define-key esc-map "$" 'spell-word)
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
381 (spell-word)))))))
5293
346d921eaf3b Don't imply private dictionary is always ispell.words.
Richard M. Stallman <rms@gnu.org>
parents: 4933
diff changeset
382
346d921eaf3b Don't imply private dictionary is always ispell.words.
Richard M. Stallman <rms@gnu.org>
parents: 4933
diff changeset
383 ;;;###autoload (define-key esc-map "$" 'ispell-word)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384
256
7e4c7ef44243 *** empty log message ***
Roland McGrath <roland@gnu.org>
parents: 214
diff changeset
385 ;;;###autoload
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (defun ispell-region (start &optional end)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 "Check the spelling for all of the words in the region."
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 (interactive "r")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 (ispell (current-buffer) start end))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (defun ispell-letterp (c)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (and c
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (or (and (>= c ?A) (<= c ?Z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (and (>= c ?a) (<= c ?z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 (>= c 128))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 (defun ispell-letter-or-quotep (c)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 (and c
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (or (and (>= c ?A) (<= c ?Z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (and (>= c ?a) (<= c ?z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 (= c ?')
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (>= c 128))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 (defun ispell-find-word-start ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 ;;backward to a letter
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 (if (not (ispell-letterp (char-after (point))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 (while (and (not (bobp))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (not (ispell-letterp (char-after (- (point) 1)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (backward-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 ;;backward to beginning of word
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 (while (ispell-letter-or-quotep (char-after (- (point) 1)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 (backward-char))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 (skip-chars-forward "'"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 (defun ispell-find-word-end ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 (while (ispell-letter-or-quotep (char-after (point)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 (forward-char))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 (skip-chars-backward "'"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 (defun ispell-next-word ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 (while (and (not (eobp))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 (not (ispell-letterp (char-after (point)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 (forward-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 ;if end is nil, then do one word at start
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 ;otherwise, do all words from the beginning of the word where
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 ;start points, to the end of the word where end points
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (defun ispell-point (start message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 (let ((wend (make-marker))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 rescan
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 end)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
432 ;; There used to be a save-excursion here,
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
433 ;; but that was annoying: it's better if point doesn't move
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
434 ;; when you type q.
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 (goto-char start)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 (ispell-find-word-start) ;find correct word start
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 (setq start (point-marker))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 (ispell-find-word-end) ;now find correct end
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 (setq end (point-marker))
4256
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
440 ;; Do nothing if we don't find a word.
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
441 (if (< start end)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
442 (while (< start end)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
443 (goto-char start)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
444 (ispell-find-word-end) ;find end of current word
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 ;could be before 'end' if
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 ;user typed replacement
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 ;that is more than one word
4256
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
448 (set-marker wend (point))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
449 (setq rescan nil)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
450 (setq word (buffer-substring start wend))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
451 (cond ((ispell-still-bad word)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
452 ;;; This just causes confusion. -- rms.
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
453 ;;; (goto-char start)
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
454 ;;; (sit-for 0)
4256
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
455 (message (format "Ispell checking %s" word))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
456 (ispell-cmd word)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
457 (let ((message (ispell-next-message)))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
458 (cond ((eq message t)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
459 (message "%s: ok" word))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
460 ((or (null message)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
461 (consp message))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
462 (setq rescan
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
463 (ispell-command-loop word start wend message)))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
464 (t
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
465 (error "unknown ispell response %s" message))))))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
466 (cond ((null rescan)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
467 (goto-char wend)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
468 (ispell-next-word)
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
469 (set-marker start (point))))))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 ;;clear the choices buffer; otherwise it's hard for the user to tell
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 ;;when we get back to the command loop
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 (let ((buf (get-buffer "*ispell choices*")))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (cond (buf
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 (erase-buffer))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (set-marker start nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (set-marker end nil)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
478 (set-marker wend nil)))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 (defun ispell-still-bad (word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 (let ((words ispell-recently-accepted)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 (ret t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 (case-fold-search t))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 (while words
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 (cond ((eq (string-match (car words) word) 0)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 (setq ret nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 (setq words nil)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (setq words (cdr words)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 ret))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 (defun ispell-show-choices (word message first-line)
778
cd00bdacc17b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 671
diff changeset
492 ;;if there is only one window on the frame, make the ispell
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 ;;messages winow be small. otherwise just use the other window
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 (let* ((selwin (selected-window))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 (resize (eq selwin (next-window)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 (buf (get-buffer-create "*ispell choices*"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 w)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
498 (or ispell-window-configuration
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
499 (setq ispell-window-configuration (current-window-configuration)))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (setq w (display-buffer buf))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (buffer-disable-undo buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 (if resize
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (unwind-protect
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (progn
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 (select-window w)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 (enlarge-window (- 6 (window-height w))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 (select-window selwin)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (bury-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (set-window-point w (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (set-window-start w (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (erase-buffer)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (insert first-line "\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (insert
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 "SPC skip; A accept; I insert; DIGIT select; R replace; \
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 L lookup; Q quit\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (cond ((not (null message))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 (let ((i 0))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 (while (< i 3)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (let ((j 0))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (while (< j 3)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (let* ((n (+ (* j 3) i))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (choice (nth n message)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (cond (choice
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (let ((str (format "%d %s" n choice)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (insert str)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (insert-char ? (- 20 (length str)))))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 (setq j (+ j 1))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (insert "\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (setq i (+ i 1)))))))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (defun ispell-command-loop (word start end message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (let ((flag t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (rescan nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 first-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 (if (null message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (setq first-line (concat "No near misses for '" word "'"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (setq first-line (concat "Near misses for '" word "'")))
5400
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
540 (ispell-highlight start end)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (while flag
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (ispell-show-choices word message first-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (message "Ispell command: ")
2888
e931a98b2f36 (ispell-command-loop): Make an undo boundary.
Richard M. Stallman <rms@gnu.org>
parents: 2837
diff changeset
544 (undo-boundary)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (let ((c (downcase (read-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 replacement)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (cond ((and (>= c ?0)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (<= c ?9)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (setq replacement (nth (- c ?0) message)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (ispell-replace start end replacement)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 ((= c ?q)
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
553 (throw 'ispell-quit nil))
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
554 ((= c (nth 3 (current-input-mode)))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
555 (keyboard-quit))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 ((= c ? )
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 ((= c ?r)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 (ispell-replace start end (read-string "Replacement: "))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 (setq rescan t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 ((= c ?i)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 (ispell-insert word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 ((= c ?a)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 (ispell-accept word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 ((= c ?l)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 (let ((val (ispell-do-look word)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 (setq first-line (car val))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 (setq message (cdr val))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 ((= c ??)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 (message
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 "Type 'C-h d ispell' to the emacs main loop for more help")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 (sit-for 2))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 (t
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 (message "Bad ispell command")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 (sit-for 2)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 rescan))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 (defun ispell-do-look (bad-word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 (let (regex buf words)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 (cond ((null ispell-have-new-look)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (setq regex (read-string "Lookup: ")))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 (t
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (setq regex (read-string "Lookup (regex): " "^"))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 (setq buf (get-buffer-create "*ispell look*"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (delete-region (point-min) (point-max))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 (if ispell-have-new-look
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
592 (call-process ispell-look-command nil buf nil "-r" regex)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
593 (call-process ispell-look-command nil buf nil regex))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 (goto-char (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 (forward-line 10)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 (delete-region (point) (point-max))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 (goto-char (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (while (not (= (point-min) (point-max)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 (end-of-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (setq words (cons (buffer-substring (point-min) (point)) words))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 (forward-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 (delete-region (point-min) (point)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 (kill-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 (cons (format "Lookup '%s'" regex)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 (reverse words)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (defun ispell-replace (start end new)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 (goto-char start)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 (insert new)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 (delete-region (point) end))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 (defun reload-ispell ()
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
613 "Tell Ispell to re-read your private dictionary."
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 (interactive)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 (ispell-cmd ":reload"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 (defun batch-make-ispell ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 (byte-compile-file "ispell.el")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 (find-file "ispell.texinfo")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (let ((old-dir default-directory)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 (default-directory "/tmp"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 (texinfo-format-buffer))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (Info-validate)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 (if (get-buffer " *problems in info file*")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 (kill-emacs 1))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 (write-region (point-min) (point-max) "ispell.info"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627
5400
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
628 (defvar ispell-highlight t
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
629 "*Non-nil means to highlight ispell words.")
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
630
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
631 (defvar ispell-overlay nil)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
632
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
633 (defun ispell-dehighlight ()
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
634 (and ispell-overlay
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
635 (progn
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
636 (delete-overlay ispell-overlay)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
637 (setq ispell-overlay nil))))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
638
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
639 (defun ispell-highlight (start end)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
640 (and ispell-highlight
7565
edf32f56ba70 (ispell-highlight): Do nothing unless window-system.
Richard M. Stallman <rms@gnu.org>
parents: 7446
diff changeset
641 window-system
5400
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
642 (progn
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
643 (or ispell-overlay
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
644 (progn
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
645 (setq ispell-overlay (make-overlay start end))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
646 (overlay-put ispell-overlay 'face
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
647 (if (internal-find-face 'ispell)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
648 'ispell 'region))))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
649 (move-overlay ispell-overlay start end (current-buffer)))))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
650
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
651 ;;;; ispell-complete-word
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
652
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
653 ;;; Brief Description:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
654 ;;; Complete word fragment at point using dictionary and replace with full
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
655 ;;; word. Expansion done in current buffer like lisp-complete-symbol.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
656 ;;; Completion of interior word fragments possible with prefix argument.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
657
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
658 ;;; Known Problem:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
659 ;;; Does not use private dictionary because GNU `look' does not use it. It
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
660 ;;; would be nice if GNU `look' took standard input; this would allow gzip'ed
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
661 ;;; dictionaries to be used. GNU `look' also has a bug, see
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
662 ;;; `ispell-gnu-look-still-broken-p'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
663
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
664 ;;; Motivation:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
665 ;;; The `l', "regular expression look up", keymap option of ispell-word
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
666 ;;; (ispell-do-look) can only be run after finding a misspelled word. So
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
667 ;;; ispell-do-look can not be used to look for words starting with `cat' to
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
668 ;;; find `catechetical' since `cat' is a correctly spelled word. Furthermore,
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
669 ;;; ispell-do-look does not return the entire list returned by `look'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
670 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
671 ;;; ispell-complete-word allows you to get a completion list from the system
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
672 ;;; dictionary and expand a word fragment at the current position in a buffer.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
673 ;;; These examples assume ispell-complete-word is bound to M-TAB as it is in
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
674 ;;; text-mode; the `Complete Word' and `Complete Interior Fragment' entries of
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
675 ;;; the "Spell" submenu under the "Edit" menu may also be used instead of
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
676 ;;; M-TAB and C-u M-TAB, respectively.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
677 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
678 ;;; EXAMPLE 1: The word `Saskatchewan' needs to be spelled. The user may
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
679 ;;; type `Sas' and hit M-TAB and a completion list will be built using the
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
680 ;;; shell command `look' and displayed in the *Completions* buffer:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
681 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
682 ;;; Possible completions are:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
683 ;;; sash sashay
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
684 ;;; sashayed sashed
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
685 ;;; sashes sashimi
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
686 ;;; Saskatchewan Saskatoon
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
687 ;;; sass sassafras
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
688 ;;; sassier sassing
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
689 ;;; sasswood sassy
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
690 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
691 ;;; By viewing this list the user will hopefully be motivated to insert the
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
692 ;;; letter `k' after the `sas'. When M-TAB is hit again the word `Saskat'
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
693 ;;; will be inserted in place of `sas' (note case) since this is a unique
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
694 ;;; substring completion. The narrowed completion list can be viewed with
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
695 ;;; another M-TAB
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
696 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
697 ;;; Possible completions are:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
698 ;;; Saskatchewan Saskatoon
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
699 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
700 ;;; Inserting the letter `c' and hitting M-TAB will narrow the completion
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
701 ;;; possibilities to just `Saskatchewan' and this will be inserted in the
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
702 ;;; buffer. At any point the user may click the mouse on a completion to
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
703 ;;; select it.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
704 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
705 ;;; EXAMPLE 2: The user has typed `Sasaquane' and M-$ (ispell-word) gives no
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
706 ;;; "near-misses" in which case you back up to `Sas' and hit M-TAB and find
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
707 ;;; the correct word as above. The `Sas' will be replaced by `Saskatchewan'
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
708 ;;; and the remaining word fragment `aquane' can be deleted.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
709 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
710 ;;; EXAMPLE 3: If a version of `look' is used that supports regular
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
711 ;;; expressions, then `ispell-have-new-look' should be t (its default) and
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
712 ;;; interior word fragments may also be used for the search. The word
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
713 ;;; `pneumonia' needs to be spelled. The user can only remember the
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
714 ;;; interior fragment `mon' in which case `C-u M-TAB' on `mon' gives a list
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
715 ;;; of all words containing the interior word fragment `mon'. Typing `p'
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
716 ;;; and M-TAB will narrow this list to all the words starting with `p' and
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
717 ;;; containing `mon' from which `pneumonia' can be found as above.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
718
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
719 ;;; The user-defined variables are:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
720 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
721 ;;; ispell-look-command
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
722 ;;; ispell-look-dictionary
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
723 ;;; ispell-gnu-look-still-broken-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
724
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
725 ;;; Algorithm (some similarity to lisp-complete-symbol):
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
726 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
727 ;;; * call-process on command ispell-look-command (default: "look") to find
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
728 ;;; words in ispell-look-dictionary matching `string' (or `regexp' if
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
729 ;;; ispell-have-new-look is t). Parse output and store results in
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
730 ;;; ispell-lookup-completions-alist.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
731 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
732 ;;; * Build completion list using try-completion and `string'
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
733 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
734 ;;; * Replace `string' in buffer with matched common substring completion.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
735 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
736 ;;; * Display completion list only if there is no matched common substring.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
737 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
738 ;;; * Rebuild ispell-lookup-completions-alist, on a next call, only when
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
739 ;;; beginning of word fragment has changed.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
740 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
741 ;;; * Interior fragments searches are performed similarly with the exception
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
742 ;;; that the entire fragment at point is initially removed from the buffer,
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
743 ;;; the STRING passed to try-completion and all-completions is just "" and
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
744 ;;; not the interior fragment; this allows all completions containing the
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
745 ;;; interior fragment to be shown. The location in the buffer is stored to
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
746 ;;; decide whether future completion narrowing of the current list should be
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
747 ;;; done or if a new list should be built. See interior fragment example
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
748 ;;; above.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
749 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
750 ;;; * Robust searches are done using a `look' with -r (regular expression)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
751 ;;; switch if ispell-have-new-look is t.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
752
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
753 ;;;; User-defined variables.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
754
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
755 (defvar ispell-look-dictionary nil
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
756 "*If non-nil then spelling dictionary as string for `ispell-complete-word'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
757 Overrides default dictionary file such as \"/usr/dict/words\" or GNU look's
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
758 \"${prefix}/lib/ispell/ispell.words\"")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
759
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
760 (defvar ispell-gnu-look-still-broken-p nil
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
761 "*t if GNU look -r can give different results with and without trialing `.*'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
762 Example: `look -dfr \"^ya\" foo' returns nothing, while `look -dfr \"^ya.*\" foo'
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
763 returns `yacc', where `foo' is a dictionary file containing the three lines
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
764
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
765 y
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
766 y's
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
767 yacc
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
768
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
769 Both commands should return `yacc'. If `ispell-complete-word' erroneously
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
770 states that no completions exist for a string, then setting this variable to t
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
771 will help find those completions.")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
772
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
773 ;;;; Internal variables.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
774
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
775 ;;; Possible completions for last word fragment.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
776 (defvar ispell-lookup-completions-alist nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
777
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
778 ;;; Last word fragment processed by `ispell-complete-word'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
779 (defvar ispell-lookup-last-word nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
780
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
781 ;;; Buffer local variables.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
782
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
783 ;;; Value of interior-frag in last call to `ispell-complete-word'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
784 (defvar ispell-lookup-last-interior-p nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
785 (make-variable-buffer-local 'ispell-lookup-last-interior-p)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
786 (put 'ispell-lookup-last-interior-p 'permanent-local t)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
787
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
788 ;;; Buffer position in last call to `ispell-complete-word'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
789 (defvar ispell-lookup-last-bow nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
790 (make-variable-buffer-local 'ispell-lookup-last-bow)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
791 (put 'ispell-lookup-last-bow 'permanent-local t)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
792
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
793 ;;;; Interactive functions.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
794 ;;;###autoload
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
795 (defun ispell-complete-word (&optional interior-frag)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
796 "Complete word using letters at point to word beginning using `look'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
797 With optional argument INTERIOR-FRAG, word fragment at point is assumed to be
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
798 an interior word fragment in which case `ispell-have-new-look' should be t.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
799 See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'."
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
800
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
801 (interactive "P")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
802
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
803 ;; `look' must support regexp expressions in order to perform an interior
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
804 ;; fragment search.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
805 (if (and interior-frag (not ispell-have-new-look))
5384
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
806 (error (concat "Sorry, `ispell-have-new-look' is nil. "
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
807 "You also will need GNU Ispell's `look'.")))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
808
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
809 (let* ((completion-ignore-case t)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
810
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
811 ;; Get location of beginning of word fragment.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
812 (bow (save-excursion (skip-chars-backward "a-zA-Z'") (point)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
813
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
814 ;; Get the string to look up.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
815 (string (buffer-substring bow (point)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
816
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
817 ;; Get regexp for which we search and, if necessary, an interior word
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
818 ;; fragment.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
819 (regexp (if interior-frag
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
820 (concat "^.*" string ".*")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
821 ;; If possible use fast binary search: no trailing `.*'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
822 (concat "^" string
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
823 (if ispell-gnu-look-still-broken-p ".*"))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
824
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
825 ;; We want all completions for case of interior fragments so set
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
826 ;; prefix to an empty string.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
827 (prefix (if interior-frag "" string))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
828
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
829 ;; Are we continuing from a previous interior fragment search?
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
830 ;; Check last value of interior-word and if the point has moved.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
831 (continuing-an-interior-frag-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
832 (and ispell-lookup-last-interior-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
833 (equal ispell-lookup-last-bow bow)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
834
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
835 ;; Are we starting a unique word fragment search? Always t for
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
836 ;; interior word fragment search.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
837 (new-unique-string-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
838 (or interior-frag (null ispell-lookup-last-word)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
839 (let ((case-fold-search t))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
840 ;; Can we locate last word fragment as a substring of current
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
841 ;; word fragment? If the last word fragment is larger than
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
842 ;; the current string then we will have to rebuild the list
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
843 ;; later.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
844 (not (string-match
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
845 (concat "^" ispell-lookup-last-word) string)))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
846
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
847 completion)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
848
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
849 ;; Check for perfect completion already. That is, maybe the user has hit
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
850 ;; M-x ispell-complete-word one too many times?
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
851 (if (string-equal string "")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
852 (if (string-equal (concat ispell-lookup-last-word " ")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
853 (buffer-substring
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
854 (save-excursion (forward-word -1) (point)) (point)))
5384
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
855 (error "Perfect match already")
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
856 (error "No word fragment at point")))
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
857
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
858 ;; Create list of words from system dictionary starting with `string' if
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
859 ;; new string and not continuing from a previous interior fragment search.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
860 (if (and (not continuing-an-interior-frag-p) new-unique-string-p)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
861 (setq ispell-lookup-completions-alist
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
862 (ispell-lookup-build-list string regexp)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
863
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
864 ;; Check for a completion of `string' in the list and store `string' and
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
865 ;; other variables for the next call.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
866 (setq completion (try-completion prefix ispell-lookup-completions-alist)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
867 ispell-lookup-last-word string
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
868 ispell-lookup-last-interior-p interior-frag
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
869 ispell-lookup-last-bow bow)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
870
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
871 ;; Test the completion status.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
872 (cond
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
873
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
874 ;; * Guess is a perfect match.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
875 ((eq completion t)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
876 (insert " ")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
877 (message "Perfect match."))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
878
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
879 ;; * No possibilities.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
880 ((null completion)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
881 (message "Can't find completion for \"%s\"" string)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
882 (beep))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
883
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
884 ;; * Replace string fragment with matched common substring completion.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
885 ((and (not (string-equal completion ""))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
886 ;; Fold case so a completion list is built when `string' and common
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
887 ;; substring differ only in case.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
888 (let ((case-fold-search t))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
889 (not (string-match (concat "^" completion "$") string))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
890 (search-backward string bow)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
891 (replace-match completion nil t) ; FIXEDCASE doesn't work? or LITERAL?
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
892 (message "Proposed unique substring. Repeat for completions list."))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
893
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
894 ;; * String is a common substring completion already. Make list.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
895 (t
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
896 (message "Making completion list...")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
897 (if (string-equal completion "") (delete-region bow (point)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
898 (let ((list (all-completions prefix ispell-lookup-completions-alist)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
899 (with-output-to-temp-buffer " *Completions*"
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
900 (display-completion-list list)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
901 (message "Making completion list...done")))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
902
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
903 ;;;###autoload
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
904 (defun ispell-complete-word-interior-frag ()
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
905 "Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
906 A completion list is built for word fragment at point which is assumed to be
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
907 an interior word fragment. `ispell-have-new-look' should be t."
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
908 (interactive)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
909 (ispell-complete-word t))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
910
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
911 ;;;; Internal Function.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
912
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
913 ;;; Build list of words using ispell-look-command from dictionary
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
914 ;;; ispell-look-dictionary (if this is a non-nil string). Look for words
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
915 ;;; starting with STRING if ispell-have-new-look is nil or look for REGEXP if
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
916 ;;; ispell-have-new-look is t. Returns result as an alist suitable for use by
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
917 ;;; try-completion, all-completions, and completing-read.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
918 (defun ispell-lookup-build-list (string regexp)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
919 (save-excursion
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
920 (message "Building list...")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
921 (set-buffer (get-buffer-create " *ispell look*"))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
922 (erase-buffer)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
923
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
924 (if (stringp ispell-look-dictionary)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
925 (if ispell-have-new-look
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
926 (call-process ispell-look-command nil t nil "-fr" regexp
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
927 ispell-look-dictionary)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
928 (call-process ispell-look-command nil t nil "-f" string
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
929 ispell-look-dictionary))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
930 (if ispell-have-new-look
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
931 (call-process ispell-look-command nil t nil "-fr" regexp)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
932 (call-process ispell-look-command nil t nil "-f" string)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
933
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
934 ;; Build list for try-completion and all-completions by storing each line
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
935 ;; of output starting from bottom of buffer and deleting upwards.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
936 (let (list)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
937 (goto-char (point-min))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
938 (while (not (= (point-min) (point-max)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
939 (end-of-line)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
940 (setq list (cons (buffer-substring (point-min) (point)) list))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
941 (forward-line)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
942 (delete-region (point-min) (point)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
943
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
944 ;; Clean.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
945 (erase-buffer)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
946 (message "Building list...done")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
947
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
948 ;; Make the list into an alist and return.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
949 (mapcar 'list (nreverse list)))))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
950
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
951 ;; Return regexp-quote of STRING if STRING is non-empty.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
952 ;; Otherwise return an unmatchable regexp.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
953 (defun ispell-non-empty-string (string)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
954 (if (or (not string) (string-equal string ""))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
955 "\\'\\`" ; An unmatchable string if string is null.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
956 (regexp-quote string)))
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
957
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
958 (defvar ispell-message-cite-regexp "^ \\|^\t"
4842
ef5f87232112 (ispell-message-cite-regexp): Add definition.
Richard M. Stallman <rms@gnu.org>
parents: 4786
diff changeset
959 "*Regular expression to match lines cited from one message into another.")
ef5f87232112 (ispell-message-cite-regexp): Add definition.
Richard M. Stallman <rms@gnu.org>
parents: 4786
diff changeset
960
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
961 (defvar ispell-message-text-end
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
962 (concat "^\\(" (mapconcat (function identity)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
963 '(
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
964 ;; Matches postscript files.
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
965 "%!PS-Adobe-2.0"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
966 ;; Matches uuencoded text
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
967 "begin [0-9][0-9][0-9] .*\nM.*\nM.*\nM"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
968 ;; Matches shell files (esp. auto-decoding)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
969 "#! /bin/sh"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
970 ;; Matches difference listing
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
971 "diff -c .*\n\\*\\*\\* .*\n--- "
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
972 ;; Matches "--------------------- cut here"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
973 "[-=]+\\s cut here")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
974 "\\|")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
975 "\\)")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
976 "*End of text which will be checked in ispell-message.
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
977 If it is a string, limit at first occurence of that regular expression.
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
978 Otherwise, it must be a function which is called to get the limit.")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
979
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
980 (defvar ispell-message-limit (* 100 80)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
981 "*Ispell-message will check no more than this number of characters.")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
982
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
983 ;;;###autoload
4749
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
984 (defun ispell-message ()
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
985 "Check the spelling of a mail message or news post.
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
986 Don't check spelling of message headers (except subject) or included messages.
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
987
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
988 To spell-check whenever a message is sent, include this line in .emacs:
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
989 (setq news-inews-hook (setq mail-send-hook 'ispell-message))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
990
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
991 Or you can bind the function to C-c i in gnus or mail with:
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
992 (setq mail-mode-hook (setq news-reply-mode-hook
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
993 (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))))"
4749
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
994 (interactive)
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
995 (save-excursion
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
996 (let (non-internal-message
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
997 (old-case-fold-search case-fold-search)
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
998 (case-fold-search nil))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
999 (goto-char (point-min))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1000 ;; Don't spell-check the headers.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1001 (if (search-forward mail-header-separator nil t)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1002 ;; Move to first body line.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1003 (forward-line 1)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1004 (while (and (looking-at "[a-zA-Z-]+:\\|\t\\| ")
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1005 (not (eobp)))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1006 (forward-line 1))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1007 (setq non-internal-message t)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1008 )
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1009 (let* ((cite-regexp ;Prefix of inserted text
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1010 (cond
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1011 ((featurep 'supercite) ; sc 3.0
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1012 (concat "\\(" (sc-cite-regexp) "\\)" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1013 (ispell-non-empty-string sc-reference-tag-string)))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1014 ((featurep 'sc) ; sc 2.3
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1015 (concat "\\(" sc-cite-regexp "\\)" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1016 (ispell-non-empty-string sc-reference-tag-string)))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1017 (non-internal-message ; Assume nn sent us this message.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1018 (concat "In [a-zA-Z.]+ you write:" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1019 "In <[^,;&+=]+> [^,;&+=]+ writes:" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1020 " *> *"))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1021 ((equal major-mode 'news-reply-mode) ;Gnus
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1022 (concat "In article <" "\\|"
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1023 (if mail-yank-prefix
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1024 (ispell-non-empty-string mail-yank-prefix)
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1025 ispell-message-cite-regexp)))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1026 ((boundp 'vm-included-text-prefix) ; VM mail message
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1027 (concat "[^,;&+=]+ writes:" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1028 (ispell-non-empty-string vm-included-text-prefix)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1029 ))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1030 ((boundp 'mh-ins-buf-prefix) ; mh mail message
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1031 (ispell-non-empty-string mh-ins-buf-prefix))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1032 (mail-yank-prefix ; vanilla mail message.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1033 (ispell-non-empty-string mail-yank-prefix))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1034 (t ispell-message-cite-regexp)))
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1035 (continue t)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1036 (limit
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1037 (min
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1038 (+ (point-min) ispell-message-limit)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1039 (point-max)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1040 (save-excursion
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1041 (cond
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1042 ((not ispell-message-text-end) (point-max))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1043 ((char-or-string-p ispell-message-text-end)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1044 (if (re-search-forward ispell-message-text-end nil 'end)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1045 (match-beginning 0)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1046 (point-max)))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1047 (t (funcall ispell-message-text-end))))))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1048 (search-limit ; Search limit which won't stop in middle of citation
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1049 (+ limit (length cite-regexp)))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1050 )
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1051 ;; Check the subject
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1052 (save-excursion
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1053 (let ((case-fold-search t)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1054 (message-begin (point)))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1055 (goto-char (point-min))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1056 ;; "\\s *" matches newline if subject is empty
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1057 (if (and (re-search-forward "^Subject:[\t ]*" message-begin t)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1058 (not (looking-at "re\\>")))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1059 (setq continue
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1060 (ispell-region (- (point) 1)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1061 (progn
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1062 (end-of-line)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1063 (while (looking-at "\n[ \t]")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1064 (end-of-line 2))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1065 (point))))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1066 )))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1067
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1068 ;; Check the body.
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1069 (while (and (< (point) limit) continue)
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1070 ;; Skip across text cited from other messages.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1071 (while (and (looking-at (concat "^[ \t]*$\\|" cite-regexp))
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1072 (< (point) limit))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1073 (forward-line 1))
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1074 (if (< (point) limit)
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1075 ;; Check the next batch of lines that *aren't* cited.
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1076 (let ((start (point)))
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1077 (if (re-search-forward
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1078 (concat "^\\(" cite-regexp "\\)") search-limit 'end)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1079 (beginning-of-line))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1080 (if (> (point) limit) (goto-char limit))
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1081 (let ((case-fold-search old-case-fold-search))
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1082 (save-excursion
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1083 (setq continue (ispell-region (- start 1) (point))))))))))))
4749
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
1084
3112
6b8a9fb0537c Provide `ispell'.
Richard M. Stallman <rms@gnu.org>
parents: 2888
diff changeset
1085 (provide 'ispell)
6b8a9fb0537c Provide `ispell'.
Richard M. Stallman <rms@gnu.org>
parents: 2888
diff changeset
1086
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 317
diff changeset
1087 ;;; ispell.el ends here