Mercurial > emacs

changeset 42889:d91994a23659

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-help): Clean up echo area if user quits.
author Richard M. Stallman <rms@gnu.org>
date Tue, 22 Jan 2002 01:09:12 +0000
parents 04040cfbdf67
children 05f254304877
files lisp/textmodes/ispell.el
diffstat 1 files changed, 10 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el	Mon Jan 21 23:04:26 2002 +0000
+++ b/lisp/textmodes/ispell.el	Tue Jan 22 01:09:12 2002 +0000
@@ -1873,14 +1873,16 @@
 	      (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)