freebsd-ports/chinese/emacs20/files/emacs20-xim-20000713.diff

diff -Naurw emacs-20.7.orig/src/xfns.c emacs-20.7/src/xfns.c
--- emacs-20.7.orig/src/xfns.c	Thu Jul  1 09:09:39 1999
+++ emacs-20.7/src/xfns.c	Sat Jun 17 00:18:36 2000
@@ -2719,6 +2719,259 @@
 }
 #endif
 
+/* Support routines for XIC (X Input Context). */
+#ifdef HAVE_X_I18N
+
+/* Create X fontset. */
+static XFontSet
+xic_create_xfontset (f, base_fontname)
+     struct frame *f;
+     char *base_fontname;
+{
+  XFontSet xfs;
+  char **missing_list;
+  int missing_count;
+  char *def_string;
+  
+  xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
+			base_fontname, &missing_list,
+			&missing_count, &def_string);
+  if (missing_list)
+    XFreeStringList (missing_list);
+  /* Don't need to free def_string. */
+
+  return xfs;
+}
+
+/* Supported XIM styles, ordered in preferences. */
+static XIMStyle supported_styles[] =
+{
+  XIMPreeditPosition | XIMStatusArea,
+  XIMPreeditPosition | XIMStatusNothing,
+  XIMPreeditPosition | XIMStatusNone,
+  XIMPreeditNothing | XIMStatusArea,
+  XIMPreeditNothing | XIMStatusNothing,
+  XIMPreeditNothing | XIMStatusNone,
+  XIMPreeditNone | XIMStatusArea,
+  XIMPreeditNone | XIMStatusNothing,
+  XIMPreeditNone | XIMStatusNone,
+  0,
+};
+
+/* Choose the best style, given:
+ * - user preferences (already checked to be supported by Emacs)
+ * - styles supported by the input method */
+#define DEFAULTStyle  (XIMPreeditNothing | XIMStatusNothing)
+static XIMStyle
+best_style (user, xim)
+     XIMStyles *user;
+     XIMStyles *xim;
+{
+  int i, j;
+
+  for (i = 0; i < user->count_styles; i++)
+    {
+      for (j = 0; j < xim->count_styles; j++)
+        {
+          if (user->supported_styles[i] == xim->supported_styles[j])
+            return user->supported_styles[i];
+        }
+    }
+  return DEFAULTStyle; /* Default Style */
+}
+
+/* Create XIC for a frame. */
+void
+xic_create_frame (f)
+     struct frame *f;
+{
+#ifndef X_I18N_INHIBITED
+  XIM xim;
+  XIC xic = NULL;
+  XFontSet xfs = NULL;
+  static XIMStyle xic_style;
+
+  if (FRAME_XIC (f))
+    return;
+  xim = FRAME_X_XIM (f);
+
+  if (xim)
+    {
+      XRectangle s_area = {0, 0, 1, 1};
+      XPoint spot = {0, 1};
+      XVaNestedList preedit_attr;
+      XVaNestedList status_attr;
+      static const char DEFAULT_FONT[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
+      char *base_fontname;
+      int fontset;
+
+      /* Create X fontset. */
+      fontset = FRAME_FONTSET (f);
+      if (fontset < 0)
+	base_fontname = DEFAULT_FONT;
+      else
+	{
+	  struct fontset_info *fontsetp;
+	  int len = 0;
+	  int i;
+	  
+	  fontsetp = FRAME_FONTSET_DATA (f)->fontset_table[fontset];
+	  for (i = 0; i <= MAX_CHARSET; i++)
+	    if (fontsetp->fontname[i])
+	      len += strlen (fontsetp->fontname[i]) + 1;
+	  base_fontname = alloca (len);
+	  strcpy (base_fontname, fontsetp->fontname[CHARSET_ASCII]);
+	  for (i = MIN_CHARSET_OFFICIAL_DIMENSION1; i <= MAX_CHARSET; i++)
+	    if (fontsetp->fontname[i])
+	      {
+		strcat (base_fontname, ",");
+		strcat (base_fontname, fontsetp->fontname[i]);
+	      }
+	}
+      xfs = xic_create_xfontset (f, base_fontname);
+
+      /* Determine XIC style. */
+      if (xic_style == 0)
+	{
+	  XIMStyles supported_list;
+	  supported_list.count_styles = sizeof (supported_styles) / sizeof (supported_styles[0]);
+	  supported_list.supported_styles = supported_styles;
+	  xic_style = best_style (&supported_list, FRAME_X_XIM_STYLES (f));
+	}
+
+      preedit_attr = XVaCreateNestedList (0,
+					  XNFontSet, xfs,
+					  XNForeground, FRAME_FOREGROUND_PIXEL (f),
+					  XNBackground, FRAME_BACKGROUND_PIXEL (f),
+					  xic_style & XIMPreeditPosition ? XNSpotLocation : NULL, &spot,
+					  NULL);
+      status_attr = XVaCreateNestedList (0,
+					 XNArea,         &s_area,
+					 XNFontSet,      xfs,
+					 XNForeground, FRAME_FOREGROUND_PIXEL (f),
+					 XNBackground, FRAME_BACKGROUND_PIXEL (f),
+					 NULL);
+
+      xic = XCreateIC (xim,
+		       XNInputStyle,   xic_style,
+		       XNClientWindow, FRAME_X_WINDOW(f),
+		       XNFocusWindow,  FRAME_X_WINDOW(f),
+		       XNStatusAttributes,  status_attr,
+		       XNPreeditAttributes, preedit_attr,
+		       NULL);
+      XFree (preedit_attr);
+      XFree (status_attr);
+    }
+  
+  FRAME_XIC (f) = xic;
+  FRAME_XIC_STYLE (f) = xic_style;
+  FRAME_XIC_FONTSET (f) = xfs;
+#else /* X_I18N_INHIBITED */
+  FRAME_XIC (f) = NULL;
+  FRAME_XIC_STYLE (f) = 0;
+  FRAME_XIC_FONTSET (f) = NULL;
+#endif /* X_I18N_INHIBITED */
+}
+
+/* Destroy XIC for a frame. */
+void
+xic_destroy_frame (f)
+     struct frame *f;
+{
+  if (FRAME_XIC (f) == NULL)
+    return;
+  
+  XDestroyIC (FRAME_XIC (f));
+  if (FRAME_XIC_FONTSET (f))
+    XFreeFontSet (FRAME_X_DISPLAY (f), FRAME_XIC_FONTSET (f));
+
+  FRAME_XIC (f) = NULL;
+  FRAME_XIC_FONTSET (f) = NULL;
+}
+
+/* Place preedit area for XIC in cursor position. */
+void
+xic_set_preeditarea (f, x, y)
+     struct frame *f;
+     int x, y;
+{
+  XVaNestedList attr;
+  XPoint spot;
+      
+  spot.x = CHAR_TO_PIXEL_COL (f, x);
+  spot.y = CHAR_TO_PIXEL_ROW (f, y) + FONT_BASE (FRAME_FONT (f));
+  attr = XVaCreateNestedList (0,
+			      XNSpotLocation, &spot,
+			      NULL);
+  XSetICValues (FRAME_XIC (f), XNPreeditAttributes, attr, NULL);
+  XFree (attr);
+}
+
+/* Place status area for XIC in bottom right corner. */
+void
+xic_set_statusarea (f)
+     struct frame *f;
+{
+  XIC xic = FRAME_XIC (f);
+  XVaNestedList attr;
+  XRectangle area;
+  XRectangle *needed;
+
+  /* Basically, I follow the way of XEmacs20.4. */
+  /* Negotiate geometry of status area. */
+  /* If input method has existing status area, use its current size */
+  area.x = area.y = area.width = area.height = 0;
+  attr = XVaCreateNestedList (0, XNAreaNeeded, &area, NULL);
+  XSetICValues (xic, XNStatusAttributes, attr, NULL);
+  XFree (attr);
+  
+  attr = XVaCreateNestedList (0, XNAreaNeeded, &needed, NULL);
+  XGetICValues (xic, XNStatusAttributes, attr, NULL);
+  XFree (attr);
+
+  if (needed->width == 0) /* Use XNArea instead of XNAreaNeeded */
+    {
+      attr = XVaCreateNestedList (0, XNArea, &needed, NULL);
+      XGetICValues (xic, XNStatusAttributes, attr, NULL);
+      XFree (attr);
+    }
+
+  area.width  = needed->width;
+  area.height = needed->height;
+  area.x = PIXEL_WIDTH (f) - area.width - FRAME_INTERNAL_BORDER_WIDTH (f);
+  area.y = PIXEL_HEIGHT (f) - area.height - FRAME_MENUBAR_HEIGHT (f) - FRAME_INTERNAL_BORDER_WIDTH (f);
+  XFree(needed);
+
+  attr = XVaCreateNestedList (0, XNArea, &area, NULL);
+  XSetICValues(xic, XNStatusAttributes, attr, NULL);
+  XFree(attr);
+}
+
+/* Set X fontset for XIC, called when a new Emacs fontset is chosen. */
+void
+xic_set_xfontset (f, base_fontname)
+     struct frame *f;
+     char *base_fontname;
+{
+  XVaNestedList attr;
+  XFontSet xfs;
+
+  xfs = xic_create_xfontset (f, base_fontname);
+
+  attr = XVaCreateNestedList (0, XNFontSet, xfs, NULL);
+  if (FRAME_XIC_STYLE (f) & XIMPreeditPosition)
+    XSetICValues (FRAME_XIC (f), XNPreeditAttributes, attr, NULL);
+  if (FRAME_XIC_STYLE (f) & XIMStatusArea)
+    XSetICValues (FRAME_XIC (f), XNStatusAttributes, attr, NULL);
+  XFree (attr);
+  
+  if (FRAME_XIC_FONTSET (f))
+    XFreeFontSet (FRAME_X_DISPLAY (f), FRAME_XIC_FONTSET (f));
+  FRAME_XIC_FONTSET (f) = xfs;
+}  
+#endif /* HAVE_X_I18N */
+
+
 #ifdef USE_X_TOOLKIT
 
 /* Create and set up the X widget for frame F.  */
@@ -2876,34 +3129,8 @@
   XSetClassHint (FRAME_X_DISPLAY (f), XtWindow (shell_widget), &class_hints);
 
 #ifdef HAVE_X_I18N
-#ifndef X_I18N_INHIBITED
-  { 
-    XIM xim;
-    XIC xic = NULL;
-
-    xim = XOpenIM (FRAME_X_DISPLAY (f), NULL, NULL, NULL);
-
-    if (xim)
-      {
-	xic = XCreateIC (xim,  
-			 XNInputStyle,   XIMPreeditNothing | XIMStatusNothing,
-			 XNClientWindow, FRAME_X_WINDOW(f),
-			 XNFocusWindow,  FRAME_X_WINDOW(f),
-			 NULL);
-
-	if (xic == 0)
-	  {
-	    XCloseIM (xim);
-	    xim = NULL;
-	  }
-      }
-    FRAME_XIM (f) = xim;
-    FRAME_XIC (f) = xic;
-  }
-#else /* X_I18N_INHIBITED */
-  FRAME_XIM (f) = 0;
-  FRAME_XIC (f) = 0;
-#endif /* X_I18N_INHIBITED */
+  FRAME_XIC (f) = NULL;
+  xic_create_frame (f);
 #endif /* HAVE_X_I18N */
 
   f->output_data.x->wm_hints.input = True;
@@ -2928,6 +3155,16 @@
 
  /* Make all the standard events reach the Emacs frame.  */
   attributes.event_mask = STANDARD_EVENT_SET;
+#ifdef HAVE_X_I18N
+  if (FRAME_XIC (f))
+    {
+      /* XIM server might require some X events. */
+      unsigned long fevent = NoEventMask;
+
+      XGetICValues(FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
+      attributes.event_mask |= fevent;
+    }
+#endif /* HAVE_X_I18N */
   attribute_mask = CWEventMask;
   XChangeWindowAttributes (XtDisplay (shell_widget), XtWindow (shell_widget),
 			   attribute_mask, &attributes);
@@ -2998,38 +3235,21 @@
 		     InputOutput, /* class */
 		     FRAME_X_DISPLAY_INFO (f)->visual,
 		     attribute_mask, &attributes);
-#ifdef HAVE_X_I18N
-#ifndef X_I18N_INHIBITED
-  { 
-    XIM xim;
-    XIC xic = NULL;
 
-    xim = XOpenIM (FRAME_X_DISPLAY(f), NULL, NULL, NULL);
-
-    if (xim)
-      {
-	xic = XCreateIC (xim,  
-			 XNInputStyle,   XIMPreeditNothing | XIMStatusNothing,
-			 XNClientWindow, FRAME_X_WINDOW(f),
-			 XNFocusWindow,  FRAME_X_WINDOW(f),
-			 NULL);
-
-	if (!xic)
+#ifdef HAVE_X_I18N
+  xic_create_frame (f);
+  if (FRAME_XIC (f))
 	  {
-	    XCloseIM (xim);
-	    xim = NULL;
-	  }
-      }
+      /* XIM server might require some X events. */
+      unsigned long fevent = NoEventMask;
 
-    FRAME_XIM (f) = xim;
-    FRAME_XIC (f) = xic;
+      XGetICValues(FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
+      attributes.event_mask |= fevent;
+      attribute_mask = CWEventMask;
+      XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
+			       attribute_mask, &attributes);
   }
-#else /* X_I18N_INHIBITED */
-  FRAME_XIM (f) = 0;
-  FRAME_XIC (f) = 0;
-#endif /* X_I18N_INHIBITED */
 #endif /* HAVE_X_I18N */
-
   validate_x_resource_name ();
 
   class_hints.res_name = (char *) XSTRING (Vx_resource_name)->data;
diff -Naurw emacs-20.7.orig/src/xterm.c emacs-20.7/src/xterm.c
--- emacs-20.7.orig/src/xterm.c	Mon Aug  2 09:16:43 1999
+++ emacs-20.7/src/xterm.c	Wed Jul 12 23:28:40 2000
@@ -3791,9 +3791,6 @@
   int prefix;
   Lisp_Object part;
   struct x_display_info *dpyinfo;
-#ifdef HAVE_X_I18N
-  Status status_return;
-#endif
 
   if (interrupt_input_blocked)
     {
@@ -3862,7 +3859,7 @@
 						      event.xclient.window);
 	    /* The necessity of the following line took me
 	       a full work-day to decipher from the docs!!  */
-	    if (f1 != 0 && FRAME_XIC (f1) && XFilterEvent (&event, None))
+	    if (XFilterEvent (&event, f1 ? FRAME_X_WINDOW(f1) : None))
 	      break;
 	  }
 #endif
