# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768460086 0
# Node ID fbea5637a4b4a559be811dc1265f66c7b8a1c414
# Parent  33e5afbb62bf5860908943ebb7ebe704e5d55105
(x_set_window_size) [USE_X_TOOLKIT]:
Preserve the main widget's x and y position.

diff -r 33e5afbb62bf -r fbea5637a4b4 src/xterm.c
--- a/src/xterm.c	Mon May 09 03:30:55 1994 +0000
+++ b/src/xterm.c	Mon May 09 05:08:06 1994 +0000
@@ -5244,7 +5244,17 @@
 
 #ifdef USE_X_TOOLKIT
   BLOCK_INPUT;
-  EmacsFrameSetCharSize (f->display.x->edit_widget, cols, rows);
+  {
+    /* The x and y position of the widget is clobbered by the
+       call to XtSetValues within EmacsFrameSetCharSize.
+       This is a real kludge, but I don't understand Xt so I can't
+       figure out a correct fix.  Can anyone else tell me? -- rms.  */
+    int xpos = f->display.x->widget->core.x;
+    int ypos = f->display.x->widget->core.y;
+    EmacsFrameSetCharSize (f->display.x->edit_widget, cols, rows);
+    f->display.x->widget->core.x = xpos;
+    f->display.x->widget->core.y = ypos;
+  }
   UNBLOCK_INPUT;
 
 #else /* not USE_X_TOOLKIT */