HCoop / bpt / emacs.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Fix glitches in previous change.
[bpt/emacs.git] / src / xterm.c
diff --git a/src/xterm.c b/src/xterm.c
index cbf30e3..474082d 100644 (file)
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -25,6 +25,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    
 */
 
    
 */
 
+/* Xt features made by Fred Pierresteguy.  */
+
 #define NEW_SELECTIONS
 
 /* On 4.3 these lose if they come after xterm.h.  */
 #define NEW_SELECTIONS
 
 /* On 4.3 these lose if they come after xterm.h.  */
@@ -33,7 +35,11 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include <stdio.h>
 #include <signal.h>
 
 #include <stdio.h>
 #include <signal.h>
 
-#include "config.h"
+#include <config.h>
+
+/* Need syssignal.h for various externs and definitions that may be required
+   by some configurations for calls to signal later in this source file.  */
+#include "syssignal.h"
 
 #ifdef HAVE_X_WINDOWS
 
 
 #ifdef HAVE_X_WINDOWS
 
@@ -86,6 +92,16 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "buffer.h"
 #include "window.h"
 
 #include "buffer.h"
 #include "window.h"
 
+#ifdef USE_X_TOOLKIT
+extern XtAppContext Xt_app_con;
+extern Widget Xt_app_shell;
+extern void free_frame_menubar ();
+#endif /* USE_X_TOOLKIT */
+
+#ifndef USE_X_TOOLKIT
+#define x_any_window_to_frame x_window_to_frame
+#endif
+
 #ifdef HAVE_X11
 #define XMapWindow XMapRaised          /* Raise them when mapping. */
 #else /* ! defined (HAVE_X11) */
 #ifdef HAVE_X11
 #define XMapWindow XMapRaised          /* Raise them when mapping. */
 #else /* ! defined (HAVE_X11) */
@@ -119,7 +135,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 #define min(a,b) ((a)<(b) ? (a) : (b))
 #define max(a,b) ((a)>(b) ? (a) : (b))
 
 #define min(a,b) ((a)<(b) ? (a) : (b))
 #define max(a,b) ((a)>(b) ? (a) : (b))
-
+\f
 /* Nonzero means we must reprint all windows
    because 1) we received an ExposeWindow event
    or 2) we received too many ExposeRegion events to record.
 /* Nonzero means we must reprint all windows
    because 1) we received an ExposeWindow event
    or 2) we received too many ExposeRegion events to record.
@@ -137,7 +153,7 @@ static int expose_all_icons;
 
 static struct event_queue x_expose_queue;
 
 
 static struct event_queue x_expose_queue;
 
-/* ButtonPressed and ButtonReleased events, when received,
+/* ButtonPress and ButtonReleased events, when received,
    are copied into this queue for later processing.  */
 
 struct event_queue x_mouse_queue;
    are copied into this queue for later processing.  */
 
 struct event_queue x_mouse_queue;
@@ -215,6 +231,50 @@ static int highlight;
 static int curs_x;
 static int curs_y;
 
 static int curs_x;
 static int curs_y;
 
+/* Mouse movement.
+
+   In order to avoid asking for motion events and then throwing most
+   of them away or busy-polling the server for mouse positions, we ask
+   the server for pointer motion hints.  This means that we get only
+   one event per group of mouse movements.  "Groups" are delimited by
+   other kinds of events (focus changes and button clicks, for
+   example), or by XQueryPointer calls; when one of these happens, we
+   get another MotionNotify event the next time the mouse moves.  This
+   is at least as efficient as getting motion events when mouse
+   tracking is on, and I suspect only negligibly worse when tracking
+   is off.
+
+   The silly O'Reilly & Associates Nutshell guides barely document
+   pointer motion hints at all (I think you have to infer how they
+   work from an example), and the description of XQueryPointer doesn't
+   mention that calling it causes you to get another motion hint from
+   the server, which is very important.  */
+
+/* Where the mouse was last time we reported a mouse event.  */
+static FRAME_PTR last_mouse_frame;
+static XRectangle last_mouse_glyph;
+
+/* The scroll bar in which the last X motion event occurred.
+
+   If the last X motion event occurred in a scroll bar, we set this
+   so XTmouse_position can know whether to report a scroll bar motion or
+   an ordinary motion.
+
+   If the last X motion event didn't occur in a scroll bar, we set this
+   to Qnil, to tell XTmouse_position to return an ordinary motion event.  */
+static Lisp_Object last_mouse_scroll_bar;
+
+/* Record which buttons are currently pressed. */
+unsigned int x_mouse_grabbed;
+
+/* This is a hack.  We would really prefer that XTmouse_position would
+   return the time associated with the position it returns, but there
+   doesn't seem to be any way to wrest the timestamp from the server
+   along with the position query.  So, we just keep track of the time
+   of the last movement we received, and return that in hopes that
+   it's somewhat accurate.  */
+static Time last_mouse_movement_time;
+
 #ifdef HAVE_X11
 /* `t' if a mouse button is depressed. */
 
 #ifdef HAVE_X11
 /* `t' if a mouse button is depressed. */
 
@@ -271,6 +331,8 @@ extern Cursor XCreateCursor ();
 extern FONT_TYPE *XOpenFont ();
 
 static void flashback ();
 extern FONT_TYPE *XOpenFont ();
 
 static void flashback ();
+static void redraw_previous_char ();
+static unsigned int x_x_to_emacs_modifiers ();
 
 #ifndef HAVE_X11
 static void dumpqueue ();
 
 #ifndef HAVE_X11
 static void dumpqueue ();
@@ -288,7 +350,7 @@ static int XTclear_end_of_line ();
    of the frame being updated, so that the XT... functions do not
    need to take a frame as argument.  Most of the XT... functions
    should never be called except during an update, the only exceptions
    of the frame being updated, so that the XT... functions do not
    need to take a frame as argument.  Most of the XT... functions
    should never be called except during an update, the only exceptions
-   being XTcursor_to, XTwrite_char and XTreassert_line_highlight.  */
+   being XTcursor_to, XTwrite_glyphs and XTreassert_line_highlight.  */
 
 extern int mouse_track_top, mouse_track_left, mouse_track_width;
 
 
 extern int mouse_track_top, mouse_track_left, mouse_track_width;
 
