Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 5384:ec02e2f72eae
(ispell-next): Remove periods from messages.
(ispell-complete-word): Improve error messages.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 31 Dec 1993 06:59:31 +0000 |
| parents | 346d921eaf3b |
| children | dd2c5504bcc1 |
comparison
equal
deleted
inserted
replaced
| 5383:037e2641c768 | 5384:ec02e2f72eae |
|---|---|
| 343 (set-marker next nil))) | 343 (set-marker next nil))) |
| 344 t) | 344 t) |
| 345 (if ispell-window-configuration | 345 (if ispell-window-configuration |
| 346 (set-window-configuration ispell-window-configuration)) | 346 (set-window-configuration ispell-window-configuration)) |
| 347 (cond ((null ispell-bad-words) | 347 (cond ((null ispell-bad-words) |
| 348 (error "Ispell has not yet been run.")) | 348 (error "Ispell has not yet been run")) |
| 349 ((markerp (car ispell-bad-words)) | 349 ((markerp (car ispell-bad-words)) |
| 350 (message (substitute-command-keys | 350 (message (substitute-command-keys |
| 351 "Type \\[ispell-next] to continue."))) | 351 "Type \\[ispell-next] to continue"))) |
| 352 ((eq (car ispell-bad-words) nil) | 352 ((eq (car ispell-bad-words) nil) |
| 353 (setq ispell-bad-words nil) | 353 (setq ispell-bad-words nil) |
| 354 (message "No more misspellings (but checker was interrupted.)")) | 354 (message "No more misspellings (but checker was interrupted)")) |
| 355 ((eq (car ispell-bad-words) t) | 355 ((eq (car ispell-bad-words) t) |
| 356 (setq ispell-bad-words nil) | 356 (setq ispell-bad-words nil) |
| 357 (message "Ispell done.")) | 357 (message "Ispell done")) |
| 358 (t | 358 (t |
| 359 (setq ispell-bad-words nil) | 359 (setq ispell-bad-words nil) |
| 360 (message "Bad ispell internal list")))) | 360 (message "Bad ispell internal list")))) |
| 361 (ispell-dump))) | 361 (ispell-dump))) |
| 362 | 362 |
| 776 (interactive "P") | 776 (interactive "P") |
| 777 | 777 |
| 778 ;; `look' must support regexp expressions in order to perform an interior | 778 ;; `look' must support regexp expressions in order to perform an interior |
| 779 ;; fragment search. | 779 ;; fragment search. |
| 780 (if (and interior-frag (not ispell-have-new-look)) | 780 (if (and interior-frag (not ispell-have-new-look)) |
| 781 (error (concat "Sorry `ispell-have-new-look' is nil. " | 781 (error (concat "Sorry, `ispell-have-new-look' is nil. " |
| 782 "You also will need GNU Ispell's `look'."))) | 782 "You also will need GNU Ispell's `look'."))) |
| 783 | 783 |
| 784 (let* ((completion-ignore-case t) | 784 (let* ((completion-ignore-case t) |
| 785 | 785 |
| 786 ;; Get location of beginning of word fragment. | 786 ;; Get location of beginning of word fragment. |
| 825 ;; M-x ispell-complete-word one too many times? | 825 ;; M-x ispell-complete-word one too many times? |
| 826 (if (string-equal string "") | 826 (if (string-equal string "") |
| 827 (if (string-equal (concat ispell-lookup-last-word " ") | 827 (if (string-equal (concat ispell-lookup-last-word " ") |
| 828 (buffer-substring | 828 (buffer-substring |
| 829 (save-excursion (forward-word -1) (point)) (point))) | 829 (save-excursion (forward-word -1) (point)) (point))) |
| 830 (error "Perfect match...still. Please move on.") | 830 (error "Perfect match already") |
| 831 (error "No word fragment at point."))) | 831 (error "No word fragment at point"))) |
| 832 | 832 |
| 833 ;; Create list of words from system dictionary starting with `string' if | 833 ;; Create list of words from system dictionary starting with `string' if |
| 834 ;; new string and not continuing from a previous interior fragment search. | 834 ;; new string and not continuing from a previous interior fragment search. |
| 835 (if (and (not continuing-an-interior-frag-p) new-unique-string-p) | 835 (if (and (not continuing-an-interior-frag-p) new-unique-string-p) |
| 836 (setq ispell-lookup-completions-alist | 836 (setq ispell-lookup-completions-alist |