X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Finput-method-motif.c;h=f51e4e71f8baf914b334d78bc870416fce67e3b4;hb=1532bc4f9d544bee853b875b78703699bee95fdc;hp=a05e05569cfb9348360c8bdbc1f9d3f7fa561957;hpb=716cfba952c1dc0d2cf5c968971f3780ba728a89;p=chise%2Fxemacs-chise.git.1

diff --git a/src/input-method-motif.c b/src/input-method-motif.c
index a05e055..f51e4e7 100644
--- a/src/input-method-motif.c
+++ b/src/input-method-motif.c
@@ -94,6 +94,13 @@ XIM_init_device (struct device *d)
   /* Nothing to do */
 }
 
+/* Callback for the deleting frame. */
+static void
+XIM_delete_frame (Widget w, XtPointer client_data, XtPointer call_data)
+{
+  XmImUnregister ((Widget) client_data);
+}
+
 void
 XIM_init_frame (struct frame *f)
 {
@@ -152,6 +159,8 @@ XIM_init_frame (struct frame *f)
 		   NULL);
 
   XmFontListEntryFree (&fontlistEntry);
+
+  XtAddCallback (w, XmNdestroyCallback, XIM_delete_frame, (XtPointer) w);
 }
 
 void