@@ -4235,18 +4232,30 @@
 #ifdef HAVE_X_I18N
 		  if (FRAME_XIC (f))
 		    {
-		      /* The necessity of the following line took me
-			 a full work-day to decipher from the docs!!  */
-		      if (XFilterEvent (&event, None))
-			break;
+		      unsigned char *copy_bufptr = copy_buffer;
+		      int copy_bufsiz = sizeof (copy_buffer);
+		      Status status_return;
+
+		      nbytes = XmbLookupString (FRAME_XIC (f),
+						&event.xkey, copy_bufptr,
+						copy_bufsiz, &keysym,
+						&status_return);
+		      if (status_return == XBufferOverflow)
+			{
+			  copy_bufsiz = nbytes + 1;
+			  copy_bufptr = (char *) alloca (copy_bufsiz);
 		      nbytes = XmbLookupString (FRAME_XIC (f),
-						&event.xkey, copy_buffer,
-						80, &keysym,
+						    &event.xkey, copy_bufptr,
+						    copy_bufsiz, &keysym,
 						&status_return);
+			}
 		      if (status_return == XLookupNone)
 			break;
 		      else if (status_return == XLookupChars)
+			{
 			keysym = NoSymbol;
+			  modifiers = 0;
+			}
 		      else if (status_return != XLookupKeySym
 			       && status_return != XLookupBoth)
 			abort ();
@@ -4378,7 +4387,10 @@
 		  else
 		    abort ();
 		}