@@ -321,10 +383,6 @@ XTupdate_end (f)
 {      
   int mask;
 
 {      
   int mask;
 
-  if (updating_frame == 0
-      || updating_frame != f)
-    abort ();
-
   BLOCK_INPUT;
 #ifndef HAVE_X11
   dumpqueue ();
   BLOCK_INPUT;
 #ifndef HAVE_X11
   dumpqueue ();
@@ -411,7 +469,8 @@ XTcursor_to (row, col)
    compute_char_face and compute_glyph_face on everything it puts in
    the display structure, we can assume that the face code on each
    glyph is a valid index into FRAME_COMPUTED_FACES (f), and the one
    compute_char_face and compute_glyph_face on everything it puts in
    the display structure, we can assume that the face code on each
    glyph is a valid index into FRAME_COMPUTED_FACES (f), and the one
-   to which we can actually apply intern_face.  */
+   to which we can actually apply intern_face.
+   Call this function with input blocked.  */
 
 #if 1
 /* This is the multi-face code.  */
 
 #if 1
 /* This is the multi-face code.  */
@@ -438,7 +497,7 @@ dumpglyphs (f, left, top, gp, n, hl)
       int g = *gp;
 
       GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
       int g = *gp;
 
       GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
-      cf = GLYPH_FACE (g);
+      cf = FAST_GLYPH_FACE (g);
 
       /* Find the run of consecutive glyphs with the same face-code.
         Extract their character codes into BUF.  */
 
       /* Find the run of consecutive glyphs with the same face-code.
         Extract their character codes into BUF.  */
@@ -447,10 +506,10 @@ dumpglyphs (f, left, top, gp, n, hl)
        {
          g = *gp;
          GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
        {
          g = *gp;
          GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
-         if (GLYPH_FACE (g) != cf)
+         if (FAST_GLYPH_FACE (g) != cf)
            break;
 
            break;
 
-         *cp++ = GLYPH_CHAR (g);
+         *cp++ = FAST_GLYPH_CHAR (g);
          --n;
          ++gp;
        }
          --n;
          ++gp;
        }
@@ -470,11 +529,11 @@ dumpglyphs (f, left, top, gp, n, hl)
        /* First look at the face of the text itself.  */
        if (cf != 0)
          {
        /* First look at the face of the text itself.  */
        if (cf != 0)
          {
-           /* The face codes on the glyphs must be valid indices into the
-              frame's face table.  */
+           /* It's possible for the display table to specify
+              a face code that is out of range.  Use 0 in that case.  */
            if (cf < 0 || cf >= FRAME_N_COMPUTED_FACES (f)
                || FRAME_COMPUTED_FACES (f) [cf] == 0)
            if (cf < 0 || cf >= FRAME_N_COMPUTED_FACES (f)
                || FRAME_COMPUTED_FACES (f) [cf] == 0)
-             abort ();
+             cf = 0;
 
            if (cf == 1)
              face = FRAME_MODE_LINE_FACE (f);
 
            if (cf == 1)
              face = FRAME_MODE_LINE_FACE (f);
@@ -514,7 +573,25 @@ dumpglyphs (f, left, top, gp, n, hl)
                unsigned long mask;
 
                xgcv.background = f->display.x->cursor_pixel;
                unsigned long mask;
 
                xgcv.background = f->display.x->cursor_pixel;
-               xgcv.foreground = f->display.x->cursor_foreground_pixel;
+               if (face == FRAME_DEFAULT_FACE (f))
+                 xgcv.foreground = f->display.x->cursor_foreground_pixel;
+               else
+                 xgcv.foreground = face->foreground;
+               /* If the glyph would be invisible,
+                  try a different foreground.  */
+               if (xgcv.foreground == xgcv.background)
+                 xgcv.foreground = face->background;
+               if (xgcv.foreground == xgcv.background)
+                 xgcv.foreground = f->display.x->cursor_foreground_pixel;
+               if (xgcv.foreground == xgcv.background)
+                 xgcv.foreground = face->foreground;
+               /* Make sure the cursor is distinct from text in this face.  */
+               if (xgcv.background == face->background
+                   && xgcv.foreground == face->foreground)
+                 {
+                   xgcv.background = face->foreground;
+                   xgcv.foreground = face->background;
+                 }
                xgcv.font = face->font->fid;
                xgcv.graphics_exposures = 0;
                mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures;
                xgcv.font = face->font->fid;
                xgcv.graphics_exposures = 0;
                mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures;
@@ -680,7 +757,9 @@ XTclear_end_of_line (first_unused)
              CHAR_TO_PIXEL_ROW (f, curs_y),
              FONT_WIDTH (f->display.x->font) * (first_unused - curs_x),
              FONT_HEIGHT (f->display.x->font), False);
              CHAR_TO_PIXEL_ROW (f, curs_y),
              FONT_WIDTH (f->display.x->font) * (first_unused - curs_x),
              FONT_HEIGHT (f->display.x->font), False);
-             
+#if 0
+  redraw_previous_char (f, curs_x, curs_y);
+#endif
 #else /* ! defined (HAVE_X11) */
   XPixSet (FRAME_X_WINDOW (f),
           CHAR_TO_PIXEL_COL (f, curs_x),
 #else /* ! defined (HAVE_X11) */
   XPixSet (FRAME_X_WINDOW (f),
           CHAR_TO_PIXEL_COL (f, curs_x),
@@ -693,6 +772,39 @@ XTclear_end_of_line (first_unused)
   UNBLOCK_INPUT;
 }
 
   UNBLOCK_INPUT;
 }
 
+/* Erase the character (if any) at the position just before X, Y in frame F,
+   then redraw it and the character before it.
+   This is necessary when we erase starting at X,
+   in case the character after X overlaps into the one before X.
+   Call this function with input blocked.  */
+
+static void
+redraw_previous_char (f, x, y)
+     FRAME_PTR f;
+     int x, y;
+{
+  /* Erase the character before the new ones, in case
+     what was here before overlaps it.
+     Reoutput that character, and the previous character
+     (in case the previous character overlaps it).  */
+  if (x > 0)
+    {
+      int start_x = x - 2;
+      if (start_x < 0)
+       start_x = 0;
+      XClearArea (x_current_display, FRAME_X_WINDOW (f),
+                 CHAR_TO_PIXEL_COL (f, x - 1),
+                 CHAR_TO_PIXEL_ROW (f, y),
+                 FONT_WIDTH (f->display.x->font),
+                 FONT_HEIGHT (f->display.x->font), False);
+
+      dumpglyphs (f, CHAR_TO_PIXEL_COL (f, start_x),
+                 CHAR_TO_PIXEL_ROW (f, y),
+                 &FRAME_CURRENT_GLYPHS (f)->glyphs[y][start_x],
+                 x - start_x, highlight);
+    }
+}
+
 static
 XTclear_frame ()
 {
 static
 XTclear_frame ()
 {
@@ -792,7 +904,7 @@ XTflash (f)
       {
        struct timeval wakeup, now;
 
       {
        struct timeval wakeup, now;
 
-       gettimeofday (&wakeup, (struct timezone *) 0);
+       EMACS_GET_TIME (wakeup);
 
        /* Compute time to wait until, propagating carry from usecs.  */
        wakeup.tv_usec += 150000;
 
        /* Compute time to wait until, propagating carry from usecs.  */
        wakeup.tv_usec += 150000;
@@ -804,7 +916,7 @@ XTflash (f)
          {
            struct timeval timeout;
 
          {
            struct timeval timeout;
 
-           gettimeofday (&timeout, (struct timezone *)0);
+           EMACS_GET_TIME (timeout);
 
            /* In effect, timeout = wakeup - timeout.
               Break if result would be negative.  */
 
            /* In effect, timeout = wakeup - timeout.
               Break if result would be negative.  */
@@ -832,9 +944,9 @@ XTflash (f)
 /* Make audible bell.  */
 
 #ifdef HAVE_X11
 /* Make audible bell.  */
 
 #ifdef HAVE_X11
-#define XRINGBELL XBell(x_current_display, 0)
+#define XRINGBELL XBell (x_current_display, 0)
 #else /* ! defined (HAVE_X11) */
 #else /* ! defined (HAVE_X11) */
-#define XRINGBELL XFeep(0);
+#define XRINGBELL XFeep (0);
 #endif /* ! defined (HAVE_X11) */
 
 XTring_bell ()
 #endif /* ! defined (HAVE_X11) */
 
 XTring_bell ()
@@ -1059,7 +1171,8 @@ static void clear_cursor ();
 /* Output into a rectangle of an X-window (for frame F)
    the characters in f->phys_lines that overlap that rectangle.
    TOP and LEFT are the position of the upper left corner of the rectangle.
 /* Output into a rectangle of an X-window (for frame F)
    the characters in f->phys_lines that overlap that rectangle.
    TOP and LEFT are the position of the upper left corner of the rectangle.
-   ROWS and COLS are the size of the rectangle.  */
+   ROWS and COLS are the size of the rectangle.
+   Call this function with input blocked.  */
 
 static void
 dumprectangle (f, left, top, cols, rows)
 
 static void
 dumprectangle (f, left, top, cols, rows)
@@ -1451,6 +1564,10 @@ x_find_modifier_meanings ()
          KeyCode code =
            mods->modifiermap[(row * mods->max_keypermod) + col];
 
          KeyCode code =
            mods->modifiermap[(row * mods->max_keypermod) + col];
 
+         /* Zeroes are used for filler.  Skip them.  */
+         if (code == 0)
+           continue;
+
          /* Are any of this keycode's keysyms a meta key?  */
          {
            int code_col;
          /* Are any of this keycode's keysyms a meta key?  */
          {
            int code_col;
@@ -1510,7 +1627,6 @@ x_find_modifier_meanings ()
   XFreeModifiermap (mods);
 }
 
   XFreeModifiermap (mods);
 }
 
-
 /* Convert between the modifier bits X uses and the modifier bits
    Emacs uses.  */
 static unsigned int
 /* Convert between the modifier bits X uses and the modifier bits
    Emacs uses.  */
 static unsigned int
@@ -1558,14 +1674,24 @@ x_is_vendor_fkey (sym)
 
 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return
    glyph co-ordinates in (*X, *Y).  Set *BOUNDS to the rectangle
 
 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return
    glyph co-ordinates in (*X, *Y).  Set *BOUNDS to the rectangle
-   that the glyph at X, Y occupies, if BOUNDS != 0.  */
-static void
-pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds)
+   that the glyph at X, Y occupies, if BOUNDS != 0.
+   If NOCLIP is nonzero, do not force the value into range.  */
+
+void
+pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip)
      FRAME_PTR f;
      FRAME_PTR f;
-     register unsigned int pix_x, pix_y;
+     register int pix_x, pix_y;
      register int *x, *y;
      XRectangle *bounds;
      register int *x, *y;
      XRectangle *bounds;
+     int noclip;
 {
 {
+  /* Arrange for the division in PIXEL_TO_CHAR_COL etc. to round down
+     even for negative values.  */
+  if (pix_x < 0)
+    pix_x -= FONT_WIDTH ((f)->display.x->font) - 1;
+  if (pix_y < 0)
+    pix_y -= FONT_HEIGHT ((f)->display.x->font) - 1;
+
   pix_x = PIXEL_TO_CHAR_COL (f, pix_x);
   pix_y = PIXEL_TO_CHAR_ROW (f, pix_y);
 
   pix_x = PIXEL_TO_CHAR_COL (f, pix_x);
   pix_y = PIXEL_TO_CHAR_ROW (f, pix_y);
 
@@ -1577,18 +1703,32 @@ pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds)
       bounds->y = CHAR_TO_PIXEL_ROW (f, pix_y);
     }
 
       bounds->y = CHAR_TO_PIXEL_ROW (f, pix_y);
     }
 
-  if (pix_x < 0) pix_x = 0;
-  else if (pix_x > f->width) pix_x = f->width;
-
-  if (pix_y < 0) pix_y = 0;
-  else if (pix_y > f->height) pix_y = f->height;
+  if (!noclip)
+    {
+      if (pix_x < 0)
+       pix_x = 0;
+      else if (pix_x > f->width)
+       pix_x = f->width;
+
+      if (pix_y < 0)
+       pix_y = 0;
+      else if (pix_y > f->height)
+       pix_y = f->height;
+    }
 
   *x = pix_x;
   *y = pix_y;
 }
 
 
   *x = pix_x;
   *y = pix_y;
 }
 
-/* Any buttons grabbed. */
-unsigned int x_mouse_grabbed;
+void
+glyph_to_pixel_coords (f, x, y, pix_x, pix_y)
+     FRAME_PTR f;
+     register int x, y;
+     register int *pix_x, *pix_y;
+{
+  *pix_x = CHAR_TO_PIXEL_COL (f, x);
+  *pix_y = CHAR_TO_PIXEL_ROW (f, y);
+}
 
 /* Prepare a mouse-event in *RESULT for placement in the input queue.
 
 
 /* Prepare a mouse-event in *RESULT for placement in the input queue.
 
@@ -1604,7 +1744,7 @@ construct_mouse_click (result, event, f)
   /* Make the event type no_event; we'll change that when we decide
      otherwise.  */
   result->kind = mouse_click;
   /* Make the event type no_event; we'll change that when we decide
      otherwise.  */
   result->kind = mouse_click;
-  XSET (result->code, Lisp_Int, event->button - Button1);
+  result->code = event->button - Button1;
   result->timestamp = event->time;
   result->modifiers = (x_x_to_emacs_modifiers (event->state)
                       | (event->type == ButtonRelease
   result->timestamp = event->time;
   result->modifiers = (x_x_to_emacs_modifiers (event->state)
                       | (event->type == ButtonRelease
@@ -1617,6 +1757,7 @@ construct_mouse_click (result, event, f)
       if (! x_mouse_grabbed)
        Vmouse_depressed = Qt;
       x_mouse_grabbed |= (1 << event->button);
       if (! x_mouse_grabbed)
        Vmouse_depressed = Qt;
       x_mouse_grabbed |= (1 << event->button);
+      last_mouse_frame = f;
     }
   else if (event->type == ButtonRelease)
     {
     }
   else if (event->type == ButtonRelease)
     {
@@ -1628,55 +1769,40 @@ construct_mouse_click (result, event, f)
   {
     int row, column;
 
   {
     int row, column;
 
-    pixel_to_glyph_coords (f, event->x, event->y, &column, &row, NULL);
+#if 0
+    pixel_to_glyph_coords (f, event->x, event->y, &column, &row, NULL, 0);
     XFASTINT (result->x) = column;
     XFASTINT (result->y) = row;
     XFASTINT (result->x) = column;
     XFASTINT (result->y) = row;
+#endif
+    XFASTINT (result->x) = event->x;
+    XFASTINT (result->y) = event->y;
     XSET (result->frame_or_window, Lisp_Frame, f);
   }
 }
 
     XSET (result->frame_or_window, Lisp_Frame, f);
   }
 }
 
+/* Prepare a menu-event in *RESULT for placement in the input queue.  */
 
 
-/* Mouse movement.  Rah.
-
-   In order to avoid asking for motion events and then throwing most
-   of them away or busy-polling the server for mouse positions, we ask
-   the server for pointer motion hints.  This means that we get only
-   one event per group of mouse movements.  "Groups" are delimited by
-   other kinds of events (focus changes and button clicks, for
-   example), or by XQueryPointer calls; when one of these happens, we
-   get another MotionNotify event the next time the mouse moves.  This
-   is at least as efficient as getting motion events when mouse
-   tracking is on, and I suspect only negligibly worse when tracking
-   is off.
-
-   The silly O'Reilly & Associates Nutshell guides barely document
-   pointer motion hints at all (I think you have to infer how they
-   work from an example), and the description of XQueryPointer doesn't
-   mention that calling it causes you to get another motion hint from
-   the server, which is very important.  */
-
-/* Where the mouse was last time we reported a mouse event.  */
-static FRAME_PTR last_mouse_frame;
-static XRectangle last_mouse_glyph;
-
-/* The scroll bar in which the last X motion event occurred.
-
-   If the last X motion event occurred in a scroll bar, we set this
-   so XTmouse_position can know whether to report a scroll bar motion or
-   an ordinary motion.
-
-   If the last X motion event didn't occur in a scroll bar, we set this
-   to Qnil, to tell XTmouse_position to return an ordinary motion event.  */
-static Lisp_Object last_mouse_scroll_bar;
-
-/* This is a hack.  We would really prefer that XTmouse_position would
-   return the time associated with the position it returns, but there
-   doesn't seem to be any way to wrest the timestamp from the server
-   along with the position query.  So, we just keep track of the time
-   of the last movement we received, and return that in hopes that
-   it's somewhat accurate.  */
-static Time last_mouse_movement_time;
+static Lisp_Object
+construct_menu_click (result, event, f)
+     struct input_event *result;
+     XButtonEvent *event;
+     struct frame *f;
+{
+  /* Make the event type no_event; we'll change that when we decide
+     otherwise.  */
+  result->kind = mouse_click;
+  XSET (result->code, Lisp_Int, event->button - Button1);
+  result->timestamp = event->time;
+  result->modifiers = (x_x_to_emacs_modifiers (event->state)
+                      | (event->type == ButtonRelease
+                         ? up_modifier 
+                         : down_modifier));
 
 
+  XFASTINT (result->x) = event->x;
+  XSETINT (result->y, -1);
+  XSET (result->frame_or_window, Lisp_Frame, f);
+}
+\f
 /* Function to report a mouse movement to the mainstream Emacs code.
    The input handler calls this.
 
 /* Function to report a mouse movement to the mainstream Emacs code.
    The input handler calls this.
 
@@ -1793,40 +1919,60 @@ XTmouse_position (f, bar_window, part, x, y, time)
        int parent_x, parent_y;
 
        win = root;
        int parent_x, parent_y;
 
        win = root;
-       for (;;)
+
+       if (x_mouse_grabbed)
          {
          {
+           /* If mouse was grabbed on a frame, give coords for that frame
+              even if the mouse is now outside it.  */
            XTranslateCoordinates (x_current_display,
            XTranslateCoordinates (x_current_display,
-                              
+
                                   /* From-window, to-window.  */
                                   /* From-window, to-window.  */
-                                  root, win,
+                                  root, FRAME_X_WINDOW (last_mouse_frame),
 
                                   /* From-position, to-position.  */
                                   root_x, root_y, &win_x, &win_y,
 
                                   /* Child of win.  */
                                   &child);
 
                                   /* From-position, to-position.  */
                                   root_x, root_y, &win_x, &win_y,
 
                                   /* Child of win.  */
                                   &child);
+           f1 = last_mouse_frame;
+         }
+       else
+         {
+           while (1)
+             {
+               XTranslateCoordinates (x_current_display,
 
 
-           if (child == None)
-             break;
+                                      /* From-window, to-window.  */
+                                      root, win,
 
 
-           win = child;
-           parent_x = win_x;
-           parent_y = win_y;
-         }
+                                      /* From-position, to-position.  */
+                                      root_x, root_y, &win_x, &win_y,
 
 
-       /* Now we know that:
-          win is the innermost window containing the pointer
-          (XTC says it has no child containing the pointer),
-          win_x and win_y are the pointer's position in it
-          (XTC did this the last time through), and
-          parent_x and parent_y are the pointer's position in win's parent.
-          (They are what win_x and win_y were when win was child.
-          If win is the root window, it has no parent, and
-          parent_{x,y} are invalid, but that's okay, because we'll
-          never use them in that case.)  */
-
-       /* Is win one of our frames?  */
-       f1 = x_window_to_frame (win);
+                                      /* Child of win.  */
+                                      &child);
+
+               if (child == None)
+                 break;
+
+               win = child;
+               parent_x = win_x;
+               parent_y = win_y;
+             }
+
+           /* Now we know that:
+              win is the innermost window containing the pointer
+              (XTC says it has no child containing the pointer),
+              win_x and win_y are the pointer's position in it
+              (XTC did this the last time through), and
+              parent_x and parent_y are the pointer's position in win's parent.
+              (They are what win_x and win_y were when win was child.
+              If win is the root window, it has no parent, and
+              parent_{x,y} are invalid, but that's okay, because we'll
+              never use them in that case.)  */
+
+           /* Is win one of our frames?  */
+           f1 = x_any_window_to_frame (win);
+         }
       
        /* If not, is it one of our scroll bars?  */
        if (! f1)
       
        /* If not, is it one of our scroll bars?  */
        if (! f1)
@@ -1843,11 +1989,12 @@ XTmouse_position (f, bar_window, part, x, y, time)
 
        if (f1)
          {
 
        if (f1)
          {
-           /* Ok, we found a frame.  Convert from pixels to characters
-              and store all the values.  */
+           int ignore1, ignore2;
+
+           /* Ok, we found a frame.  Store all the values.  */
 
 
-           pixel_to_glyph_coords (f1, win_x, win_y, &win_x, &win_y,
-                                  &last_mouse_glyph);
+           pixel_to_glyph_coords (f1, win_x, win_y, &ignore1, &ignore2,
+                                  &last_mouse_glyph, x_mouse_grabbed);
 
            *bar_window = Qnil;
            *part = 0;
 
            *bar_window = Qnil;
            *part = 0;
@@ -1881,9 +2028,9 @@ x_window_to_scroll_bar (window_id)
        XGCTYPE (tail) == Lisp_Cons;
        tail = XCONS (tail)->cdr)
     {
        XGCTYPE (tail) == Lisp_Cons;
        tail = XCONS (tail)->cdr)
     {
-      Lisp_Object frame = XCONS (tail)->car;
-      Lisp_Object bar, condemned;
+      Lisp_Object frame, bar, condemned;
 
 
+      frame = XCONS (tail)->car;
       /* All elements of Vframe_list should be frames.  */
       if (XGCTYPE (frame) != Lisp_Frame)
        abort ();
       /* All elements of Vframe_list should be frames.  */
       if (XGCTYPE (frame) != Lisp_Frame)
        abort ();
@@ -1897,7 +2044,7 @@ x_window_to_scroll_bar (window_id)
           ! GC_NILP (bar) || (bar = condemned,
                               condemned = Qnil,
                               ! GC_NILP (bar));
           ! GC_NILP (bar) || (bar = condemned,
                               condemned = Qnil,
                               ! GC_NILP (bar));
-          bar = XSCROLL_BAR(bar)->next)
+          bar = XSCROLL_BAR (bar)->next)
        if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)) == window_id)
          return XSCROLL_BAR (bar);
     }
        if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)) == window_id)
          return XSCROLL_BAR (bar);
     }
