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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd1df126db26feee9dac155c58dc69340688a19a..d6bfe13dd9ae9947d00d4a2f8b093d8b23ad67b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-01-22  Richard M. Stallman  <rms@gnu.org>
+
+       * net/ange-ftp.el (ange-ftp-canonize-filename): Avoid duplicate
+       slash if DIR is just slash.
+
+       * textmodes/ispell.el (ispell-help): Clean up echo area if user quits.
+
 2002-01-20  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * international/quail.el (quail-start-translation)

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 24a96213eaf6755f87f4658eeca0e262d80e4c47..830af2a73778e3c720d42cd963686f039c64d2d6 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1886,14 +1886,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)
-         (if (not version18p) (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)
+               (if (not version18p) (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)