+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)
(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)