From: Jan Djärv <jan.h.d@swipnet.se>
Date: Sat, 13 Nov 2004 23:17:55 +0000 (+0000)
Subject: Add BLOCK_INPUT in pop_down_file_dialog.
X-Git-Tag: ttn-vms-21-2-B4~3951
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd2531db72eaf9b3a704bda141f9ced898040ce2;p=emacs.git

Add BLOCK_INPUT in pop_down_file_dialog.
---

diff --git a/src/gtkutil.c b/src/gtkutil.c
index 90cee0c7272..79333782229 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -1150,7 +1150,9 @@ pop_down_file_dialog (arg)
      Lisp_Object arg;
 {
   struct Lisp_Save_Value *p = XSAVE_VALUE (arg);
+  BLOCK_INPUT;
   gtk_widget_destroy (GTK_WIDGET (p->pointer));
+  UNBLOCK_INPUT;
   return Qnil;
 }