From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Jan 2002 01:09:23 +0000 (+0000)
Subject: (ispell-help): Clean up echo area if user quits.
X-Git-Tag: ttn-vms-21-2-B4~17030
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41b495aff5aa945191d9dff111fe3f247980c3c1;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47b3e1de0a4..11f3624ba32 100644
--- 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 d12808a9562..180bedc6481 100644
--- 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)