@@ -1921,7 +2068,6 @@ x_scroll_bar_create (window, top, left, width, height)
   {
     XSetWindowAttributes a;
     unsigned long mask;
   {
     XSetWindowAttributes a;
     unsigned long mask;
-
     a.background_pixel = frame->display.x->background_pixel;
     a.event_mask = (ButtonPressMask | ButtonReleaseMask
                    | ButtonMotionMask | PointerMotionHintMask
     a.background_pixel = frame->display.x->background_pixel;
     a.event_mask = (ButtonPressMask | ButtonReleaseMask
                    | ButtonMotionMask | PointerMotionHintMask
@@ -1930,6 +2076,20 @@ x_scroll_bar_create (window, top, left, width, height)
 
     mask = (CWBackPixel | CWEventMask | CWCursor);
 
 
     mask = (CWBackPixel | CWEventMask | CWCursor);
 
+#if 0
+
+    ac = 0;
+    XtSetArg (al[ac], XtNx, left); ac++;
+    XtSetArg (al[ac], XtNy, top); ac++;
+    XtSetArg (al[ac], XtNwidth, width); ac++;
+    XtSetArg (al[ac], XtNheight, height); ac++;
+    XtSetArg (al[ac], XtNborderWidth, 0); ac++;
+    sb_widget = XtCreateManagedWidget ("box",
+                                      boxWidgetClass,
+                                      frame->display.x->edit_widget, al, ac);
+    SET_SCROLL_BAR_X_WINDOW
+      (bar, sb_widget->core.window);
+#endif    
     SET_SCROLL_BAR_X_WINDOW
       (bar, 
        XCreateWindow (x_current_display, FRAME_X_WINDOW (frame),
     SET_SCROLL_BAR_X_WINDOW
       (bar, 
        XCreateWindow (x_current_display, FRAME_X_WINDOW (frame),
@@ -2302,12 +2462,6 @@ x_scroll_bar_expose (bar, event)
                  /* x, y, width, height */
                  0, 0, XINT (bar->width) - 1, XINT (bar->height) - 1);
 
                  /* x, y, width, height */
                  0, 0, XINT (bar->width) - 1, XINT (bar->height) - 1);
 
-  /* Draw another line to make the extra-thick border on the right.  */
-  XFillRectangle (x_current_display, w, gc,
-
-                 /* x, y, width, height */
-                 XINT (bar->width) - 2, 1, 1, XINT (bar->height) - 2);
-
   UNBLOCK_INPUT;
 }
 
   UNBLOCK_INPUT;
 }
 
@@ -2326,7 +2480,7 @@ x_scroll_bar_handle_click (bar, event, emacs_event)
     abort ();
 
   emacs_event->kind = scroll_bar_click;
     abort ();
 
   emacs_event->kind = scroll_bar_click;
-  XSET (emacs_event->code, Lisp_Int, event->xbutton.button - Button1);
+  emacs_event->code = event->xbutton.button - Button1;
   emacs_event->modifiers =
     (x_x_to_emacs_modifiers (event->xbutton.state)
      | (event->type == ButtonRelease
   emacs_event->modifiers =
     (x_x_to_emacs_modifiers (event->xbutton.state)
      | (event->type == ButtonRelease
@@ -2521,6 +2675,45 @@ x_scroll_bar_clear (f)
                0, 0, 0, 0, True);
 }
 
                0, 0, 0, 0, True);
 }
 
+/* This processes Expose events from the menubar specific X event
+   loop in menubar.c.  This allows to redisplay the frame if necessary
+   when handling menubar or popup items.  */
+
+void
+process_expose_from_menu (event)
+     XEvent event;
+{
+  FRAME_PTR f;
+
+  BLOCK_INPUT;
+
+  f = x_window_to_frame (event.xexpose.window);
+  if (f)
+    {
+      if (f->async_visible == 0)
+       {
+         f->async_visible = 1;
+         f->async_iconified = 0;
+         SET_FRAME_GARBAGED (f);
+       }
+      else
+       {
+         dumprectangle (x_window_to_frame (event.xexpose.window),
+                        event.xexpose.x, event.xexpose.y,
+                        event.xexpose.width, event.xexpose.height);
+       }
+    }
+  else
+    {
+      struct scroll_bar *bar
+       = x_window_to_scroll_bar (event.xexpose.window);
+      
+      if (bar)
+       x_scroll_bar_expose (bar, &event);
+    }
+
+  UNBLOCK_INPUT;
+}
 
 \f
 /* The main X event-reading loop - XTread_socket.  */
 
 \f
 /* The main X event-reading loop - XTread_socket.  */
@@ -2636,7 +2829,12 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
              {
                if (event.xclient.data.l[0] == Xatom_wm_take_focus)
                  {
              {
                if (event.xclient.data.l[0] == Xatom_wm_take_focus)
                  {
+#ifdef USE_X_TOOLKIT
+                   /* f = x_any_window_to_frame (event.xclient.window); */
+                   f = x_window_to_frame (event.xclient.window);
+#else
                    f = x_window_to_frame (event.xclient.window);
                    f = x_window_to_frame (event.xclient.window);
+#endif
                    if (f)
                      x_focus_on_frame (f);
                    /* Not certain about handling scroll bars here */
                    if (f)
                      x_focus_on_frame (f);
                    /* Not certain about handling scroll bars here */
@@ -2654,12 +2852,20 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                  }
                else if (event.xclient.data.l[0] == Xatom_wm_delete_window)
                  {
                  }
                else if (event.xclient.data.l[0] == Xatom_wm_delete_window)
                  {
-                   struct frame *f = x_window_to_frame (event.xclient.window);
+                   struct frame *f = x_any_window_to_frame (event.xclient.window);
 
                    if (f)
 
                    if (f)
-                     if (numchars > 0)
-                       {
-                       }
+                     {
+                       if (numchars == 0)
+                         abort ();
+
+                       bufp->kind = delete_window_event;
+                       XSET (bufp->frame_or_window, Lisp_Frame, f);
+                       bufp++;
+
+                       count += 1;
+                       numchars -= 1;
+                     }
                  }
              }
            else if (event.xclient.message_type == Xatom_wm_configure_denied)
                  }
              }
            else if (event.xclient.message_type == Xatom_wm_configure_denied)
@@ -2668,22 +2874,40 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
            else if (event.xclient.message_type == Xatom_wm_window_moved)
              {
                int new_x, new_y;
            else if (event.xclient.message_type == Xatom_wm_window_moved)
              {
                int new_x, new_y;
-
+               struct frame *f = x_window_to_frame (event.xclient.window);
+               
                new_x = event.xclient.data.s[0];
                new_y = event.xclient.data.s[1];
                new_x = event.xclient.data.s[0];
                new_y = event.xclient.data.s[1];
+
+               if (f)
+                 {
+                   f->display.x->left_pos = new_x;
+                   f->display.x->top_pos = new_y;
+                 }
              }
          }
          break;
 
 #ifdef NEW_SELECTIONS
        case SelectionNotify:
              }
          }
          break;
 
 #ifdef NEW_SELECTIONS
        case SelectionNotify:
+#ifdef USE_X_TOOLKIT
+         if (x_window_to_frame (event.xselection.requestor))
+           x_handle_selection_notify (&event);
+         else
+           goto OTHER;
+#else /* not USE_X_TOOLKIT */
          x_handle_selection_notify (&event);
          x_handle_selection_notify (&event);
+#endif /* not USE_X_TOOLKIT */
          break;
          break;
-#endif
+#endif /* NEW_SELECTIONS */
 
        case SelectionClear:    /* Someone has grabbed ownership. */
 #ifdef NEW_SELECTIONS
          {
 
        case SelectionClear:    /* Someone has grabbed ownership. */
 #ifdef NEW_SELECTIONS
          {
+#ifdef USE_X_TOOLKIT
+         if (x_window_to_frame (event.xselectionclear.window))
+           {
+#endif /* USE_X_TOOLKIT */
            XSelectionClearEvent *eventp = (XSelectionClearEvent *) &event;
 
            if (numchars == 0)
            XSelectionClearEvent *eventp = (XSelectionClearEvent *) &event;
 
            if (numchars == 0)
@@ -2697,17 +2921,26 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
 
            count += 1;
            numchars -= 1;
 
            count += 1;
            numchars -= 1;
+#ifdef USE_X_TOOLKIT
          }
          }
-#else
+         else
+           goto OTHER;
+#endif /* USE_X_TOOLKIT */
+         }
+#else /* not NEW_SELECTIONS */
          x_disown_selection (event.xselectionclear.window,
                              event.xselectionclear.selection,
                              event.xselectionclear.time);
          x_disown_selection (event.xselectionclear.window,
                              event.xselectionclear.selection,
                              event.xselectionclear.time);
-#endif
+#endif /* not NEW_SELECTIONS */
          break;
 
        case SelectionRequest:  /* Someone wants our selection. */
 #ifdef NEW_SELECTIONS
          {
          break;
 
        case SelectionRequest:  /* Someone wants our selection. */
 #ifdef NEW_SELECTIONS
          {
+#ifdef USE_X_TOOLKIT
+         if (x_window_to_frame (event.xselectionrequest.owner))
+           {
+#endif /* USE_X_TOOLKIT */
            XSelectionRequestEvent *eventp = (XSelectionRequestEvent *) &event;
 
            if (numchars == 0)
            XSelectionRequestEvent *eventp = (XSelectionRequestEvent *) &event;
 
            if (numchars == 0)
@@ -2724,16 +2957,28 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
 
            count += 1;
            numchars -= 1;
 
            count += 1;
            numchars -= 1;
+#ifdef USE_X_TOOLKIT
          }
          }
-#else
+         else
+           goto OTHER;
+#endif /* USE_X_TOOLKIT */
+         }
+#else /* not NEW_SELECTIONS */
          x_answer_selection_request (event);
          x_answer_selection_request (event);
-#endif
+#endif /* not NEW_SELECTIONS */
          break;
 
        case PropertyNotify:
 #ifdef NEW_SELECTIONS
          break;
 
        case PropertyNotify:
 #ifdef NEW_SELECTIONS
+#ifdef USE_X_TOOLKIT
+         if (x_any_window_to_frame (event.xproperty.window))
+           x_handle_property_notify (&event);
+         else
+           goto OTHER;
+#else /* not USE_X_TOOLKIT */
          x_handle_property_notify (&event);
          x_handle_property_notify (&event);
-#else
+#endif /* not USE_X_TOOLKIT */
+#else /* not NEW_SELECTIONS */
          /* If we're being told about a root window property, then it's
             a cut buffer change.  */
          if (event.xproperty.window == ROOT_WINDOW)
          /* If we're being told about a root window property, then it's
             a cut buffer change.  */
          if (event.xproperty.window == ROOT_WINDOW)
@@ -2747,7 +2992,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                 about re-selecting. */
              x_send_incremental (event);
            }
                 about re-selecting. */
              x_send_incremental (event);
            }