-	      goto OTHER;
+	      break;
+
+	    case KeyRelease:
+	      break;
 
 	      /* Here's a possible interpretation of the whole
 		 FocusIn-EnterNotify FocusOut-LeaveNotify mess.  If you get a
@@ -4515,6 +4527,13 @@
 		  x_real_positions (f, &f->output_data.x->left_pos,
 				    &f->output_data.x->top_pos);
 
+#ifdef HAVE_X_I18N
+		  if (FRAME_XIC (f) && (FRAME_XIC_STYLE (f) & XIMStatusArea))
+		    {
+		      xic_set_statusarea (f);
+		    }
+#endif
+
 		  if (f->output_data.x->parent_desc != FRAME_X_DISPLAY_INFO (f)->root_window)
 		    {
 		      /* Since the WM decorations come below top_pos now,
@@ -4992,6 +5011,13 @@
     /* Those are the only two we have implemented!  */
     abort ();
 
+#ifdef HAVE_X_I18N
+  if (FRAME_XIC (f) && (FRAME_XIC_STYLE (f) & XIMPreeditPosition))
+    {
+      xic_set_preeditarea (f, x, y);
+    }
+#endif
+  
   UNBLOCK_INPUT;
 }
 
@@ -5463,9 +5489,176 @@
   FS_LOAD_FONT (f, FRAME_X_FONT_TABLE (f),
 		CHARSET_ASCII, fontsetp->fontname[CHARSET_ASCII], fontset);
 
