Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 11713:5306e71f486c
All autoload cookies disabled.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 06 May 1995 01:52:22 +0000 |
parents | 33a3f424c8c3 |
children | 1514fd54b2f5 |
comparison
equal
deleted
inserted
replaced
11712:e1f527e99a2f | 11713:5306e71f486c |
---|---|
241 '("Check Region" . ispell-region)) | 241 '("Check Region" . ispell-region)) |
242 | 242 |
243 (define-key ispell-menu-map [ispell-buffer] | 243 (define-key ispell-menu-map [ispell-buffer] |
244 '("Check Buffer" . ispell)) | 244 '("Check Buffer" . ispell)) |
245 | 245 |
246 ;;;###autoload | 246 ;;;autoload |
247 (defun ispell (&optional buf start end) | 247 (defun ispell (&optional buf start end) |
248 "Run Ispell over current buffer's visited file. | 248 "Run Ispell over current buffer's visited file. |
249 First the file is scanned for misspelled words, then Ispell | 249 First the file is scanned for misspelled words, then Ispell |
250 enters a loop with the following commands for every misspelled word: | 250 enters a loop with the following commands for every misspelled word: |
251 | 251 |
318 t) | 318 t) |
319 (t | 319 (t |
320 (message "Ispell parsing done.") | 320 (message "Ispell parsing done.") |
321 (ispell-next)))) | 321 (ispell-next)))) |
322 | 322 |
323 ;;;###autoload | 323 ;;;autoload |
324 (defalias 'ispell-buffer 'ispell) | 324 (defalias 'ispell-buffer 'ispell) |
325 | 325 |
326 (defun ispell-next () | 326 (defun ispell-next () |
327 "Resume command loop for most recent Ispell command. | 327 "Resume command loop for most recent Ispell command. |
328 Return value is t unless exit is due to typing `q'." | 328 Return value is t unless exit is due to typing `q'." |
359 (t | 359 (t |
360 (setq ispell-bad-words nil) | 360 (setq ispell-bad-words nil) |
361 (message "Bad ispell internal list")))) | 361 (message "Bad ispell internal list")))) |
362 (ispell-dump))) | 362 (ispell-dump))) |
363 | 363 |
364 ;;;###autoload | 364 ;;;autoload |
365 (defun ispell-word (&optional resume) | 365 (defun ispell-word (&optional resume) |
366 "Check the spelling of the word under the cursor. | 366 "Check the spelling of the word under the cursor. |
367 See the command `ispell' for more information. | 367 See the command `ispell' for more information. |
368 With a prefix argument, resume handling of the previous Ispell command." | 368 With a prefix argument, resume handling of the previous Ispell command." |
369 (interactive "P") | 369 (interactive "P") |
380 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ") | 380 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ") |
381 (load-library "spell") | 381 (load-library "spell") |
382 (define-key esc-map "$" 'spell-word) | 382 (define-key esc-map "$" 'spell-word) |
383 (spell-word))))))) | 383 (spell-word))))))) |
384 | 384 |
385 ;;;###autoload (define-key esc-map "$" 'ispell-word) | 385 ;;;autoload (define-key esc-map "$" 'ispell-word) |
386 | 386 |
387 ;;;###autoload | 387 ;;;autoload |
388 (defun ispell-region (start &optional end) | 388 (defun ispell-region (start &optional end) |
389 "Check the spelling for all of the words in the region." | 389 "Check the spelling for all of the words in the region." |
390 (interactive "r") | 390 (interactive "r") |
391 (ispell (current-buffer) start end)) | 391 (ispell (current-buffer) start end)) |
392 | 392 |
791 (defvar ispell-lookup-last-bow nil) | 791 (defvar ispell-lookup-last-bow nil) |
792 (make-variable-buffer-local 'ispell-lookup-last-bow) | 792 (make-variable-buffer-local 'ispell-lookup-last-bow) |
793 (put 'ispell-lookup-last-bow 'permanent-local t) | 793 (put 'ispell-lookup-last-bow 'permanent-local t) |
794 | 794 |
795 ;;;; Interactive functions. | 795 ;;;; Interactive functions. |
796 ;;;###autoload | 796 ;;;autoload |
797 (defun ispell-complete-word (&optional interior-frag) | 797 (defun ispell-complete-word (&optional interior-frag) |
798 "Complete word using letters at point to word beginning using `look'. | 798 "Complete word using letters at point to word beginning using `look'. |
799 With optional argument INTERIOR-FRAG, word fragment at point is assumed to be | 799 With optional argument INTERIOR-FRAG, word fragment at point is assumed to be |
800 an interior word fragment in which case `ispell-have-new-look' should be t. | 800 an interior word fragment in which case `ispell-have-new-look' should be t. |
801 See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'." | 801 See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'." |
900 (let ((list (all-completions prefix ispell-lookup-completions-alist))) | 900 (let ((list (all-completions prefix ispell-lookup-completions-alist))) |
901 (with-output-to-temp-buffer "*Completions*" | 901 (with-output-to-temp-buffer "*Completions*" |
902 (display-completion-list list))) | 902 (display-completion-list list))) |
903 (message "Making completion list...done"))))) | 903 (message "Making completion list...done"))))) |
904 | 904 |
905 ;;;###autoload | 905 ;;;autoload |
906 (defun ispell-complete-word-interior-frag () | 906 (defun ispell-complete-word-interior-frag () |
907 "Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG. | 907 "Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG. |
908 A completion list is built for word fragment at point which is assumed to be | 908 A completion list is built for word fragment at point which is assumed to be |
909 an interior word fragment. `ispell-have-new-look' should be t." | 909 an interior word fragment. `ispell-have-new-look' should be t." |
910 (interactive) | 910 (interactive) |
980 Otherwise, it must be a function which is called to get the limit.") | 980 Otherwise, it must be a function which is called to get the limit.") |
981 | 981 |
982 (defvar ispell-message-limit (* 100 80) | 982 (defvar ispell-message-limit (* 100 80) |
983 "*Ispell-message will check no more than this number of characters.") | 983 "*Ispell-message will check no more than this number of characters.") |
984 | 984 |
985 ;;;###autoload | 985 ;;;autoload |
986 (defun ispell-message () | 986 (defun ispell-message () |
987 "Check the spelling of a mail message or news post. | 987 "Check the spelling of a mail message or news post. |
988 Don't check spelling of message headers (except subject) or included messages. | 988 Don't check spelling of message headers (except subject) or included messages. |
989 | 989 |
990 To spell-check whenever a message is sent, include this line in .emacs: | 990 To spell-check whenever a message is sent, include this line in .emacs: |