-#endif
+#endif /* not NEW_SELECTIONS */
          break;
 
        case ReparentNotify:
          break;
 
        case ReparentNotify:
@@ -2777,9 +3022,13 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
            {
              struct scroll_bar *bar
                = x_window_to_scroll_bar (event.xexpose.window);
            {
              struct scroll_bar *bar
                = x_window_to_scroll_bar (event.xexpose.window);
-
+             
              if (bar)
              if (bar)
-               x_scroll_bar_expose (bar, &event);
+               x_scroll_bar_expose (bar, &event);
+#ifdef USE_X_TOOLKIT
+             else
+               goto OTHER;
+#endif /* USE_X_TOOLKIT */
            }
          break;
 
            }
          break;
 
@@ -2794,6 +3043,10 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                             event.xgraphicsexpose.width,
                             event.xgraphicsexpose.height);
            }
                             event.xgraphicsexpose.width,
                             event.xgraphicsexpose.height);
            }
+#ifdef USE_X_TOOLKIT
+         else
+           goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
        case NoExpose:          /* This occurs when an XCopyArea's
          break;
 
        case NoExpose:          /* This occurs when an XCopyArea's
@@ -2865,10 +3118,17 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
              if (FRAME_VISIBLE_P (f) || FRAME_ICONIFIED_P (f))
                f->async_iconified = 1;
            }
              if (FRAME_VISIBLE_P (f) || FRAME_ICONIFIED_P (f))
                f->async_iconified = 1;
            }
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
        case MapNotify:
          break;
 
        case MapNotify:
+#ifdef USE_X_TOOLKIT
+         f = x_any_window_to_frame (event.xmap.window);
+#else /* not USE_X_TOOLKIT */
          f = x_window_to_frame (event.xmap.window);
          f = x_window_to_frame (event.xmap.window);
+#endif /* not USE_X_TOOLKIT */
          if (f)
            {
              f->async_visible = 1;
          if (f)
            {
              f->async_visible = 1;
@@ -2878,7 +3138,10 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                 the frame's display structures.  */
              SET_FRAME_GARBAGED (f);
            }
                 the frame's display structures.  */
              SET_FRAME_GARBAGED (f);
            }
-         break;
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
+  break;
 
          /* Turn off processing if we become fully obscured. */
        case VisibilityNotify:
 
          /* Turn off processing if we become fully obscured. */
        case VisibilityNotify:
@@ -2896,12 +3159,14 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
 
 #ifdef HAVE_X11
        case KeyPress:
 
 #ifdef HAVE_X11
        case KeyPress:
-         f = x_window_to_frame (event.xkey.window);
+         f = x_any_window_to_frame (event.xkey.window);
 
          if (f != 0)
            {
              KeySym keysym, orig_keysym;
 
          if (f != 0)
            {
              KeySym keysym, orig_keysym;
-             char copy_buffer[80];
+             /* al%imercury@uunet.uu.net says that making this 81 instead of
+                80 fixed a bug whereby meta chars made his Emacs hang.  */
+             unsigned char copy_buffer[81];
              int modifiers;
 
              event.xkey.state
              int modifiers;
 
              event.xkey.state
@@ -2936,17 +3201,65 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                          incorrectly.  */
                       || ((unsigned) (keysym) >= XK_Select
                           && (unsigned)(keysym) < XK_KP_Space)
                          incorrectly.  */
                       || ((unsigned) (keysym) >= XK_Select
                           && (unsigned)(keysym) < XK_KP_Space)
+#endif
+#ifdef XK_dead_circumflex
+                      || orig_keysym == XK_dead_circumflex
+#endif
+#ifdef XK_dead_grave
+                      || orig_keysym == XK_dead_grave
+#endif
+#ifdef XK_dead_tilde
+                      || orig_keysym == XK_dead_tilde
+#endif
+#ifdef XK_dead_diaeresis
+                      || orig_keysym == XK_dead_diaeresis
+#endif
+#ifdef XK_dead_macron
+                      || orig_keysym == XK_dead_macron
+#endif
+#ifdef XK_dead_degree
+                      || orig_keysym == XK_dead_degree
+#endif
+#ifdef XK_dead_acute
+                      || orig_keysym == XK_dead_acute
+#endif
+#ifdef XK_dead_cedilla
+                      || orig_keysym == XK_dead_cedilla
+#endif
+#ifdef XK_dead_breve
+                      || orig_keysym == XK_dead_breve
+#endif
+#ifdef XK_dead_ogonek
+                      || orig_keysym == XK_dead_ogonek
+#endif
+#ifdef XK_dead_caron
+                      || orig_keysym == XK_dead_caron
+#endif
+#ifdef XK_dead_doubleacute
+                      || orig_keysym == XK_dead_doubleacute
+#endif
+#ifdef XK_dead_abovedot
+                      || orig_keysym == XK_dead_abovedot
 #endif
                       || IsKeypadKey (keysym) /* 0xff80 <= x < 0xffbe */
                       || IsFunctionKey (keysym) /* 0xffbe <= x < 0xffe1 */
                       || x_is_vendor_fkey (orig_keysym))
 #endif
                       || IsKeypadKey (keysym) /* 0xff80 <= x < 0xffbe */
                       || IsFunctionKey (keysym) /* 0xffbe <= x < 0xffe1 */
                       || x_is_vendor_fkey (orig_keysym))