+#ifdef HAVE_X_I18N
+  if (FRAME_XIC (f)
+      && (FRAME_XIC_STYLE (f) & (XIMPreeditPosition | XIMStatusArea)))
+    {
+      xic_set_xfontset (f, fontsetp->fontname[CHARSET_ASCII]);
+    }
+#endif /* HAVE_X_I18N */
   return build_string (fontsetname);
 }
 
+
+/* Support routines for XIM (X Input Method). */
+#ifdef HAVE_X_I18N
+
+#ifdef HAVE_X11R6
+/* XIM destroy callback function,
+   which is called whenever the connected XIM server dies.
+   Clear XIM information. */
+static void
+xim_destroy_callback (xim, client_data, call_data)
+     XIM xim;
+     XPointer client_data;
+     XPointer call_data;
+{
+  struct x_display_info *dpyinfo = (struct x_display_info *)client_data;
+  Lisp_Object frame, tail;
+  
+  BLOCK_INPUT;
+  /* Don't need to call XDestroyIC. */
+  FOR_EACH_FRAME (tail, frame)
+    if (FRAME_X_DISPLAY_INFO (XFRAME (frame)) == dpyinfo)
+      {
+	FRAME_XIC (XFRAME (frame)) = NULL;
+	if (FRAME_XIC_FONTSET (XFRAME (frame)))
+	  {
+	    XFreeFontSet (FRAME_X_DISPLAY (XFRAME (frame)), FRAME_XIC_FONTSET (XFRAME (frame)));
+	    FRAME_XIC_FONTSET (XFRAME (frame)) = NULL;
+	  }
+      }
+  
+  /* Don't need to call XCloseIM. */
+  dpyinfo->xim = NULL;
+  XFree (dpyinfo->xim_styles);
+  UNBLOCK_INPUT;
+}
+#endif /* HAVE_X11R6 */
+
+/* Open the connection with XIM server. */
+static void
+xim_open_dpy (dpyinfo, resource_name)
+     struct x_display_info *dpyinfo;
+     char *resource_name;
+{
+  XIM xim;
+
+  xim = XOpenIM (dpyinfo->display, dpyinfo->xrdb, resource_name, EMACS_CLASS);
+  dpyinfo->xim = xim;
+
+  if (xim)
+    {
+      XIMValuesList *xim_values_list;
+#ifdef HAVE_X11R6
+      XIMCallback destroy;
+#endif
+      
+      /* Get supported styles and XIM values */
+      XGetIMValues (xim,
+		    XNQueryInputStyle, &dpyinfo->xim_styles,
+		    NULL);
+#ifdef HAVE_X11R6
+      destroy.callback = xim_destroy_callback;
+      destroy.client_data = (XPointer)dpyinfo;
+      XSetIMValues (xim, XNDestroyCallback, &destroy, NULL);
+#endif
+    }
+}
+
+#ifdef HAVE_X11R6
+struct xim_inst_t
+{
+  struct x_display_info *dpyinfo;
+  char *resource_name;
+};
+
+/* XIM instantiate callback function,
+   which is called whenever an XIM server is available. */
+static void
+xim_instantiate_callback(display, client_data, call_data)
+     Display *display;
+     XPointer client_data;
+     XPointer call_data;
+{
+  struct xim_inst_t *xim_inst = (struct xim_inst_t *)client_data;
+  struct x_display_info *dpyinfo = xim_inst->dpyinfo;
+
+  /* We don't support multiple XIM connections. */
+  if (dpyinfo->xim)
+    return;
+  
+  xim_open_dpy (dpyinfo, xim_inst->resource_name);
+
+  /* Create XIC for the existing frames on the same display,
+     as long as they have no XIC. */
+  if (dpyinfo->xim && dpyinfo->reference_count > 0)
+    {
+      Lisp_Object tail, frame;
+
+      BLOCK_INPUT;
+      FOR_EACH_FRAME (tail, frame)
+	if (FRAME_X_DISPLAY_INFO (XFRAME (frame)) == xim_inst->dpyinfo)
+	  if (FRAME_XIC (XFRAME (frame)) == NULL)
+	    {
+	      xic_create_frame (XFRAME (frame));
+	      if (FRAME_XIC_STYLE (XFRAME (frame)) & XIMStatusArea)
+		xic_set_statusarea (XFRAME (frame));
+	      if (FRAME_XIC_STYLE (XFRAME (frame)) & XIMPreeditPosition)
+		xic_set_preeditarea (XFRAME (frame),
+				     FRAME_CURSOR_X (XFRAME (frame)),
+				     FRAME_CURSOR_Y (XFRAME (frame)));
+	    }
+      UNBLOCK_INPUT;
+    }
+}
+#endif /* HAVE_X11R6 */
+
+/* It's dependent on X11R5 or X11R6 to open the connection with XIM server.
+   On X11R5, open the connection only at the first time.
+   On X11R6, open the connection in XIM instantiate callback function. */
+static void
+xim_initialize (dpyinfo, resource_name)
+     struct x_display_info *dpyinfo;
+     char *resource_name;
+{
+#ifdef HAVE_X11R6
+  struct xim_inst_t *xim_inst;
+  int len;
+  
+  dpyinfo->xim = NULL;
+  xim_inst = (struct xim_inst_t *) xmalloc (sizeof (struct xim_inst_t));
+  xim_inst->dpyinfo = dpyinfo;
+  len = strlen (resource_name);
+  xim_inst->resource_name = (char *) xmalloc (len + 1);
+  bcopy (resource_name, xim_inst->resource_name, len + 1);
+  XRegisterIMInstantiateCallback (dpyinfo->display, dpyinfo->xrdb,
+				  resource_name, EMACS_CLASS,
+				  xim_instantiate_callback, (XPointer)xim_inst);
+#else /* not HAVE_X11R6 */
+  dpyinfo->xim = NULL;
+  xim_open_dpy (dpyinfo, resource_name);
+#endif /* not HAVE_X11R6 */
+}
+
+/* Close the connection with XIM server. */
+static void
+xim_close_dpy (dpyinfo)
+     struct x_display_info *dpyinfo;
+{
+#ifdef HAVE_X11R6
+  XUnregisterIMInstantiateCallback(dpyinfo->display, dpyinfo->xrdb,
+				   NULL, EMACS_CLASS,
+				   xim_instantiate_callback, NULL);
+#endif /* HAVE_X11R6 */
+  XCloseIM (dpyinfo->xim);
+  dpyinfo->xim = NULL;
+
+  XFree (dpyinfo->xim_styles);
+}
+#endif /* HAVE_X_I18N */
+
+
 /* Calculate the absolute position in frame F
    from its current recorded position values and gravity.  */
 
