annotate lisp/textmodes/=ispell4.el @ 12889:d912ac1e1f00

(Info-file-list-for-emacs): New variable. (Info-find-emacs-command-nodes): Look in those files, if appropriate.
author Richard M. Stallman <rms@gnu.org>
date Sat, 19 Aug 1995 05:03:12 +0000
parents 5306e71f486c
children 1514fd54b2f5
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 ()
8311
ace71f0fc661 (ispell-tex-buffer-p): Write names in lower case. Add slitex-mode.
Richard M. Stallman <rms@gnu.org>
parents: 8221
diff changeset
217 (memq major-mode '(plain-tex-mode latex-mode slitex-mode)))
55
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
8822
33a3f424c8c3 (ispell-menu-map): Order menu items by size: buffer > region > word.
Karl Heuer <kwzh@gnu.org>
parents: 8311
diff changeset
237 (define-key ispell-menu-map [ispell-word]
33a3f424c8c3 (ispell-menu-map): Order menu items by size: buffer > region > word.
Karl Heuer <kwzh@gnu.org>
parents: 8311
diff changeset
238 '("Check Word" . ispell-word))
33a3f424c8c3 (ispell-menu-map): Order menu items by size: buffer > region > word.
Karl Heuer <kwzh@gnu.org>
parents: 8311
diff changeset
239
4062
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-region]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
241 '("Check Region" . ispell-region))
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-buffer]
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
244 '("Check Buffer" . ispell))
d7f5f18ddbc5 (ispell-menu-map): New keymap--both fn and var.
Richard M. Stallman <rms@gnu.org>
parents: 4043
diff changeset
245
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
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
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
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
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
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
8221
0b9e18f9b085 (ispell-word): Call ispell-dehighlight.
Richard M. Stallman <rms@gnu.org>
parents: 7841
diff changeset
373 (unwind-protect
0b9e18f9b085 (ispell-word): Call ispell-dehighlight.
Richard M. Stallman <rms@gnu.org>
parents: 7841
diff changeset
374 (catch 'ispell-quit
0b9e18f9b085 (ispell-word): Call ispell-dehighlight.
Richard M. Stallman <rms@gnu.org>
parents: 7841
diff changeset
375 (save-window-excursion
0b9e18f9b085 (ispell-word): Call ispell-dehighlight.
Richard M. Stallman <rms@gnu.org>
parents: 7841
diff changeset
376 (ispell-point (point) "at point."))
0b9e18f9b085 (ispell-word): Call ispell-dehighlight.
Richard M. Stallman <rms@gnu.org>
parents: 7841
diff changeset
377 (ispell-dump))
0b9e18f9b085 (ispell-word): Call ispell-dehighlight.
Richard M. Stallman <rms@gnu.org>
parents: 7841
diff changeset
378 (ispell-dehighlight))
671
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
379 (ispell-startup-error
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
380 (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
381 (load-library "spell")
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
382 (define-key esc-map "$" 'spell-word)
21d23fa6fa2a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 660
diff changeset
383 (spell-word)))))))
5293
346d921eaf3b Don't imply private dictionary is always ispell.words.
Richard M. Stallman <rms@gnu.org>
parents: 4933
diff changeset
384
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
diff changeset
385 ;;;autoload (define-key esc-map "$" 'ispell-word)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
diff changeset
387 ;;;autoload
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 (defun ispell-region (start &optional end)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 "Check the spelling for all of the words in the region."
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 (interactive "r")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (ispell (current-buffer) start end))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (defun ispell-letterp (c)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (and c
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 (or (and (>= c ?A) (<= c ?Z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 (and (>= c ?a) (<= c ?z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 (>= c 128))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (defun ispell-letter-or-quotep (c)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (and c
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 (or (and (>= c ?A) (<= c ?Z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (and (>= c ?a) (<= c ?z))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 (= c ?')
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 (>= c 128))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 (defun ispell-find-word-start ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 ;;backward to a letter
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (if (not (ispell-letterp (char-after (point))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (while (and (not (bobp))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 (not (ispell-letterp (char-after (- (point) 1)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 (backward-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 ;;backward to beginning of word
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 (while (ispell-letter-or-quotep (char-after (- (point) 1)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 (backward-char))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 (skip-chars-forward "'"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 (defun ispell-find-word-end ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 (while (ispell-letter-or-quotep (char-after (point)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 (forward-char))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 (skip-chars-backward "'"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 (defun ispell-next-word ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 (while (and (not (eobp))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 (not (ispell-letterp (char-after (point)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 (forward-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 ;if end is nil, then do one word at start
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 ;otherwise, do all words from the beginning of the word where
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 ;start points, to the end of the word where end points
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 (defun ispell-point (start message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 (let ((wend (make-marker))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 rescan
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 end)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
434 ;; 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
435 ;; 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
436 ;; when you type q.
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 (goto-char start)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 (ispell-find-word-start) ;find correct word start
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 (setq start (point-marker))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 (ispell-find-word-end) ;now find correct end
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 (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
442 ;; 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
443 (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
444 (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
445 (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
446 (ispell-find-word-end) ;find end of current word
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 ;could be before 'end' if
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 ;user typed replacement
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 ;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
450 (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
451 (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
452 (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
453 (cond ((ispell-still-bad word)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
454 ;;; This just causes confusion. -- rms.
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
455 ;;; (goto-char start)
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
456 ;;; (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
457 (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
458 (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
459 (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
460 (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
461 (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
462 ((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
463 (consp message))
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
464 (setq rescan
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
465 (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
466 (t
aaf846efe4cb (ispell-point): Do nothing if there's no word at START.
Richard M. Stallman <rms@gnu.org>
parents: 4105
diff changeset
467 (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
468 (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
469 (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
470 (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
471 (set-marker start (point))))))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 ;;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
473 ;;when we get back to the command loop
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (let ((buf (get-buffer "*ispell choices*")))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 (cond (buf
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (erase-buffer))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (set-marker start nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (set-marker end nil)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
480 (set-marker wend nil)))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 (defun ispell-still-bad (word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 (let ((words ispell-recently-accepted)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 (ret t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 (case-fold-search t))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 (while words
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 (cond ((eq (string-match (car words) word) 0)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (setq ret nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 (setq words nil)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 (setq words (cdr words)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 ret))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (defun ispell-show-choices (word message first-line)
778
cd00bdacc17b *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 671
diff changeset
494 ;;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
495 ;;messages winow be small. otherwise just use the other window
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 (let* ((selwin (selected-window))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 (resize (eq selwin (next-window)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 (buf (get-buffer-create "*ispell choices*"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 w)
2837
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
500 (or ispell-window-configuration
00f822101e49 (ispell): Deactivate mark before the Ispell run.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
501 (setq ispell-window-configuration (current-window-configuration)))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 (setq w (display-buffer buf))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (buffer-disable-undo buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (if resize
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 (unwind-protect
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 (progn
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 (select-window w)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (enlarge-window (- 6 (window-height w))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (select-window selwin)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (bury-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (set-window-point w (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (set-window-start w (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (erase-buffer)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (insert first-line "\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 (insert
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 "SPC skip; A accept; I insert; DIGIT select; R replace; \
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 L lookup; Q quit\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 (cond ((not (null message))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (let ((i 0))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (while (< i 3)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (let ((j 0))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (while (< j 3)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (let* ((n (+ (* j 3) i))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (choice (nth n message)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (cond (choice
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (let ((str (format "%d %s" n choice)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 (insert str)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (insert-char ? (- 20 (length str)))))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (setq j (+ j 1))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 (insert "\n")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (setq i (+ i 1)))))))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (defun ispell-command-loop (word start end message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (let ((flag t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 (rescan nil)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 first-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (if (null message)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 (setq first-line (concat "No near misses for '" word "'"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (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
542 (ispell-highlight start end)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (while flag
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (ispell-show-choices word message first-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (message "Ispell command: ")
2888
e931a98b2f36 (ispell-command-loop): Make an undo boundary.
Richard M. Stallman <rms@gnu.org>
parents: 2837
diff changeset
546 (undo-boundary)
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (let ((c (downcase (read-char)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 replacement)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (cond ((and (>= c ?0)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (<= c ?9)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 (setq replacement (nth (- c ?0) message)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 (ispell-replace start end replacement)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 ((= c ?q)
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
555 (throw 'ispell-quit nil))
4927
24bb9fff22ce Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 4926
diff changeset
556 ((= 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
557 (keyboard-quit))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 ((= c ? )
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 ((= c ?r)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 (ispell-replace start end (read-string "Replacement: "))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 (setq rescan t)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 ((= c ?i)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 (ispell-insert word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 ((= c ?a)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 (ispell-accept word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 (setq flag nil))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 ((= c ?l)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 (let ((val (ispell-do-look word)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 (setq first-line (car val))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 (setq message (cdr val))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 ((= c ??)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 (message
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 "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
577 (sit-for 2))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 (t
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 (message "Bad ispell command")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 (sit-for 2)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 rescan))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 (defun ispell-do-look (bad-word)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (let (regex buf words)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 (cond ((null ispell-have-new-look)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (setq regex (read-string "Lookup: ")))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 (t
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 (setq regex (read-string "Lookup (regex): " "^"))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 (setq buf (get-buffer-create "*ispell look*"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (save-excursion
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 (set-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 (delete-region (point-min) (point-max))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 (if ispell-have-new-look
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
594 (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
595 (call-process ispell-look-command nil buf nil regex))
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 (goto-char (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 (forward-line 10)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (delete-region (point) (point-max))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 (goto-char (point-min))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (while (not (= (point-min) (point-max)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 (end-of-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 (setq words (cons (buffer-substring (point-min) (point)) words))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 (forward-line)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 (delete-region (point-min) (point)))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 (kill-buffer buf)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 (cons (format "Lookup '%s'" regex)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (reverse words)))))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 (defun ispell-replace (start end new)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 (goto-char start)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 (insert new)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 (delete-region (point) end))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 (defun reload-ispell ()
3623
739ba36097c9 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
615 "Tell Ispell to re-read your private dictionary."
55
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 (interactive)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 (ispell-cmd ":reload"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 (defun batch-make-ispell ()
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (byte-compile-file "ispell.el")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 (find-file "ispell.texinfo")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 (let ((old-dir default-directory)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (default-directory "/tmp"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 (texinfo-format-buffer))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 (Info-validate)
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 (if (get-buffer " *problems in info file*")
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (kill-emacs 1))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 (write-region (point-min) (point-max) "ispell.info"))
5652ba2db1a7 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629
5400
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
630 (defvar ispell-highlight t
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
631 "*Non-nil means to highlight ispell words.")
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 (defvar ispell-overlay nil)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
634
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
635 (defun ispell-dehighlight ()
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
636 (and ispell-overlay
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
637 (progn
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
638 (delete-overlay ispell-overlay)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
639 (setq ispell-overlay nil))))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
640
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
641 (defun ispell-highlight (start end)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
642 (and ispell-highlight
7565
edf32f56ba70 (ispell-highlight): Do nothing unless window-system.
Richard M. Stallman <rms@gnu.org>
parents: 7446
diff changeset
643 window-system
5400
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 (or ispell-overlay
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
646 (progn
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
647 (setq ispell-overlay (make-overlay start end))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
648 (overlay-put ispell-overlay 'face
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
649 (if (internal-find-face 'ispell)
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
650 'ispell 'region))))
dd2c5504bcc1 (ispell-highlight, ispell-dehighlight): New functions.
Richard M. Stallman <rms@gnu.org>
parents: 5384
diff changeset
651 (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
652
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
653 ;;;; ispell-complete-word
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
654
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
655 ;;; Brief Description:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
656 ;;; 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
657 ;;; 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
658 ;;; 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
659
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
660 ;;; Known Problem:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
661 ;;; 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
662 ;;; 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
663 ;;; 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
664 ;;; `ispell-gnu-look-still-broken-p'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
665
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
666 ;;; Motivation:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
667 ;;; 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
668 ;;; (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
669 ;;; 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
670 ;;; 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
671 ;;; 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
672 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
673 ;;; 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
674 ;;; 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
675 ;;; 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
676 ;;; 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
677 ;;; 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
678 ;;; 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
679 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
680 ;;; 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
681 ;;; 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
682 ;;; 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
683 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
684 ;;; Possible completions are:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
685 ;;; sash sashay
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
686 ;;; sashayed sashed
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
687 ;;; sashes sashimi
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
688 ;;; Saskatchewan Saskatoon
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
689 ;;; sass sassafras
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
690 ;;; sassier sassing
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
691 ;;; sasswood sassy
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
692 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
693 ;;; 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
694 ;;; 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
695 ;;; 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
696 ;;; 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
697 ;;; another M-TAB
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
698 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
699 ;;; Possible completions are:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
700 ;;; Saskatchewan Saskatoon
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
701 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
702 ;;; 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
703 ;;; 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
704 ;;; 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
705 ;;; select it.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
706 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
707 ;;; 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
708 ;;; "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
709 ;;; 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
710 ;;; 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
711 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
712 ;;; 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
713 ;;; 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
714 ;;; 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
715 ;;; `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
716 ;;; 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
717 ;;; 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
718 ;;; 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
719 ;;; 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
720
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
721 ;;; The user-defined variables are:
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
722 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
723 ;;; ispell-look-command
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
724 ;;; ispell-look-dictionary
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
725 ;;; ispell-gnu-look-still-broken-p
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 ;;; Algorithm (some similarity to lisp-complete-symbol):
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
728 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
729 ;;; * 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
730 ;;; 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
731 ;;; 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
732 ;;; ispell-lookup-completions-alist.
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 ;;; * 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
735 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
736 ;;; * 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
737 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
738 ;;; * 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
739 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
740 ;;; * 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
741 ;;; beginning of word fragment has changed.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
742 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
743 ;;; * 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
744 ;;; 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
745 ;;; 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
746 ;;; 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
747 ;;; 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
748 ;;; 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
749 ;;; 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
750 ;;; above.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
751 ;;;
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
752 ;;; * 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
753 ;;; 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
754
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
755 ;;;; User-defined variables.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
756
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
757 (defvar ispell-look-dictionary nil
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
758 "*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
759 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
760 \"${prefix}/lib/ispell/ispell.words\"")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
761
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
762 (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
763 "*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
764 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
765 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
766
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
767 y
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
768 y's
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
769 yacc
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
770
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
771 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
772 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
773 will help find those completions.")
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 ;;;; Internal variables.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
776
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
777 ;;; Possible completions for last word fragment.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
778 (defvar ispell-lookup-completions-alist nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
779
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
780 ;;; 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
781 (defvar ispell-lookup-last-word nil)
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 ;;; Buffer local variables.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
784
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
785 ;;; 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
786 (defvar ispell-lookup-last-interior-p nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
787 (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
788 (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
789
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
790 ;;; 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
791 (defvar ispell-lookup-last-bow nil)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
792 (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
793 (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
794
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
795 ;;;; Interactive functions.
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
diff changeset
796 ;;;autoload
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
797 (defun ispell-complete-word (&optional interior-frag)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
798 "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
799 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
800 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
801 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
802
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
803 (interactive "P")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
804
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
805 ;; `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
806 ;; fragment search.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
807 (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
808 (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
809 "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
810
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
811 (let* ((completion-ignore-case t)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
812
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
813 ;; Get location of beginning of word fragment.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
814 (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
815
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
816 ;; Get the string to look up.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
817 (string (buffer-substring bow (point)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
818
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
819 ;; 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
820 ;; fragment.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
821 (regexp (if interior-frag
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 possible use fast binary search: no trailing `.*'.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
824 (concat "^" string
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
825 (if ispell-gnu-look-still-broken-p ".*"))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
826
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
827 ;; 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
828 ;; prefix to an empty string.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
829 (prefix (if interior-frag "" string))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
830
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
831 ;; 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
832 ;; 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
833 (continuing-an-interior-frag-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
834 (and ispell-lookup-last-interior-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
835 (equal ispell-lookup-last-bow bow)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
836
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
837 ;; 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
838 ;; interior word fragment search.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
839 (new-unique-string-p
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
840 (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
841 (let ((case-fold-search t))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
842 ;; 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
843 ;; 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
844 ;; 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
845 ;; later.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
846 (not (string-match
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
847 (concat "^" ispell-lookup-last-word) string)))))
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 completion)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
850
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
851 ;; 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
852 ;; 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
853 (if (string-equal string "")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
854 (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
855 (buffer-substring
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
856 (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
857 (error "Perfect match already")
ec02e2f72eae (ispell-next): Remove periods from messages.
Richard M. Stallman <rms@gnu.org>
parents: 5293
diff changeset
858 (error "No word fragment at point")))
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
859
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
860 ;; 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
861 ;; 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
862 (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
863 (setq ispell-lookup-completions-alist
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
864 (ispell-lookup-build-list string regexp)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
865
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
866 ;; 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
867 ;; other variables for the next call.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
868 (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
869 ispell-lookup-last-word string
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
870 ispell-lookup-last-interior-p interior-frag
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
871 ispell-lookup-last-bow bow)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
872
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
873 ;; Test the completion status.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
874 (cond
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
875
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
876 ;; * Guess is a perfect match.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
877 ((eq completion t)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
878 (insert " ")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
879 (message "Perfect match."))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
880
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
881 ;; * No possibilities.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
882 ((null completion)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
883 (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
884 (beep))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
885
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
886 ;; * 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
887 ((and (not (string-equal completion ""))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
888 ;; 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
889 ;; substring differ only in case.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
890 (let ((case-fold-search t))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
891 (not (string-match (concat "^" completion "$") string))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
892 (search-backward string bow)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
893 (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
894 (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
895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
896 ;; * 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
897 (t
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
898 (message "Making completion list...")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
899 (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
900 (let ((list (all-completions prefix ispell-lookup-completions-alist)))
7841
f152f2b276c5 (ispell-complete-word): Likewise.
Richard M. Stallman <rms@gnu.org>
parents: 7565
diff changeset
901 (with-output-to-temp-buffer "*Completions*"
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
902 (display-completion-list list)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
903 (message "Making completion list...done")))))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
904
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
diff changeset
905 ;;;autoload
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
906 (defun ispell-complete-word-interior-frag ()
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
907 "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
908 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
909 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
910 (interactive)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
911 (ispell-complete-word t))
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 ;;;; Internal Function.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
914
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
915 ;;; 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
916 ;;; 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
917 ;;; 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
918 ;;; 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
919 ;;; try-completion, all-completions, and completing-read.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
920 (defun ispell-lookup-build-list (string regexp)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
921 (save-excursion
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
922 (message "Building list...")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
923 (set-buffer (get-buffer-create " *ispell look*"))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
924 (erase-buffer)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
925
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
926 (if (stringp ispell-look-dictionary)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
927 (if ispell-have-new-look
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 "-fr" regexp
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 (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
931 ispell-look-dictionary))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
932 (if ispell-have-new-look
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
933 (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
934 (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
935
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
936 ;; 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
937 ;; 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
938 (let (list)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
939 (goto-char (point-min))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
940 (while (not (= (point-min) (point-max)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
941 (end-of-line)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
942 (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
943 (forward-line)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
944 (delete-region (point-min) (point)))
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
945
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
946 ;; Clean.
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
947 (erase-buffer)
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
948 (message "Building list...done")
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
949
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
950 ;; 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
951 (mapcar 'list (nreverse list)))))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
952
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
953 ;; 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
954 ;; Otherwise return an unmatchable regexp.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
955 (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
956 (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
957 "\\'\\`" ; 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
958 (regexp-quote string)))
4895
7c2d90ff5849 (ispell-look-command): New user variable.
Richard M. Stallman <rms@gnu.org>
parents: 4889
diff changeset
959
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
960 (defvar ispell-message-cite-regexp "^ \\|^\t"
4842
ef5f87232112 (ispell-message-cite-regexp): Add definition.
Richard M. Stallman <rms@gnu.org>
parents: 4786
diff changeset
961 "*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
962
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
963 (defvar ispell-message-text-end
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
964 (concat "^\\(" (mapconcat (function identity)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
965 '(
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
966 ;; Matches postscript files.
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
967 "%!PS-Adobe-2.0"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
968 ;; Matches uuencoded text
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
969 "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
970 ;; 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
971 "#! /bin/sh"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
972 ;; Matches difference listing
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
973 "diff -c .*\n\\*\\*\\* .*\n--- "
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
974 ;; Matches "--------------------- cut here"
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
975 "[-=]+\\s cut here")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
976 "\\|")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
977 "\\)")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
978 "*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
979 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
980 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
981
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
982 (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
983 "*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
984
11713
5306e71f486c All autoload cookies disabled.
Richard M. Stallman <rms@gnu.org>
parents: 8822
diff changeset
985 ;;;autoload
4749
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
986 (defun ispell-message ()
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
987 "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
988 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
989
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
990 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
991 (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
992
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
993 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
994 (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
995 (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
996 (interactive)
fe223c0faf71 (ispell-message): New command, with menu bar item.
Richard M. Stallman <rms@gnu.org>
parents: 4256
diff changeset
997 (save-excursion
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
998 (let (non-internal-message
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
999 (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
1000 (case-fold-search nil))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1001 (goto-char (point-min))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1002 ;; 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
1003 (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
1004 ;; Move to first body line.
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1005 (forward-line 1)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1006 (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
1007 (not (eobp)))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1008 (forward-line 1))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1009 (setq non-internal-message t)
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1010 )
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1011 (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
1012 (cond
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1013 ((featurep 'supercite) ; sc 3.0
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1014 (concat "\\(" (sc-cite-regexp) "\\)" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1015 (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
1016 ((featurep 'sc) ; sc 2.3
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1017 (concat "\\(" sc-cite-regexp "\\)" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1018 (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
1019 (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
1020 (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
1021 "In <[^,;&+=]+> [^,;&+=]+ writes:" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1022 " *> *"))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1023 ((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
1024 (concat "In article <" "\\|"
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1025 (if mail-yank-prefix
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1026 (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
1027 ispell-message-cite-regexp)))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1028 ((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
1029 (concat "[^,;&+=]+ writes:" "\\|"
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1030 (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
1031 ))
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1032 ((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
1033 (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
1034 (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
1035 (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
1036 (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
1037 (continue t)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1038 (limit
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1039 (min
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1040 (+ (point-min) ispell-message-limit)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1041 (point-max)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1042 (save-excursion
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1043 (cond
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1044 ((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
1045 ((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
1046 (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
1047 (match-beginning 0)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1048 (point-max)))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1049 (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
1050 (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
1051 (+ limit (length cite-regexp)))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1052 )
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1053 ;; Check the subject
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1054 (save-excursion
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1055 (let ((case-fold-search t)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1056 (message-begin (point)))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1057 (goto-char (point-min))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1058 ;; "\\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
1059 (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
1060 (not (looking-at "re\\>")))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1061 (setq continue
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1062 (ispell-region (- (point) 1)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1063 (progn
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1064 (end-of-line)
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1065 (while (looking-at "\n[ \t]")
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1066 (end-of-line 2))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1067 (point))))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1068 )))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1069
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1070 ;; Check the body.
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1071 (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
1072 ;; 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
1073 (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
1074 (< (point) limit))
4926
c639a86ac9f1 (ispell-message): Stop if ispell-region returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 4895
diff changeset
1075 (forward-line 1))
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1076 (if (< (point) limit)
4929
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1077 ;; 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
1078 (let ((start (point)))
7446
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1079 (if (re-search-forward
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1080 (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
1081 (beginning-of-line))
3b974ab09824 (ispell-message): Add `ispell-message-text-end' and
Richard M. Stallman <rms@gnu.org>
parents: 7030
diff changeset
1082 (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
1083 (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
1084 (save-excursion
2b5e416494d1 (ispell-message): If gnus, but no mail-yank-prefix,
Richard M. Stallman <rms@gnu.org>
parents: 4927
diff changeset
1085 (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
1086
3112
6b8a9fb0537c Provide `ispell'.
Richard M. Stallman <rms@gnu.org>
parents: 2888
diff changeset
1087 (provide 'ispell)
6b8a9fb0537c Provide `ispell'.
Richard M. Stallman <rms@gnu.org>
parents: 2888
diff changeset
1088
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 317
diff changeset
1089 ;;; ispell.el ends here