-                     && ! IsModifierKey (orig_keysym)) /* wherever */
+                     && ! (IsModifierKey (orig_keysym)
+#ifndef HAVE_X11R5
+#ifdef XK_Mode_switch
+                           || ((unsigned)(orig_keysym) == XK_Mode_switch)
+#endif
+#ifdef XK_Num_Lock
+                           || ((unsigned)(orig_keysym) == XK_Num_Lock)
+#endif
+#endif /* not HAVE_X11R5 */
+                           ))
                    {
                      if (temp_index == sizeof temp_buffer / sizeof (short))
                        temp_index = 0;
                      temp_buffer[temp_index++] = keysym;
                      bufp->kind = non_ascii_keystroke;
                    {
                      if (temp_index == sizeof temp_buffer / sizeof (short))
                        temp_index = 0;
                      temp_buffer[temp_index++] = keysym;
                      bufp->kind = non_ascii_keystroke;
-                     XSET (bufp->code, Lisp_Int, (unsigned) keysym - 0xff00);
+                     bufp->code = keysym;
                      XSET (bufp->frame_or_window, Lisp_Frame, f);
                      bufp->modifiers = x_x_to_emacs_modifiers (modifiers);
                      bufp->timestamp = event.xkey.time;
                      XSET (bufp->frame_or_window, Lisp_Frame, f);
                      bufp->modifiers = x_x_to_emacs_modifiers (modifiers);
                      bufp->timestamp = event.xkey.time;
@@ -2964,7 +3277,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                            temp_index = 0;
                          temp_buffer[temp_index++] = copy_buffer[i];
                          bufp->kind = ascii_keystroke;
                            temp_index = 0;
                          temp_buffer[temp_index++] = copy_buffer[i];
                          bufp->kind = ascii_keystroke;
-                         XSET (bufp->code, Lisp_Int, copy_buffer[i]);
+                         bufp->code = copy_buffer[i];
                          XSET (bufp->frame_or_window, Lisp_Frame, f);
                          bufp->modifiers = x_x_to_emacs_modifiers (modifiers);
                          bufp->timestamp = event.xkey.time;
                          XSET (bufp->frame_or_window, Lisp_Frame, f);
                          bufp->modifiers = x_x_to_emacs_modifiers (modifiers);
                          bufp->timestamp = event.xkey.time;
@@ -3018,7 +3331,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                for (i = 0; i < nbytes; i++)
                  {
                    bufp->kind = ascii_keystroke;
                for (i = 0; i < nbytes; i++)
                  {
                    bufp->kind = ascii_keystroke;
-                   XSET (bufp->code, Lisp_Int, where_mapping[i]);
+                   bufp->code = where_mapping[i];
                    XSET (bufp->time, Lisp_Int, event.xkey.time);
                    XSET (bufp->frame_or_window, Lisp_Frame, f);
                    bufp++;
                    XSET (bufp->time, Lisp_Int, event.xkey.time);
                    XSET (bufp->frame_or_window, Lisp_Frame, f);
                    bufp++;
@@ -3039,7 +3352,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
             then a mere LeaveNotify is enough to free you.  */
 
        case EnterNotify:
             then a mere LeaveNotify is enough to free you.  */
 
        case EnterNotify:
-         f = x_window_to_frame (event.xcrossing.window);
+         f = x_any_window_to_frame (event.xcrossing.window);
 
          if (event.xcrossing.focus)            /* Entered Window */
            {
 
          if (event.xcrossing.focus)            /* Entered Window */
            {
@@ -3054,20 +3367,25 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
            }
          else if (f == x_focus_frame)
            x_new_focus_frame (0);
            }
          else if (f == x_focus_frame)
            x_new_focus_frame (0);
-
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
        case FocusIn:
          break;
 
        case FocusIn:
-         f = x_window_to_frame (event.xfocus.window);
+         f = x_any_window_to_frame (event.xfocus.window);
          if (event.xfocus.detail != NotifyPointer) 
            x_focus_event_frame = f;
          if (f)
            x_new_focus_frame (f);
          if (event.xfocus.detail != NotifyPointer) 
            x_focus_event_frame = f;
          if (f)
            x_new_focus_frame (f);
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
 
        case LeaveNotify:
          break;
 
 
        case LeaveNotify:
-         f = x_window_to_frame (event.xcrossing.window);
+         f = x_any_window_to_frame (event.xcrossing.window);
 
          if (event.xcrossing.focus)
            {
 
          if (event.xcrossing.focus)
            {
@@ -3083,15 +3401,21 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
              if (f == x_focus_frame)
                x_new_focus_frame (0);
            }
              if (f == x_focus_frame)
                x_new_focus_frame (0);
            }
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
        case FocusOut:
          break;
 
        case FocusOut:
-         f = x_window_to_frame (event.xfocus.window);
+         f = x_any_window_to_frame (event.xfocus.window);
          if (event.xfocus.detail != NotifyPointer
              && f == x_focus_event_frame)
            x_focus_event_frame = 0;
          if (f && f == x_focus_frame)
            x_new_focus_frame (0);
          if (event.xfocus.detail != NotifyPointer
              && f == x_focus_event_frame)
            x_focus_event_frame = 0;
          if (f && f == x_focus_frame)
            x_new_focus_frame (0);
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
 #else /* ! defined (HAVE_X11) */
          break;
 
 #else /* ! defined (HAVE_X11) */
@@ -3133,22 +3457,64 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
 #ifdef HAVE_X11
        case MotionNotify:
          {
 #ifdef HAVE_X11
        case MotionNotify:
          {
-           f = x_window_to_frame (event.xmotion.window);
+           if (x_mouse_grabbed)
+             f = last_mouse_frame;
+           else
+             f = x_window_to_frame (event.xmotion.window);
            if (f)
              note_mouse_movement (f, &event.xmotion);
            else
              {
            if (f)
              note_mouse_movement (f, &event.xmotion);
            else
              {
-               struct scroll_bar *bar =
-                 x_window_to_scroll_bar (event.xmotion.window);
+               struct scroll_bar *bar
+                 = x_window_to_scroll_bar (event.xmotion.window);
 
                if (bar)
                  x_scroll_bar_note_movement (bar, &event);
              }
          }
 
                if (bar)
                  x_scroll_bar_note_movement (bar, &event);
              }
          }
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
        case ConfigureNotify:
          break;
 
        case ConfigureNotify:
-         f = x_window_to_frame (event.xconfigure.window);
+          f = x_any_window_to_frame (event.xconfigure.window);
+#ifdef USE_X_TOOLKIT
+          if (f
+              && ! event.xconfigure.send_event
+              && (event.xconfigure.window == XtWindow (f->display.x->widget)))
+            {
+              Window win, child;
+              int win_x, win_y;
+
+              /* Find the position of the outside upper-left corner of
+                 the window, in the root coordinate system.  Don't
+                 refer to the parent window here; we may be processing
+                 this event after the window manager has changed our
+                 parent, but before we have reached the ReparentNotify.  */
+              XTranslateCoordinates (x_current_display,
+
+                                     /* From-window, to-window.  */
+                                     XtWindow (f->display.x->widget),
+                                     ROOT_WINDOW,
+
+                                     /* From-position, to-position.  */
+                                     -event.xconfigure.border_width,
+                                     -event.xconfigure.border_width,
+                                     &win_x, &win_y,
+
+                                     /* Child of win.  */
+                                     &child);
+              event.xconfigure.x = win_x;
+              event.xconfigure.y = win_y;
+
+              f->display.x->pixel_width = event.xconfigure.width;
+              f->display.x->pixel_height = event.xconfigure.height;
+              f->display.x->left_pos = event.xconfigure.x;
+              f->display.x->top_pos = event.xconfigure.y;
+            }
+          goto OTHER;
+#else /* not USE_X_TOOLKIT */
          if (f)
            {
              int rows = PIXEL_TO_CHAR_HEIGHT (f, event.xconfigure.height);
          if (f)
            {
              int rows = PIXEL_TO_CHAR_HEIGHT (f, event.xconfigure.height);
@@ -3198,6 +3564,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
              f->display.x->left_pos = event.xconfigure.x;
              f->display.x->top_pos = event.xconfigure.y;
            }
              f->display.x->left_pos = event.xconfigure.x;
              f->display.x->top_pos = event.xconfigure.y;
            }
+#endif /* not USE_X_TOOLKIT */
          break;
 
        case ButtonPress:
          break;
 
        case ButtonPress:
@@ -3212,8 +3579,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
            if (f)
              {
                if (!x_focus_frame || (f == x_focus_frame))
            if (f)
              {
                if (!x_focus_frame || (f == x_focus_frame))
-                 construct_mouse_click (&emacs_event,
-                                        &event, f);
+                 construct_mouse_click (&emacs_event, &event, f);
              }
            else
              {
              }
            else
              {
@@ -3222,6 +3588,15 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
 
                if (bar)
                  x_scroll_bar_handle_click (bar, &event, &emacs_event);
 
                if (bar)
                  x_scroll_bar_handle_click (bar, &event, &emacs_event);
+#ifdef USE_X_TOOLKIT
+               else
+                 {
+                   f = x_any_window_to_frame (event.xbutton.window);
+                   if (f && event.type == ButtonPress)
+                     construct_menu_click (&emacs_event,
+                                           &event, f);
+                 }
+#endif /* USE_X_TOOLKIT */
              }
 
            if (numchars >= 1 && emacs_event.kind != no_event)
              }
 
            if (numchars >= 1 && emacs_event.kind != no_event)
@@ -3231,6 +3606,10 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
                count++;
                numchars--;
              }
                count++;
                numchars--;
              }
+
+#ifdef USE_X_TOOLKIT
+           goto OTHER;
+#endif /* USE_X_TOOLKIT */
          }
          break;
 
          }
          break;
 
@@ -3258,13 +3637,13 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
          if (numchars >= 2)
            {
              bufp->kind = ascii_keystroke;
          if (numchars >= 2)
            {
              bufp->kind = ascii_keystroke;
-             bufp->code = (char) 'X' & 037; /* C-x */
+             bufp->code = 'X' & 037; /* C-x */
              XSET (bufp->frame_or_window, Lisp_Frame, f);
              XSET (bufp->time, Lisp_Int, event.xkey.time);
              bufp++;
 
              bufp->kind = ascii_keystroke;
              XSET (bufp->frame_or_window, Lisp_Frame, f);
              XSET (bufp->time, Lisp_Int, event.xkey.time);
              bufp++;
 
              bufp->kind = ascii_keystroke;
-             bufp->code = (char) 0; /* C-@ */
+             bufp->code = 0; /* C-@ */
              XSET (bufp->frame_or_window, Lisp_Frame, f);
              XSET (bufp->time, Lisp_Int, event.xkey.time);
              bufp++;
              XSET (bufp->frame_or_window, Lisp_Frame, f);
              XSET (bufp->time, Lisp_Int, event.xkey.time);
              bufp++;
@@ -3295,13 +3674,34 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
            case MappingKeyboard:
              XRefreshKeyboardMapping (&event.xmapping);
            }
            case MappingKeyboard:
              XRefreshKeyboardMapping (&event.xmapping);
            }
+#ifdef USE_X_TOOLKIT
+         goto OTHER;
+#endif /* USE_X_TOOLKIT */
          break;
 
        default:
          break;
 
        default:
+#ifdef USE_X_TOOLKIT
+       OTHER:
+         BLOCK_INPUT;
+         XtDispatchEvent (&event);
+         UNBLOCK_INPUT;
+#endif /* USE_X_TOOLKIT */
          break;
        }
     }
 
          break;
        }
     }
 
+#ifdef X_IO_BUG
+  if (! event_found)
+    /* On some systems, an X bug causes Emacs to get no more events
+       when the window is destroyed.  Detect that.  (1994.)  */
+    XNoOp (x_current_display);
+#endif /* X_IO_BUG */
+
+#if 0 /* This fails for serial-line connections to the X server, 
+        because the characters arrive one by one, and a partial
+        command makes select return but gives nothing to read.
+        We'll have to hope that the bug that this tried to fix
+        in 1988 has been fixed in Xlib or the X server.  */
 #ifdef HAVE_SELECT
   if (expected && ! event_found)
     {
 #ifdef HAVE_SELECT
   if (expected && ! event_found)
     {
@@ -3309,16 +3709,20 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
         there is an EOF condition; in other words, that X has died.
         Act as if there had been a hangup. */
       int fd = ConnectionNumber (x_current_display);
         there is an EOF condition; in other words, that X has died.
         Act as if there had been a hangup. */
       int fd = ConnectionNumber (x_current_display);
-      SELECT_TYPE mask;
+      SELECT_TYPE mask, junk1, junk2;
       EMACS_TIME timeout;
 
       EMACS_TIME timeout;
 
-      FD_SET(fd, &mask);
+      FD_ZERO (&mask);
+      FD_SET (fd, &mask);
       EMACS_SET_SECS_USECS (timeout, 0, 0);
       EMACS_SET_SECS_USECS (timeout, 0, 0);
-      if (0 != select (fd + 1, &mask, (long *) 0, (long *) 0, &timeout)
+      FD_ZERO (&junk1);
+      FD_ZERO (&junk2);
+      if (0 != select (fd + 1, &mask, &junk1, &junk2, &timeout)
          && !XStuffPending ())
        kill (getpid (), SIGHUP);
     }
          && !XStuffPending ())
        kill (getpid (), SIGHUP);
     }
-#endif /* ! defined (HAVE_SELECT) */
+#endif /* HAVE_SELECT */
+#endif /* 0 */
 
 #ifndef HAVE_X11
   if (updating_frame == 0)
 
 #ifndef HAVE_X11
   if (updating_frame == 0)
@@ -3625,6 +4029,8 @@ x_display_cursor (f, on)
      struct frame *f;
      int on;
 {
      struct frame *f;
      int on;
 {
+  BLOCK_INPUT;
+
   if (FRAME_DESIRED_CURSOR (f) == filled_box_cursor)
     x_display_box_cursor (f, on);
   else if (FRAME_DESIRED_CURSOR (f) == bar_cursor)
   if (FRAME_DESIRED_CURSOR (f) == filled_box_cursor)
     x_display_box_cursor (f, on);
   else if (FRAME_DESIRED_CURSOR (f) == bar_cursor)
@@ -3632,6 +4038,8 @@ x_display_cursor (f, on)
   else
     /* Those are the only two we have implemented!  */
     abort ();
   else
     /* Those are the only two we have implemented!  */
     abort ();
+
+  UNBLOCK_INPUT;
 }
 \f
 /* Icons.  */
 }
 \f
 /* Icons.  */
@@ -3892,7 +4300,7 @@ x_error_catcher (display, error)
 
    Calling x_uncatch_errors resumes the normal error handling.  */
 
 
    Calling x_uncatch_errors resumes the normal error handling.  */
 