@@ -6175,15 +6368,9 @@
       if (f->output_data.x->icon_desc != 0)
 	XDestroyWindow (FRAME_X_DISPLAY (f), f->output_data.x->icon_desc);
 #ifdef HAVE_X_I18N
-      if (FRAME_XIM (f))
+      if (FRAME_XIC (f))
 	{
-	  XDestroyIC (FRAME_XIC (f));
-#if ! defined (SOLARIS2) || defined (HAVE_X11R6)
-	  /* This line causes crashes on Solaris with Openwin,
-	     due to an apparent bug in XCloseIM.
-	     X11R6 seems not to have the bug.  */
-	  XCloseIM (FRAME_XIM (f));
-#endif
+	  xic_destroy_frame (f);
 	}
 #endif
       XDestroyWindow (FRAME_X_DISPLAY (f), f->output_data.x->window_desc);
@@ -7335,6 +7522,10 @@
 				     1);
   }
 
+#ifdef HAVE_X_I18N
+  xim_initialize (dpyinfo, resource_name);
+#endif
+  
 #ifdef subprocesses
   /* This is only needed for distinguishing keyboard and process input.  */
   if (connection != 0)
@@ -7440,6 +7631,11 @@
   if (--dpyinfo->kboard->reference_count == 0)
     delete_kboard (dpyinfo->kboard);
 #endif
