ispell leaves an haunted echo message

[Tak Ota]

On emacs 21.2.50,

While ispell is offering alternative spellings in the *Choices* buffer
if the user quits ispell by pressing C-g it leaves the message
"[r/R]eplace word; [a/A]ccept for this session; [i]nsert into private
dictionary" in the echo area and the message comes back occasionally.

The following patch fixes this problem.

-Tak

*** d:/pub/emacs/emacs/lisp/textmodes/ispell.el Thu Dec 20 10:10:44 2001
--- ispell.el   Mon Jan 21 09:12:44 2002
***************
*** 1873,1886 ****
              (insert (concat help-1 "\n" help-2 "\n" help-3))
              (sit-for 5)
              (kill-buffer "*Ispell Help*"))
!         (select-window (minibuffer-window))
!         (erase-buffer)
!         (message nil)
!         ;;(set-minibuffer-window (selected-window))
!         (enlarge-window 2)
!         (insert (concat help-1 "\n" help-2 "\n" help-3))
!         (sit-for 5)
!         (erase-buffer))))))
  
  
  (defun lookup-words (word &optional lookup-dict)
--- 1873,1888 ----
              (insert (concat help-1 "\n" help-2 "\n" help-3))
              (sit-for 5)
              (kill-buffer "*Ispell Help*"))
!         (unwind-protect
!             (progn
!               (select-window (minibuffer-window))
!               (erase-buffer)
!               (message nil)
!               ;;(set-minibuffer-window (selected-window))
!               (enlarge-window 2)
!               (insert (concat help-1 "\n" help-2 "\n" help-3))
!               (sit-for 5))
!           (erase-buffer)))))))