-void x_catch_errors(), x_check_errors (), x_uncatch_errors ();
+void x_catch_errors (), x_check_errors (), x_uncatch_errors ();
 
 void
 x_catch_errors ()
 
 void
 x_catch_errors ()
@@ -3912,6 +4320,7 @@ x_catch_errors ()
 /* If any X protocol errors have arrived since the last call to
    x_catch_errors or x_check_errors, signal an Emacs error using
    sprintf (a buffer, FORMAT, the x error message text) as the text.  */
 /* If any X protocol errors have arrived since the last call to
    x_catch_errors or x_check_errors, signal an Emacs error using
    sprintf (a buffer, FORMAT, the x error message text) as the text.  */
+
 void
 x_check_errors (format)
      char *format;
 void
 x_check_errors (format)
      char *format;
@@ -3929,6 +4338,19 @@ x_check_errors (format)
     }
 }
 
     }
 }
 
+/* Nonzero if we had any X protocol errors since we did x_catch_errors.  */
+
+int
+x_had_errors_p ()
+{
+  /* Make sure to catch any errors incurred so far.  */
+  XSync (x_current_display, False);
+
+  return x_caught_error_message[0] != 0;
+}
+
+/* Stop catching X protocol errors and let them make Emacs die.  */
+
 void
 x_uncatch_errors ()
 {
 void
 x_uncatch_errors ()
 {
@@ -3954,8 +4376,14 @@ x_trace_wire ()
 
 #ifdef HAVE_X11
 
 
 #ifdef HAVE_X11
 
+struct font_info
+{
+  XFontStruct *font;
+  char *name;
+};
+
 /* A table of all the fonts we have already loaded.  */
 /* A table of all the fonts we have already loaded.  */
-static XFontStruct **x_font_table;
+static struct font_info *x_font_table;
 
 /* The current capacity of x_font_table.  */
 static int x_font_table_size;
 
 /* The current capacity of x_font_table.  */
 static int x_font_table_size;
@@ -3978,9 +4406,8 @@ x_new_font (f, fontname)
   /* Get a list of all the fonts that match this name.  Once we
      have a list of matching fonts, we compare them against the fonts
      we already have by comparing font ids.  */
   /* Get a list of all the fonts that match this name.  Once we
      have a list of matching fonts, we compare them against the fonts
      we already have by comparing font ids.  */
-  font_names = (char **) XListFontsWithInfo (x_current_display, fontname,
-                                            1024, &n_matching_fonts,
-                                            &font_info);
+  font_names = (char **) XListFonts (x_current_display, fontname,
+                                    1024, &n_matching_fonts);
   /* Apparently it doesn't set n_matching_fonts to zero when it can't
      find any matches; font_names == 0 is the only clue.  */
   if (! font_names)
   /* Apparently it doesn't set n_matching_fonts to zero when it can't
      find any matches; font_names == 0 is the only clue.  */
   if (! font_names)
@@ -3998,7 +4425,7 @@ x_new_font (f, fontname)
 
       for (i = 0; i < n_fonts; i++)
        for (j = 0; j < n_matching_fonts; j++)
 
       for (i = 0; i < n_fonts; i++)
        for (j = 0; j < n_matching_fonts; j++)
-         if (x_font_table[i]->fid == font_info[j].fid)
+         if (!strcmp (x_font_table[i].name, font_names[j]))
            {
              already_loaded = i;
              fontname = font_names[j];
            {
              already_loaded = i;
              fontname = font_names[j];
@@ -4008,8 +4435,8 @@ x_new_font (f, fontname)
  found_font:
   
   /* If we have, just return it from the table.  */
  found_font:
   
   /* If we have, just return it from the table.  */
-  if (already_loaded > 0)
-    f->display.x->font = x_font_table[already_loaded];
+  if (already_loaded >= 0)
+    f->display.x->font = x_font_table[already_loaded].font;
   
   /* Otherwise, load the font and add it to the table.  */
   else
   
   /* Otherwise, load the font and add it to the table.  */
   else
@@ -4034,9 +4461,9 @@ x_new_font (f, fontname)
       font = (XFontStruct *) XLoadQueryFont (x_current_display, fontname);
       if (! font)
        {
       font = (XFontStruct *) XLoadQueryFont (x_current_display, fontname);
       if (! font)
        {
-         /* Free the information from XListFontsWithInfo.  */
+         /* Free the information from XListFonts.  */
          if (n_matching_fonts)
          if (n_matching_fonts)
-           XFreeFontInfo (font_names, font_info, n_matching_fonts);
+           XFreeFontNames (font_names);
          return Qnil;
        }
 
          return Qnil;
        }
 
@@ -4045,22 +4472,24 @@ x_new_font (f, fontname)
        {
          x_font_table_size = 16;
          x_font_table
        {
          x_font_table_size = 16;
          x_font_table
-           = (XFontStruct **) xmalloc (x_font_table_size
-                                       * sizeof (x_font_table[0]));
+           = (struct font_info *) xmalloc (x_font_table_size
+                                           * sizeof (x_font_table[0]));
        }
       /* Do we need to grow the table?  */
       else if (n_fonts >= x_font_table_size)
        {
          x_font_table_size *= 2;
          x_font_table
        }
       /* Do we need to grow the table?  */
       else if (n_fonts >= x_font_table_size)
        {
          x_font_table_size *= 2;
          x_font_table
-           = (XFontStruct **) xrealloc (x_font_table,
-                                        (x_font_table_size
-                                         * sizeof (x_font_table[0])));
+           = (struct font_info *) xrealloc (x_font_table,
+                                            (x_font_table_size
+                                             * sizeof (x_font_table[0])));
        }
 
        }
 
-      f->display.x->font = x_font_table[n_fonts++] = font;
+      x_font_table[n_fonts].name = (char *) xmalloc (strlen (fontname) + 1);
+      bcopy (fontname, x_font_table[n_fonts].name, strlen (fontname) + 1);
+      f->display.x->font = x_font_table[n_fonts++].font = font;
     }
     }
-  
+
   /* Now make the frame display the given font.  */
   if (FRAME_X_WINDOW (f) != 0)
     {
   /* Now make the frame display the given font.  */
   if (FRAME_X_WINDOW (f) != 0)
     {
@@ -4071,16 +4500,17 @@ x_new_font (f, fontname)
       XSetFont (x_current_display, f->display.x->cursor_gc,
                f->display.x->font->fid);
 
       XSetFont (x_current_display, f->display.x->cursor_gc,
                f->display.x->font->fid);
 
-      x_set_window_size (f, f->width, f->height);
+      x_set_window_size (f, 0, f->width, f->height);
     }
 
   {
     }
 
   {
-    Lisp_Object lispy_name = build_string (fontname);
+    Lisp_Object lispy_name;
 
 
+    lispy_name = build_string (fontname);
 
 
-    /* Free the information from XListFontsWithInfo.  The data
+    /* Free the information from XListFonts.  The data
        we actually retain comes from XLoadQueryFont.  */
        we actually retain comes from XLoadQueryFont.  */
-    XFreeFontInfo (font_names, font_info, n_matching_fonts);
+    XFreeFontNames (font_names);
 
     return lispy_name;
   }
 
     return lispy_name;
   }
@@ -4103,29 +4533,52 @@ x_new_font (f, newname)
   f->display.x->font = temp;
 
   if (FRAME_X_WINDOW (f) != 0)
   f->display.x->font = temp;
 
   if (FRAME_X_WINDOW (f) != 0)
-    x_set_window_size (f, f->width, f->height);
+    x_set_window_size (f, 0, f->width, f->height);
 
   return 0;
 }
 #endif /* ! defined (HAVE_X11) */
 \f
 
   return 0;
 }
 #endif /* ! defined (HAVE_X11) */
 \f
-/* X Window sizes and positions.  */
-
 x_calc_absolute_position (f)
      struct frame *f;
 {
 #ifdef HAVE_X11
 x_calc_absolute_position (f)
      struct frame *f;
 {
 #ifdef HAVE_X11
+  Window win, child;
+  int win_x = 0, win_y = 0;
+
+  /* Find the position of the outside upper-left corner of
+     the inner window, with respect to the outer window.  */
+  if (f->display.x->parent_desc != ROOT_WINDOW)
+    {
+      BLOCK_INPUT;
+      XTranslateCoordinates (x_current_display,
+                              
+                            /* From-window, to-window.  */
+                            f->display.x->window_desc,
+                            f->display.x->parent_desc,
+
+                            /* From-position, to-position.  */
+                            0, 0, &win_x, &win_y,
+
+                            /* Child of win.  */
+                            &child);
+      UNBLOCK_INPUT;
+    }
+
+  /* Treat negative positions as relative to the leftmost bottommost
+     position that fits on the screen.  */
   if (f->display.x->left_pos < 0)
     f->display.x->left_pos = (x_screen_width 
   if (f->display.x->left_pos < 0)
     f->display.x->left_pos = (x_screen_width 
-                             - 2 * f->display.x->border_width
+                             - 2 * f->display.x->border_width - win_x
                              - PIXEL_WIDTH (f)
                              + f->display.x->left_pos);
 
   if (f->display.x->top_pos < 0)
     f->display.x->top_pos = (x_screen_height
                              - PIXEL_WIDTH (f)
                              + f->display.x->left_pos);
 
   if (f->display.x->top_pos < 0)
     f->display.x->top_pos = (x_screen_height
-                            - 2 * f->display.x->border_width
+                            - 2 * f->display.x->border_width - win_y
                             - PIXEL_HEIGHT (f)
                             + f->display.x->top_pos);
                             - PIXEL_HEIGHT (f)
                             + f->display.x->top_pos);
+
 #else /* ! defined (HAVE_X11) */
   WINDOWINFO_TYPE parentinfo;
 
 #else /* ! defined (HAVE_X11) */
   WINDOWINFO_TYPE parentinfo;
 
@@ -4150,35 +4603,51 @@ x_set_offset (f, xoff, yoff)
   x_calc_absolute_position (f);
 
   BLOCK_INPUT;
   x_calc_absolute_position (f);
 
   BLOCK_INPUT;
+#ifdef USE_X_TOOLKIT
+  XMoveWindow (XDISPLAY XtWindow (f->display.x->widget),
+              f->display.x->left_pos, f->display.x->top_pos);
+#else /* not USE_X_TOOLKIT */
   XMoveWindow (XDISPLAY FRAME_X_WINDOW (f),
               f->display.x->left_pos, f->display.x->top_pos);
   XMoveWindow (XDISPLAY FRAME_X_WINDOW (f),
               f->display.x->left_pos, f->display.x->top_pos);
+#endif /* not USE_X_TOOLKIT */
 #ifdef HAVE_X11
 #ifdef HAVE_X11
-  x_wm_set_size_hint (f, 0);
+  x_wm_set_size_hint (f, 0, 1, xoff, yoff);
 #endif /* ! defined (HAVE_X11) */
   UNBLOCK_INPUT;
 }
 
 #endif /* ! defined (HAVE_X11) */
   UNBLOCK_INPUT;
 }
 
-/* Call this to change the size of frame F's x-window. */
+/* Call this to change the size of frame F's x-window.
+   If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity
+   for this size change and subsequent size changes.
+   Otherwise we leave the window gravity unchanged.  */
 
 
-x_set_window_size (f, cols, rows)
+x_set_window_size (f, change_gravity, cols, rows)
      struct frame *f;
      struct frame *f;