+#ifdef HAVE_X_I18N
+  if (dpyinfo->xim)
+    xim_close_dpy (dpyinfo);
+#endif
+  
   xfree (dpyinfo->font_table);
   xfree (dpyinfo->x_id_name);
   xfree (dpyinfo);
diff -Naurw emacs-20.7.orig/src/xterm.h emacs-20.7/src/xterm.h
--- emacs-20.7.orig/src/xterm.h	Sun Aug 16 07:58:10 1998
+++ emacs-20.7/src/xterm.h	Sat Jun 17 00:18:37 2000
@@ -297,6 +297,12 @@
   /* The null pixel used for filling a character background with
      background color of a gc.  */
   Pixmap null_pixel;
+
+#ifdef HAVE_X_I18N
+  /* XIM(X Input method) */
+  XIM xim;
+  XIMStyles *xim_styles;
+#endif
 };
 
 /* This is a chain of structures for all the X displays currently in use.  */
@@ -492,10 +498,11 @@
   char has_been_visible;
 
 #ifdef HAVE_X_I18N
-  /* Input method. */
-  XIM xim;
+  /* XIM(X Input method) */
   /* Input context (currently, this means Compose key handler setup).  */
   XIC xic;
+  XIMStyle xic_style;
+  XFontSet xic_xfs;
 #endif
 };
 
