# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1048495940 0
# Node ID 03c508c0bdcee2a890f4288c5eb4defb427be7f9
# Parent  3ab5045ca8fa879e1a374bc463dcc3ce369faa4d
(emerge-show-file-name): Read event irrespective of whether minibuffer
window is resized.  Clear minibuffer when done.

diff -r 3ab5045ca8fa -r 03c508c0bdce lisp/emerge.el
--- a/lisp/emerge.el	Mon Mar 24 06:08:32 2003 +0000
+++ b/lisp/emerge.el	Mon Mar 24 08:52:20 2003 +0000
@@ -3106,18 +3106,21 @@
 	(setq name "Buffer has no file name."))
     (save-window-excursion
       (select-window (minibuffer-window))
-      (erase-buffer)
-      (insert name)
-      (if (not (pos-visible-in-window-p))
-	  (let ((echo-keystrokes 0))
-	    (while (and (not (pos-visible-in-window-p))
-			(> (1- (frame-height)) (window-height)))
-	      (enlarge-window 1))
-	    (let ((c (read-event)))
+      (unwind-protect
+	  (progn
+	    (erase-buffer)
+	    (insert name)
+	    (if (not (pos-visible-in-window-p))
+		(while (and (not (pos-visible-in-window-p))
+			    (> (1- (frame-height)) (window-height)))
+		  (enlarge-window 1)))
+	    (let* ((echo-keystrokes 0)
+		   (c (read-event)))
 	      (if (not (eq c 32))
-		  (setq unread-command-events (list c)))))))))
+		  (setq unread-command-events (list c)))))
+	(erase-buffer)))))
 
-;; Improved auto-save file names.
+;; Improved auto-save gfile names.
 ;; This function fixes many problems with the standard auto-save file names:
 ;; Auto-save files for non-file buffers get put in the default directory
 ;; for the buffer, whether that makes sense or not.