XEmacs 21.4.4 "Artificial Intelligence".

[chise/xemacs-chise.git.1] / src / input-method-motif.c

diff --git a/src/input-method-motif.c b/src/input-method-motif.c
index a05e055..f51e4e7 100644 (file)
--- 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