+     int change_gravity;
      int cols, rows;
 {
   int pixelwidth, pixelheight;
   int mask;
 
      int cols, rows;
 {
   int pixelwidth, pixelheight;
   int mask;
 
+#ifdef USE_X_TOOLKIT
+  BLOCK_INPUT;
+  EmacsFrameSetCharSize (f->display.x->edit_widget, cols, rows);
+  UNBLOCK_INPUT;
+
+#else /* not USE_X_TOOLKIT */
+
   BLOCK_INPUT;
 
   check_frame_size (f, &rows, &cols);
   BLOCK_INPUT;
 
   check_frame_size (f, &rows, &cols);
-  f->display.x->vertical_scroll_bar_extra =
-    (FRAME_HAS_VERTICAL_SCROLL_BARS (f)
-     ? VERTICAL_SCROLL_BAR_PIXEL_WIDTH (f)
-     : 0);
+  f->display.x->vertical_scroll_bar_extra
+    = (FRAME_HAS_VERTICAL_SCROLL_BARS (f)
+       ? VERTICAL_SCROLL_BAR_PIXEL_WIDTH (f)
+       : 0);
   pixelwidth = CHAR_TO_PIXEL_WIDTH (f, cols);
   pixelheight = CHAR_TO_PIXEL_HEIGHT (f, rows);
 
 #ifdef HAVE_X11
   pixelwidth = CHAR_TO_PIXEL_WIDTH (f, cols);
   pixelheight = CHAR_TO_PIXEL_HEIGHT (f, rows);
 
 #ifdef HAVE_X11
-  x_wm_set_size_hint (f, 0);
+  x_wm_set_size_hint (f, 0, change_gravity, 0, 0);
 #endif /* ! defined (HAVE_X11) */
   XChangeWindowSize (FRAME_X_WINDOW (f), pixelwidth, pixelheight);
 
 #endif /* ! defined (HAVE_X11) */
   XChangeWindowSize (FRAME_X_WINDOW (f), pixelwidth, pixelheight);
 
@@ -4204,6 +4673,7 @@ x_set_window_size (f, cols, rows)
 
   XFlushQueue ();
   UNBLOCK_INPUT;
 
   XFlushQueue ();
   UNBLOCK_INPUT;
+#endif /* not USE_X_TOOLKIT */
 }
 
 #ifndef HAVE_X11
 }
 
 #ifndef HAVE_X11
