diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-01-22 01:09:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-01-22 01:09:23 +0000 |
| commit | 41b495aff5aa945191d9dff111fe3f247980c3c1 (patch) | |
| tree | ca02a1bf622aa8bde09d54b86ee321aab9491b50 /lisp/textmodes | |
| parent | 2252bdcf999bcd1cc65f4a748995373241b15250 (diff) | |
| download | emacs-41b495aff5aa945191d9dff111fe3f247980c3c1.tar.gz | |
(ispell-help): Clean up echo area if user quits.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 18 |
1 files changed, 10 insertions, 8 deletions
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) |