mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ispell-next): Remove periods from messages.

Browse source 
(ispell-complete-word): Improve error messages.
This commit is contained in:
Richard M. Stallman 1993-12-31 06:59:31 +00:00
parent aa648601df
commit 06811c2dd3
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/textmodes/ispell4.el
View file

@ -345,16 +345,16 @@ Return value is t unless exit is due to typing `q'."
(if ispell-window-configuration
(set-window-configuration ispell-window-configuration))
(cond ((null ispell-bad-words)
(error "Ispell has not yet been run."))
(error "Ispell has not yet been run"))
((markerp (car ispell-bad-words))
(message (substitute-command-keys
"Type \\[ispell-next] to continue.")))
"Type \\[ispell-next] to continue")))
((eq (car ispell-bad-words) nil)
(setq ispell-bad-words nil)
(message "No more misspellings (but checker was interrupted.)"))
(message "No more misspellings (but checker was interrupted)"))
((eq (car ispell-bad-words) t)
(setq ispell-bad-words nil)
(message "Ispell done."))
(message "Ispell done"))
(t
(setq ispell-bad-words nil)
(message "Bad ispell internal list"))))
@ -778,7 +778,7 @@ See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'."
;; `look' must support regexp expressions in order to perform an interior
;; fragment search.
(if (and interior-frag (not ispell-have-new-look))
(error (concat "Sorry `ispell-have-new-look' is nil. "
(error (concat "Sorry, `ispell-have-new-look' is nil. "
"You also will need GNU Ispell's `look'.")))
(let* ((completion-ignore-case t)
@ -827,8 +827,8 @@ See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'."
(if (string-equal (concat ispell-lookup-last-word " ")
(buffer-substring
(save-excursion (forward-word -1) (point)) (point)))
(error "Perfect match...still. Please move on.")
(error "No word fragment at point.")))
(error "Perfect match already")
(error "No word fragment at point")))
;; Create list of words from system dictionary starting with `string' if
;; new string and not continuing from a previous interior fragment search.