@@ -4226,7 +4696,9 @@ x_set_mouse_position (f, x, y)
 {
   int pix_x, pix_y;
 
 {
   int pix_x, pix_y;
 
+#if 0 /* Let the user ask for this if he wants it.  */
   x_raise_frame (f);
   x_raise_frame (f);
+#endif
 
   pix_x = CHAR_TO_PIXEL_COL (f, x) + FONT_WIDTH  (f->display.x->font) / 2;
   pix_y = CHAR_TO_PIXEL_ROW (f, y) + FONT_HEIGHT (f->display.x->font) / 2;
 
   pix_x = CHAR_TO_PIXEL_COL (f, x) + FONT_WIDTH  (f->display.x->font) / 2;
   pix_y = CHAR_TO_PIXEL_ROW (f, y) + FONT_HEIGHT (f->display.x->font) / 2;
@@ -4247,7 +4719,9 @@ x_set_mouse_position (f, x, y)
 x_focus_on_frame (f)
      struct frame *f;
 {
 x_focus_on_frame (f)
      struct frame *f;
 {
+#if 0  /* This proves to be unpleasant.  */
   x_raise_frame (f);
   x_raise_frame (f);
+#endif
 #if 0
   /* I don't think that the ICCCM allows programs to do things like this
      without the interaction of the window manager.  Whatever you end up
 #if 0
   /* I don't think that the ICCCM allows programs to do things like this
      without the interaction of the window manager.  Whatever you end up
@@ -4278,7 +4752,11 @@ x_raise_frame (f)
   if (f->async_visible)
     {
       BLOCK_INPUT;
   if (f->async_visible)
     {
       BLOCK_INPUT;
+#ifdef USE_X_TOOLKIT
+      XRaiseWindow (XDISPLAY XtWindow (f->display.x->widget));
+#else /* not USE_X_TOOLKIT */
       XRaiseWindow (XDISPLAY FRAME_X_WINDOW (f));
       XRaiseWindow (XDISPLAY FRAME_X_WINDOW (f));
+#endif /* not USE_X_TOOLKIT */
       XFlushQueue ();
       UNBLOCK_INPUT;
     }
       XFlushQueue ();
       UNBLOCK_INPUT;
     }
@@ -4292,7 +4770,11 @@ x_lower_frame (f)
   if (f->async_visible)
     {
       BLOCK_INPUT;
   if (f->async_visible)
     {
       BLOCK_INPUT;
+#ifdef USE_X_TOOLKIT
+      XLowerWindow (XDISPLAY XtWindow (f->display.x->widget));
+#else /* not USE_X_TOOLKIT */
       XLowerWindow (XDISPLAY FRAME_X_WINDOW (f));
       XLowerWindow (XDISPLAY FRAME_X_WINDOW (f));
+#endif /* not USE_X_TOOLKIT */
       XFlushQueue ();
       UNBLOCK_INPUT;
     }
       XFlushQueue ();
       UNBLOCK_INPUT;
     }
@@ -4324,8 +4806,11 @@ x_make_frame_visible (f)
 #ifdef HAVE_X11
       if (! EQ (Vx_no_window_manager, Qt))
        x_wm_set_window_state (f, NormalState);
 #ifdef HAVE_X11
       if (! EQ (Vx_no_window_manager, Qt))
        x_wm_set_window_state (f, NormalState);
-
+#ifdef USE_X_TOOLKIT
+      XtPopup (f->display.x->widget, XtGrabNone);
+#else /* not USE_X_TOOLKIT */
       XMapWindow (XDISPLAY FRAME_X_WINDOW (f));
       XMapWindow (XDISPLAY FRAME_X_WINDOW (f));
+#endif /* not USE_X_TOOLKIT */
       if (FRAME_HAS_VERTICAL_SCROLL_BARS (f))
        XMapSubwindows (x_current_display, FRAME_X_WINDOW (f));
 #else /* ! defined (HAVE_X11) */
       if (FRAME_HAS_VERTICAL_SCROLL_BARS (f))
        XMapSubwindows (x_current_display, FRAME_X_WINDOW (f));
 #else /* ! defined (HAVE_X11) */
@@ -4365,8 +4850,13 @@ x_make_frame_invisible (f)
 
 #ifdef HAVE_X11R4
 
 
 #ifdef HAVE_X11R4
 
+#ifdef USE_X_TOOLKIT
+  if (! XWithdrawWindow (x_current_display, XtWindow (f->display.x->widget),
+                        DefaultScreen (x_current_display)))
+#else /* not USE_X_TOOLKIT */
   if (! XWithdrawWindow (x_current_display, FRAME_X_WINDOW (f),
                         DefaultScreen (x_current_display)))
   if (! XWithdrawWindow (x_current_display, FRAME_X_WINDOW (f),
                         DefaultScreen (x_current_display)))
+#endif /* not USE_X_TOOLKIT */
     {
       UNBLOCK_INPUT_RESIGNAL;
       error ("can't notify window manager of window withdrawal");
     {
       UNBLOCK_INPUT_RESIGNAL;
       error ("can't notify window manager of window withdrawal");
@@ -4381,7 +4871,11 @@ x_make_frame_invisible (f)
       XEvent unmap;
 
       unmap.xunmap.type = UnmapNotify;
       XEvent unmap;
 
       unmap.xunmap.type = UnmapNotify;
+#ifdef USE_X_TOOLKIT
+      unmap.xunmap.window = XtWindow (f->display.x->widget);
+#else /* not USE_X_TOOLKIT */
       unmap.xunmap.window = FRAME_X_WINDOW (f);
       unmap.xunmap.window = FRAME_X_WINDOW (f);
+#endif /* not USE_X_TOOLKIT */
       unmap.xunmap.event = DefaultRootWindow (x_current_display);
       unmap.xunmap.from_configure = False;
       if (! XSendEvent (x_current_display,
       unmap.xunmap.event = DefaultRootWindow (x_current_display);
       unmap.xunmap.from_configure = False;
       if (! XSendEvent (x_current_display,
@@ -4396,8 +4890,11 @@ x_make_frame_invisible (f)
     }
 
   /* Unmap the window ourselves.  Cheeky!  */
     }
 
   /* Unmap the window ourselves.  Cheeky!  */
+#ifdef USE_X_TOOLKIT
+  XUnmapWindow (x_current_display, XtWindow (f->display.x->widget));
+#else /* not USE_X_TOOLKIT */
   XUnmapWindow (x_current_display, FRAME_X_WINDOW (f));
   XUnmapWindow (x_current_display, FRAME_X_WINDOW (f));
-
+#endif /* not USE_X_TOOLKIT */
 #else /* ! defined (HAVE_X11) */
 
   XUnmapWindow (FRAME_X_WINDOW (f));
 #else /* ! defined (HAVE_X11) */
 
   XUnmapWindow (FRAME_X_WINDOW (f));
@@ -4418,6 +4915,7 @@ x_iconify_frame (f)
      struct frame *f;
 {
   int mask;
      struct frame *f;
 {
   int mask;
+  int result;
 
   /* Don't keep the highlight on an invisible frame.  */
   if (x_highlight_frame == f)
 
   /* Don't keep the highlight on an invisible frame.  */
   if (x_highlight_frame == f)
@@ -4426,6 +4924,23 @@ x_iconify_frame (f)
   if (f->async_iconified)
     return;
 
   if (f->async_iconified)
     return;
 
+#ifdef USE_X_TOOLKIT
+  BLOCK_INPUT;
+  result = XIconifyWindow (x_current_display,
+                          XtWindow (f->display.x->widget),
+                          DefaultScreen (x_current_display));
+  UNBLOCK_INPUT;
+
+  if (!result)
+    error ("Can't notify window manager of iconification.");
+
+  f->async_iconified = 1;
+
+  BLOCK_INPUT;
+  XFlushQueue ();
+  UNBLOCK_INPUT;
+#else /* not USE_X_TOOLKIT */
+
   BLOCK_INPUT;
 
 #ifdef HAVE_X11
   BLOCK_INPUT;
 
 #ifdef HAVE_X11
@@ -4458,6 +4973,14 @@ x_iconify_frame (f)
      IconicState.  */
   x_wm_set_window_state (f, IconicState);
 
      IconicState.  */
   x_wm_set_window_state (f, IconicState);
 
+  if (!FRAME_VISIBLE_P (f))
+    {
+      /* If the frame was withdrawn, before, we must map it.  */
+      XMapWindow (XDISPLAY FRAME_X_WINDOW (f));
+      if (FRAME_HAS_VERTICAL_SCROLL_BARS (f))
+       XMapSubwindows (x_current_display, FRAME_X_WINDOW (f));
+    }
+
   f->async_iconified = 1;
 #else /* ! defined (HAVE_X11) */
   XUnmapWindow (XDISPLAY FRAME_X_WINDOW (f));
   f->async_iconified = 1;
 #else /* ! defined (HAVE_X11) */
   XUnmapWindow (XDISPLAY FRAME_X_WINDOW (f));
@@ -4472,6 +4995,7 @@ x_iconify_frame (f)
 
   XFlushQueue ();
   UNBLOCK_INPUT;
 
   XFlushQueue ();
   UNBLOCK_INPUT;
+#endif /* not USE_X_TOOLKIT */
 }
 
 /* Destroy the X window of frame F.  */
 }
 
 /* Destroy the X window of frame F.  */
@@ -4484,6 +5008,11 @@ x_destroy_window (f)
   if (f->display.x->icon_desc != 0)
     XDestroyWindow (XDISPLAY f->display.x->icon_desc);
   XDestroyWindow (XDISPLAY f->display.x->window_desc);
   if (f->display.x->icon_desc != 0)
     XDestroyWindow (XDISPLAY f->display.x->icon_desc);
   XDestroyWindow (XDISPLAY f->display.x->window_desc);
+#ifdef USE_X_TOOLKIT
+  XtDestroyWidget (f->display.x->widget);
+  free_frame_menubar (f);
+#endif /* USE_X_TOOLKIT */
+
   free_frame_faces (f);
   XFlushQueue ();
 
   free_frame_faces (f);
   XFlushQueue ();
 
@@ -4513,7 +5042,7 @@ x_destroy_window (f)
    of certain kinds into our private queues.
 
    All ExposeRegion events are put in x_expose_queue.
    of certain kinds into our private queues.
 
    All ExposeRegion events are put in x_expose_queue.
-   All ButtonPressed and ButtonReleased events are put in x_mouse_queue.  */
+   All ButtonPress and ButtonRelease events are put in x_mouse_queue.  */
 
 
 /* Write the event *P_XREP into the event queue *QUEUE.
 
 
 /* Write the event *P_XREP into the event queue *QUEUE.
@@ -4575,12 +5104,27 @@ mouse_event_pending_p ()
 
 #ifdef HAVE_X11
 
 
 #ifdef HAVE_X11
 
-x_wm_set_size_hint (f, prompting)
+/* Record the gravity used previously, in case CHANGE_GRAVITY is 0.  */
+static int previous_gravity;
+
+/* SPEC_X and SPEC_Y are the specified positions.
+   We look only at their sign, to decide the gravity.
+   If CHANGE_GRAVITY is 0, we ignore SPEC_X and SPEC_Y
+   and leave the gravity unchanged.  */
+
+x_wm_set_size_hint (f, prompting, change_gravity, spec_x, spec_y)
      struct frame *f;
      long prompting;
      struct frame *f;
      long prompting;
+     int change_gravity;
+     int spec_x, spec_y;
 {
   XSizeHints size_hints;
 {
   XSizeHints size_hints;
+
+#ifdef USE_X_TOOLKIT
+  Window window = XtWindow (f->display.x->widget);
+#else /* not USE_X_TOOLKIT */
   Window window = FRAME_X_WINDOW (f);
   Window window = FRAME_X_WINDOW (f);
+#endif /* not USE_X_TOOLKIT */
 
   size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */;
 
 
   size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */;
 
@@ -4647,6 +5191,31 @@ x_wm_set_size_hint (f, prompting)
       if (hints.flags & USSize)
        size_hints.flags |= USSize;
     }
       if (hints.flags & USSize)
        size_hints.flags |= USSize;
     }
+#if defined (PWinGravity)
+  if (change_gravity)
+    {
+      switch (((spec_x < 0) << 1) + (spec_y < 0))
+       {
+       case 0:
+         size_hints.win_gravity = NorthWestGravity;
+         break;
+       case 1:
+         size_hints.win_gravity = NorthEastGravity;
+         break;
+       case 2:
+         size_hints.win_gravity = SouthWestGravity;
+         break;
+       case 3:
+         size_hints.win_gravity = SouthEastGravity;
+         break;
+       }
+      previous_gravity = size_hints.win_gravity;
+    }
+  else
+    size_hints.win_gravity = previous_gravity;
+
+  size_hints.flags |= PWinGravity;
+#endif /* PWinGravity */
 
 #ifdef HAVE_X11R4
   XSetWMNormalHints (x_current_display, window, &size_hints);
 
 #ifdef HAVE_X11R4
   XSetWMNormalHints (x_current_display, window, &size_hints);
@@ -4660,7 +5229,11 @@ x_wm_set_window_state (f, state)
      struct frame *f;
      int state;
 {
      struct frame *f;
      int state;
 {
+#ifdef USE_X_TOOLKIT
+  Window window = XtWindow (f->display.x->widget);
+#else /* not USE_X_TOOLKIT */
   Window window = FRAME_X_WINDOW (f);
   Window window = FRAME_X_WINDOW (f);
+#endif /* not USE_X_TOOLKIT */
 
   f->display.x->wm_hints.flags |= StateHint;
   f->display.x->wm_hints.initial_state = state;
 
   f->display.x->wm_hints.flags |= StateHint;
   f->display.x->wm_hints.initial_state = state;
@@ -4701,12 +5274,33 @@ x_wm_set_icon_position (f, icon_x, icon_y)
 \f
 /* Initialization.  */
 
 \f
 /* Initialization.  */
 
+#ifdef USE_X_TOOLKIT
+static XrmOptionDescRec emacs_options[] = {
+  {"-geometry",        ".geometry", XrmoptionSepArg, NULL},
+  {"-iconic",  ".iconic", XrmoptionNoArg, (XtPointer) "yes"},
+
+  {"-internal-border-width", "*EmacsScreen.internalBorderWidth",
+     XrmoptionSepArg, NULL},
+  {"-ib",      "*EmacsScreen.internalBorderWidth", XrmoptionSepArg, NULL},
+
+  {"-T",       "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL},
+  {"-wn",      "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL},
+  {"-title",   "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL},
+  {"-iconname",        "*EmacsShell.iconName", XrmoptionSepArg, (XtPointer) NULL},
+  {"-in",      "*EmacsShell.iconName", XrmoptionSepArg, (XtPointer) NULL},
+  {"-mc",      "*pointerColor", XrmoptionSepArg, (XtPointer) NULL},
+  {"-cr",      "*cursorColor", XrmoptionSepArg, (XtPointer) NULL}
+};
+#endif /* USE_X_TOOLKIT */
+
 void
 x_term_init (display_name)
      char *display_name;
 {
   Lisp_Object frame;
   char *defaultvalue;
 void
 x_term_init (display_name)
      char *display_name;
 {
   Lisp_Object frame;
   char *defaultvalue;
+  int argc = 0;
+  char** argv = 0;
 #ifndef F_SETOWN_BUG
 #ifdef F_SETOWN
   extern int old_fcntl_owner;
 #ifndef F_SETOWN_BUG
 #ifdef F_SETOWN
   extern int old_fcntl_owner;
@@ -4715,7 +5309,22 @@ x_term_init (display_name)
   
   x_focus_frame = x_highlight_frame = 0;
 
   
   x_focus_frame = x_highlight_frame = 0;
 
+#ifdef USE_X_TOOLKIT
+  argv = (char **) XtMalloc (3 * sizeof (char *));
+  argv [0] = "";
+  argv [1] = "-display";
+  argv [2] = display_name;
+  argc = 3;
+  Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs",
+                                 emacs_options, XtNumber (emacs_options),
+                                 &argc, argv,
+                                 NULL, NULL, 0);
+  XtFree (argv);
+  x_current_display = XtDisplay (Xt_app_shell);
+
+#else /* not USE_X_TOOLKIT */
   x_current_display = XOpenDisplay (display_name);
   x_current_display = XOpenDisplay (display_name);
+#endif /* not USE_X_TOOLKIT */
   if (x_current_display == 0)
     fatal ("X server %s not responding.\n\
 Check the DISPLAY environment variable or use \"-d\"\n",
   if (x_current_display == 0)
     fatal ("X server %s not responding.\n\
 Check the DISPLAY environment variable or use \"-d\"\n",
@@ -4723,30 +5332,10 @@ Check the DISPLAY environment variable or use \"-d\"\n",
 
 #ifdef HAVE_X11
   {
 
 #ifdef HAVE_X11
   {
-    int hostname_size = 256;
-
-    hostname = (char *) xmalloc (hostname_size);
-
 #if 0
     XSetAfterFunction (x_current_display, x_trace_wire);
 #endif /* ! 0 */
 #if 0
     XSetAfterFunction (x_current_display, x_trace_wire);
 #endif /* ! 0 */
-
-    /* Try to get the host name; if the buffer is too short, try
-       again.  Apparently, the only indication gethostname gives of
-       whether the buffer was large enough is the presence or absence
-       of a '\0' in the string.  Eech.  */
-    for (;;)
-      {
-       gethostname (hostname, hostname_size - 1);
-       hostname[hostname_size - 1] = '\0';
-
-       /* Was the buffer large enough for gethostname to store the '\0'?  */
-       if (strlen (hostname) < hostname_size - 1)
-         break;
-
-       hostname_size <<= 1;
-       hostname = (char *) xrealloc (hostname, hostname_size);
-      }
+    hostname = get_system_name ();
     x_id_name = (char *) xmalloc (XSTRING (Vinvocation_name)->size
                                + strlen (hostname)
                                + 2);
     x_id_name = (char *) xmalloc (XSTRING (Vinvocation_name)->size
                                + strlen (hostname)
                                + 2);
@@ -4767,29 +5356,19 @@ Check the DISPLAY environment variable or use \"-d\"\n",
 #endif
 
   if (ConnectionNumber (x_current_display) != 0)
 #endif
 
   if (ConnectionNumber (x_current_display) != 0)
-    {
-      dup2 (ConnectionNumber (x_current_display), 0);
-
-#ifndef SYSV_STREAMS
-      /* Streams somehow keeps track of which descriptor number
-        is being used to talk to X.  So it is not safe to substitute
-        descriptor 0.  But it is safe to make descriptor 0 a copy of it.  */
-      close (ConnectionNumber (x_current_display));
-      ConnectionNumber (x_current_display) = 0;        /* Looks a little strange?
-                                                * check the def of the macro;
-                                                * it is a genuine lvalue */
-#endif /* SYSV_STREAMS */
-    }
+    change_keyboard_wait_descriptor (ConnectionNumber (x_current_display));
+  change_input_fd (ConnectionNumber (x_current_display));
 
 #endif /* ! defined (HAVE_X11) */
   
 #ifndef F_SETOWN_BUG
 #ifdef F_SETOWN
 
 #endif /* ! defined (HAVE_X11) */
   
 #ifndef F_SETOWN_BUG
 #ifdef F_SETOWN
-  old_fcntl_owner = fcntl (0, F_GETOWN, 0);
+  old_fcntl_owner = fcntl (ConnectionNumber (x_current_display), F_GETOWN, 0);
 #ifdef F_SETOWN_SOCK_NEG
 #ifdef F_SETOWN_SOCK_NEG
-  fcntl (0, F_SETOWN, -getpid ());     /* stdin is a socket here */
+  /* stdin is a socket here */
+  fcntl (ConnectionNumber (x_current_display), F_SETOWN, -getpid ());
 #else /* ! defined (F_SETOWN_SOCK_NEG) */
 #else /* ! defined (F_SETOWN_SOCK_NEG) */
-  fcntl (0, F_SETOWN, getpid ());
+  fcntl (ConnectionNumber (x_current_display), F_SETOWN, getpid ());
 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
 #endif /* ! defined (F_SETOWN) */
 #endif /* F_SETOWN_BUG */
 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
 #endif /* ! defined (F_SETOWN) */
 #endif /* F_SETOWN_BUG */
@@ -4798,11 +5377,6 @@ Check the DISPLAY environment variable or use \"-d\"\n",
   init_sigio ();
 #endif /* ! defined (SIGIO) */
 
   init_sigio ();
 #endif /* ! defined (SIGIO) */
 
-  /* Must use interrupt input because we cannot otherwise
-     arrange for C-g to be noticed immediately.
-     We cannot connect it to SIGINT.  */
-  Fset_input_mode (Qt, Qnil, Qt, Qnil);
-
   expose_all_windows = 0;
 
   clear_frame_hook = XTclear_frame;
   expose_all_windows = 0;
 
   clear_frame_hook = XTclear_frame;
@@ -4837,6 +5411,9 @@ Check the DISPLAY environment variable or use \"-d\"\n",
                                   off the bottom */
   baud_rate = 19200;
 
                                   off the bottom */
   baud_rate = 19200;
 
+  /* Try to use interrupt input; if we can't, then start polling.  */
+  Fset_input_mode (Qt, Qnil, Qt, Qnil);
+
   /* Note that there is no real way portable across R3/R4 to get the 
      original error handler.  */
   XHandleError (x_error_quitter);
   /* Note that there is no real way portable across R3/R4 to get the 
      original error handler.  */
   XHandleError (x_error_quitter);
@@ -4854,6 +5431,7 @@ void
 syms_of_xterm ()
 {
   staticpro (&last_mouse_scroll_bar);
 syms_of_xterm ()
 {
   staticpro (&last_mouse_scroll_bar);
+  last_mouse_scroll_bar = Qnil;
 }
 #endif /* ! defined (HAVE_X11) */
 #endif /* ! defined (HAVE_X_WINDOWS) */
 }
 #endif /* ! defined (HAVE_X11) */
 #endif /* ! defined (HAVE_X_WINDOWS) */
Unnamed repository; edit this file 'description' to name the repository.