@@ -526,6 +533,7 @@
 #define FRAME_FONT(f) ((f)->output_data.x->font)
 #define FRAME_FONTSET(f) ((f)->output_data.x->fontset)
 #define FRAME_INTERNAL_BORDER_WIDTH(f) ((f)->output_data.x->internal_border_width)
+#define FRAME_MENUBAR_HEIGHT(f) ((f)->output_data.x->menubar_height)
 #define FRAME_LINE_HEIGHT(f) ((f)->output_data.x->line_height)
 
 /* This gives the x_display_info structure for the display F is on.  */
@@ -546,8 +554,11 @@
 
 #define FRAME_DESIRED_CURSOR(f) ((f)->output_data.x->desired_cursor)
 
-#define FRAME_XIM(f) ((f)->output_data.x->xim)
+#define FRAME_X_XIM(f) (FRAME_X_DISPLAY_INFO (f)->xim)
+#define FRAME_X_XIM_STYLES(f) (FRAME_X_DISPLAY_INFO (f)->xim_styles)
 #define FRAME_XIC(f) ((f)->output_data.x->xic)
+#define FRAME_XIC_STYLE(f) ((f)->output_data.x->xic_style)
+#define FRAME_XIC_FONTSET(f) ((f)->output_data.x->xic_xfs)
 
 /* X-specific scroll bar stuff.  */
 
@@ -877,6 +888,11 @@
 extern void x_set_border_pixel P_ ((struct frame *, int));
 extern void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
 extern void x_implicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
+extern void xic_create_frame P_ ((struct frame *));
+extern void xic_destroy_frame P_ ((struct frame *));
+extern void xic_set_preeditarea P_ ((struct frame *, int, int));
+extern void xic_set_statusarea P_ ((struct frame *));
+extern void xic_set_xfontset P_ ((struct frame *, char *));
 extern int x_pixel_width P_ ((struct frame *));
 extern int x_pixel_height P_ ((struct frame *));
 extern int x_char_width P_ ((struct frame *));