# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773997324 0
# Node ID 0b9e18f9b0859b6075058ff1f9fd928d583dba8f
# Parent  aea786f4cdd14933ac1c3d8a77260922f62e85c7
(ispell-word): Call ispell-dehighlight.

diff -r aea786f4cdd1 -r 0b9e18f9b085 lisp/textmodes/=ispell4.el
--- a/lisp/textmodes/=ispell4.el	Tue Jul 12 07:08:31 1994 +0000
+++ b/lisp/textmodes/=ispell4.el	Tue Jul 12 07:15:24 1994 +0000
@@ -370,10 +370,12 @@
   (if resume
       (ispell-next)
     (condition-case err
-	(catch 'ispell-quit
-	  (save-window-excursion
-	    (ispell-point (point) "at point."))
-	  (ispell-dump))
+	(unwind-protect
+	    (catch 'ispell-quit
+	      (save-window-excursion
+		(ispell-point (point) "at point."))
+	      (ispell-dump))
+	  (ispell-dehighlight))
       (ispell-startup-error
        (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ")
 	      (load-library "spell")