(ispell-help): Clean up echo area if user quits.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47b3e1de0a45c662d26e219dcefec68c8e74fbc0..11f3624ba325b5a2b518c06de834444c2ecfeb41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-21  Richard M. Stallman  <rms@gnu.org>
 
+       * textmodes/ispell.el (ispell-help): Clean up echo area if user quits.
+
        * ibuffer.el: Don't require ibuf-ext at load time.
        (ibuffer): Require ibuf-ext here.
 

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d12808a956249a5a18c486c426baf5fec98d8ad6..180bedc6481bfd03108bc3c775573d623f0df5fc 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1873,14 +1873,16 @@ SPC:   Accept word this time.
              (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))))))
+         (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)))))))
 
 
 (defun lookup-words (word &optional lookup-dict)