(EmacsFrameDestroy): Block and unblock input.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/widget.c b/src/widget.c
index 101ca4f61f5..32daf8ffc27 100644
--- a/src/widget.c
+++ b/src/widget.c
@@ -27,7 +27,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "frame.h"
 
 #include "dispextern.h"
-
+#include "blockinput.h"
 
 #include <X11/StringDefs.h>
 #include <X11/IntrinsicP.h>
@@ -744,10 +744,12 @@ EmacsFrameDestroy (widget)
      been freed. */
   free_frame_faces (s);
 
+  BLOCK_INPUT;
   /* need to be careful that the face-freeing code doesn't free these too */
   XFreeGC (XtDisplay (widget), s->display.x->normal_gc);
   XFreeGC (XtDisplay (widget), s->display.x->reverse_gc);
   XFreeGC (XtDisplay (widget), s->display.x->cursor_gc);
+  UNBLOCK_INPUT;
 }
 
 void