(ispell-highlight, ispell-dehighlight): New functions.

(ispell-command-loop, ispell-next): Call them.
(ispell-highlight, ispell-overlay): New variables.

lisp/textmodes/ispell4.el

@@ -342,6 +342,7 @@ Return value is t unless exit is due to typing `q'."
 		(setq ispell-bad-words (cdr ispell-bad-words))
 		(set-marker next nil)))
 	    t)
+	(ispell-dehighlight)
 	(if ispell-window-configuration
 	    (set-window-configuration ispell-window-configuration))
 	(cond ((null ispell-bad-words)
@@ -536,6 +537,7 @@ L lookup; Q quit\n")
     (if (null message)
 	(setq first-line (concat "No near misses for '" word "'"))
       (setq first-line (concat "Near misses for '" word "'")))
+    (ispell-highlight start end)
     (while flag
       (ispell-show-choices word message first-line)
       (message "Ispell command: ")
@@ -623,6 +625,28 @@ L lookup; Q quit\n")
       (kill-emacs 1))
   (write-region (point-min) (point-max) "ispell.info"))
 
+(defvar ispell-highlight t
+  "*Non-nil means to highlight ispell words.")
+
+(defvar ispell-overlay nil)
+
+(defun ispell-dehighlight ()
+  (and ispell-overlay
+       (progn
+	 (delete-overlay ispell-overlay)
+	 (setq ispell-overlay nil))))
+
+(defun ispell-highlight (start end)
+  (and ispell-highlight 
+       (progn
+	 (or ispell-overlay
+	     (progn
+	       (setq ispell-overlay (make-overlay start end))
+	       (overlay-put ispell-overlay 'face
+			    (if (internal-find-face 'ispell)
+				'ispell 'region))))
+	 (move-overlay ispell-overlay start end (current-buffer)))))
+
 ;;;; ispell-complete-word
 
 ;;; Brief Description: