From ba6f3859e02ec8ff4b2d7ba179efa1ee3fb0243c Mon Sep 17 00:00:00 2001
From: Jason Rumney
Date: Fri, 10 Jun 2005 23:03:28 +0000
Subject: (Fx_file_dialog): Unblock input before falling back to minibuffer.

---
 src/macfns.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/macfns.c')

diff --git a/src/macfns.c b/src/macfns.c
index d0dd9b9c072..b26baf3eaf7 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -4375,14 +4375,15 @@ If ONLY-DIR-P is non-nil, the user can only select directories.  */)
 	  break;
 	}
       NavDialogDispose(dialogRef);
+      UNBLOCK_INPUT;
     }
     else {
+      UNBLOCK_INPUT;
       /* Fall back on minibuffer if there was a problem */
       file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
 			       dir, mustmatch, dir, Qfile_name_history,
 			       default_filename, Qnil);
     }
-    UNBLOCK_INPUT;
   }
 
   UNGCPRO;
-- 
cgit v1.2.1