# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757321171 0
# Node ID ec02e2f72eae13971f288f2cd3dc2cab93deaaf8
# Parent  037e2641c76851052b01c42e610ae4e2a1b81634
(ispell-next): Remove periods from messages.
(ispell-complete-word): Improve error messages.

diff -r 037e2641c768 -r ec02e2f72eae lisp/textmodes/=ispell4.el
--- a/lisp/textmodes/=ispell4.el	Fri Dec 31 06:45:33 1993 +0000
+++ b/lisp/textmodes/=ispell4.el	Fri Dec 31 06:59:31 1993 +0000
@@ -345,16 +345,16 @@
 	(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 @@
   ;; `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 @@
         (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.