xterm.c

/* X Communication module for terminals which understand the X protocol.
   Copyright (C) 1989, 93, 94, 95, 96, 1997 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

/* Xt features made by Fred Pierresteguy.  */

/* On 4.3 these lose if they come after xterm.h.  */
/* On HP-UX 8.0 signal.h loses if it comes after config.h.  */
/* Putting these at the beginning seems to be standard for other .c files.  */
#include <signal.h>

#include <config.h>

#include <stdio.h>

#ifdef HAVE_X_WINDOWS

#include "lisp.h"
#include "blockinput.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"

/* This may include sys/types.h, and that somehow loses
   if this is not done before the other system files.  */
#include "xterm.h"
#include <X11/cursorfont.h>

#ifndef USG
/* Load sys/types.h if not already loaded.
   In some systems loading it twice is suicidal.  */
#ifndef makedev
#include <sys/types.h>
#endif /* makedev */
#endif /* USG */

#ifdef BSD_SYSTEM
#include <sys/ioctl.h>
#endif /* ! defined (BSD_SYSTEM) */

#include "systty.h"
#include "systime.h"

#ifndef INCLUDED_FCNTL
#include <fcntl.h>
#endif
#include <ctype.h>
#include <errno.h>
#include <setjmp.h>
#include <sys/stat.h>
/* Caused redefinition of DBL_DIG on Netbsd; seems not to be needed.  */
/* #include <sys/param.h>  */

#include "charset.h"
#include "ccl.h"
#include "fontset.h"
#include "frame.h"
#include "dispextern.h"
#include "termhooks.h"
#include "termopts.h"
#include "termchar.h"
#if 0
#include "sink.h"
#include "sinkmask.h"
#endif /* ! 0 */
#include "gnu.h"
#include "disptab.h"
#include "buffer.h"
#include "window.h"
#include "keyboard.h"
#include "intervals.h"
#include "process.h"

#ifdef USE_X_TOOLKIT
#include <X11/Shell.h>
#endif

#ifdef USE_X_TOOLKIT
extern void free_frame_menubar ();
extern FRAME_PTR x_menubar_window_to_frame ();
#if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
#define HACK_EDITRES
extern void _XEditResCheckMessages ();
#endif /* not NO_EDITRES */
#endif /* USE_X_TOOLKIT */

#ifndef USE_X_TOOLKIT
#define x_any_window_to_frame x_window_to_frame
#define x_top_window_to_frame x_window_to_frame
#endif

#ifdef USE_X_TOOLKIT
#include "widget.h"
#ifndef XtNinitialState
#define XtNinitialState "initialState"
#endif
#endif

#ifdef HAVE_SETLOCALE
/* So we can do setlocale.  */
#include <locale.h>
#endif

#ifdef SOLARIS2
/* memmove will be defined as a macro in Xfuncs.h unless
   <string.h> is included beforehand.  The declaration for memmove in
   <string.h> will cause a syntax error when Xfuncs.h later includes it.  */
#include <string.h>
#endif

#ifndef min
#define min(a,b) ((a)<(b) ? (a) : (b))
#endif
#ifndef max
#define max(a,b) ((a)>(b) ? (a) : (b))
#endif

/* This is a chain of structures for all the X displays currently in use.  */
struct x_display_info *x_display_list;

/* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
   one for each element of x_display_list and in the same order.
   NAME is the name of the frame.
   FONT-LIST-CACHE records previous values returned by x-list-fonts.  */
Lisp_Object x_display_name_list;

/* Frame being updated by update_frame.  This is declared in term.c.
   This is set by update_begin and looked at by all the
   XT functions.  It is zero while not inside an update.
   In that case, the XT functions assume that `selected_frame'
   is the frame to apply to.  */
extern struct frame *updating_frame;

extern int waiting_for_input;

/* This is a frame waiting to be autoraised, within XTread_socket.  */
struct frame *pending_autoraise_frame;

#ifdef USE_X_TOOLKIT
/* The application context for Xt use.  */
XtAppContext Xt_app_con;

static String Xt_default_resources[] =
{
  0
};
#endif

/* During an update, maximum vpos for ins/del line operations to affect.  */

static int flexlines;

/* During an update, nonzero if chars output now should be highlighted.  */

static int highlight;

/* Nominal cursor position -- where to draw output.
   During an update, these are different from the cursor-box position.  */

static int curs_x;
static int curs_y;

/* Mouse movement.

   Formerly, we used PointerMotionHintMask (in STANDARD_EVENT_MASK)
   so that we would have to call XQueryPointer after each MotionNotify
   event to ask for another such event.  However, this made mouse tracking
   slow, and there was a bug that made it eventually stop.

   Simply asking for MotionNotify all the time seems to work better.

   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.  */

/* Where the mouse was last time we reported a mouse event.  */
static FRAME_PTR last_mouse_frame;
static XRectangle last_mouse_glyph;

static Lisp_Object last_mouse_press_frame;

/* 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;

/* Incremented by XTread_socket whenever it really tries to read events.  */
#ifdef __STDC__
static int volatile input_signal_count;
#else
static int input_signal_count;
#endif

/* Used locally within XTread_socket.  */
static int x_noop_count;

/* Initial values of argv and argc.  */
extern char **initial_argv;
extern int initial_argc;

extern Lisp_Object Vcommand_line_args, Vsystem_name;

/* Tells if a window manager is present or not. */

extern Lisp_Object Vx_no_window_manager;

extern Lisp_Object Qface, Qmouse_face;

extern int errno;

/* A mask of extra modifier bits to put into every keyboard char.  */
extern int extra_keyboard_modifiers;

static Lisp_Object Qvendor_specific_keysyms;

extern XrmDatabase x_load_resources ();

extern Lisp_Object x_icon_type ();

void x_delete_display ();

static void redraw_previous_char ();
static void redraw_following_char ();
static unsigned int x_x_to_emacs_modifiers ();

static int fast_find_position ();
static void note_mouse_highlight ();
static void clear_mouse_face ();
static void show_mouse_face ();
static void do_line_dance ();

static void XTcursor_to ();
static void XTclear_end_of_line ();
static int x_io_error_quitter ();
int x_catch_errors ();
void x_uncatch_errors ();

#if 0
/* This is a function useful for recording debugging information
   about the sequence of occurrences in this file.  */

struct record 
{
  char *locus;
  int type;
};

struct record event_record[100];

int event_record_index;

record_event (locus, type)
     char *locus;
     int type;
{
  if (event_record_index == sizeof (event_record) / sizeof (struct record))
    event_record_index = 0;

  event_record[event_record_index].locus = locus;
  event_record[event_record_index].type = type;
  event_record_index++;
}

#endif /* 0 */

/* Return the struct x_display_info corresponding to DPY.  */

struct x_display_info *
x_display_info_for_display (dpy)
     Display *dpy;
{
  struct x_display_info *dpyinfo;

  for (dpyinfo = x_display_list; dpyinfo; dpyinfo = dpyinfo->next)
    if (dpyinfo->display == dpy)
      return dpyinfo;

  return 0;
}

/* Starting and ending updates.

   These hooks are called by update_frame at the beginning and end
   of a frame update.  We record in `updating_frame' the identity
   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_glyphs and XTreassert_line_highlight.  */

static void
XTupdate_begin (f)
     struct frame *f;
{
  int mask;

  if (f == 0)
    abort ();

  flexlines = f->height;
  highlight = 0;

  BLOCK_INPUT;

  curs_x = FRAME_CURSOR_X (f);
  curs_y = FRAME_CURSOR_Y (f);

  if (f == FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_frame)
    {
      /* Don't do highlighting for mouse motion during the update.  */
      FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 1;

      /* If the frame needs to be redrawn,
	 simply forget about any prior mouse highlighting.  */
      if (FRAME_GARBAGED_P (f))
	FRAME_X_DISPLAY_INFO (f)->mouse_face_window = Qnil;

      if (!NILP (FRAME_X_DISPLAY_INFO (f)->mouse_face_window))
	{
	  int firstline, lastline, i;
	  struct window *w = XWINDOW (FRAME_X_DISPLAY_INFO (f)->mouse_face_window);

	  /* Find the first, and the last+1, lines affected by redisplay.  */
	  for (firstline = 0; firstline < f->height; firstline++)
	    if (FRAME_DESIRED_GLYPHS (f)->enable[firstline])
	      break;

	  lastline = f->height;
	  for (i = f->height - 1; i >= 0; i--)
	    {
	      if (FRAME_DESIRED_GLYPHS (f)->enable[i])
		break;
	      else
		lastline = i;
	    }

	  /* Can we tell that this update does not affect the window
	     where the mouse highlight is?  If so, no need to turn off.
	     Likewise, don't do anything if the frame is garbaged;
	     in that case, the FRAME_CURRENT_GLYPHS that we would use
	     are all wrong, and we will redisplay that line anyway.  */
	  if (! (firstline > (XFASTINT (w->top) + window_internal_height (w))
		 || lastline < XFASTINT (w->top)))
	    clear_mouse_face (FRAME_X_DISPLAY_INFO (f));
	}
    }

  UNBLOCK_INPUT;
}

static void
XTupdate_end (f)
     struct frame *f;
{
  int mask;

  BLOCK_INPUT;

  do_line_dance ();
  x_display_cursor (f, 1, curs_x, curs_y);

  FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0;
#if 0
  /* This fails in the case of having updated only the echo area
     if we have switched buffers.  In that case, FRAME_CURRENT_GLYPHS
     has no relation to the current contents, and its charstarts
     have no relation to the contents of the window-buffer.
  I don't know a clean way to check
     for that case.  window_end_valid isn't set up yet.  */
  if (f == FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_frame)
    note_mouse_highlight (f, FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_x,
			  FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_y);
#endif

  XFlush (FRAME_X_DISPLAY (f));
  UNBLOCK_INPUT;
}

/* This is called after a redisplay on frame F.  */

static void
XTframe_up_to_date (f)
     FRAME_PTR f;
{
  BLOCK_INPUT;
  if (FRAME_X_DISPLAY_INFO (f)->mouse_face_deferred_gc
      || f == FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_frame)
    {
      if (FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_frame)
	note_mouse_highlight (FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_frame,
			      FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_x,
			      FRAME_X_DISPLAY_INFO (f)->mouse_face_mouse_y);
      FRAME_X_DISPLAY_INFO (f)->mouse_face_deferred_gc = 0;
    }
  UNBLOCK_INPUT;
}

/* External interface to control of standout mode.
   Call this when about to modify line at position VPOS
   and not change whether it is highlighted.  */

void
XTreassert_line_highlight (new, vpos)
     int new, vpos;
{
  highlight = new;
}

/* Call this when about to modify line at position VPOS
   and change whether it is highlighted.  */

static void
XTchange_line_highlight (new_highlight, vpos, first_unused_hpos)
     int new_highlight, vpos, first_unused_hpos;
{
  highlight = new_highlight;
  XTcursor_to (vpos, 0);
  XTclear_end_of_line (FRAME_WINDOW_WIDTH (updating_frame));
}

/* This is used when starting Emacs and when restarting after suspend.
   When starting Emacs, no X window is mapped.  And nothing must be done
   to Emacs's own window if it is suspended (though that rarely happens).  */

static void
XTset_terminal_modes ()
{
}

/* This is called when exiting or suspending Emacs.
   Exiting will make the X-windows go away, and suspending
   requires no action.  */

static void
XTreset_terminal_modes ()
{
/*  XTclear_frame ();  */
}

/* Set the nominal cursor position of the frame.
   This is where display update commands will take effect.
   This does not affect the place where the cursor-box is displayed.  */

static void
XTcursor_to (row, col)
     register int row, col;
{
  int mask;
  int orow = row;
  struct frame *f;
  
  f = updating_frame;
  if (f == 0)
    f = selected_frame;

  curs_x = col;
  if (curs_x >= FRAME_CURSOR_X_LIMIT (f))
    curs_x = FRAME_CURSOR_X_LIMIT (f) - 1;

  curs_y = row;

  if (updating_frame == 0)
    {
      BLOCK_INPUT;
      x_display_cursor (selected_frame, 1, curs_x, curs_y);
      XFlush (FRAME_X_DISPLAY (selected_frame));
      UNBLOCK_INPUT;
    }
}


/* Return a pointer to per char metric information in FONT of a
   character pointed by B (*XChar2b).  */

#define PER_CHAR_METRIC(font, b)					   \
  ((font)->per_char							   \
   ? ((font)->per_char + (b)->byte2 - (font)->min_char_or_byte2		   \
      + (((font)->min_byte1 || (font)->max_byte1)			   \
	 ? (((b)->byte1 - (font)->min_byte1)				   \
	    * ((font)->max_char_or_byte2 - (font)->min_char_or_byte2 + 1)) \
	 : 0))								   \
   : &((font)->max_bounds))

/* Display a sequence of N glyphs found at GP.
   WINDOW is the x-window to output to.  LEFT and TOP are starting coords.
   HL is 1 if this text is highlighted, 2 if the cursor is on it,
   3 if should appear in its mouse-face.
   JUST_FOREGROUND if 1 means draw only the foreground;
   don't alter the background.

   CMPCHARP if non NULL is a pointer to the struct cmpchar_info, which
   means drawing glyphs on the same column.  This is set to non NULL
   only when recursively called within dumpglyphs to draw a composite
   character specified by CMPCHAR.

   FONT is the default font to use (for glyphs whose font-code is 0).

   Since the display generation code is responsible for calling
   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.
   Call this function with input blocked.

   Return overall pixel width of the drawn glyphs.  */

#if 1
/* This is the multi-face code.  */

static int
dumpglyphs (f, left, top, gp, n, hl, just_foreground, cmpcharp)
     struct frame *f;
     int left, top;
     register GLYPH *gp; /* Points to first GLYPH. */
     register int n;  /* Number of glyphs to display. */
     int hl;
     int just_foreground;
     struct cmpchar_info *cmpcharp;
{
  /* Holds characters to be displayed. */
  XChar2b *x_2byte_buffer
    = (XChar2b *) alloca (FRAME_WINDOW_WIDTH (f) * sizeof (*x_2byte_buffer));
  register XChar2b *cp;		/* Steps through x_2byte_buffer[]. */
  char *x_1byte_buffer
    = (char *) alloca (FRAME_WINDOW_WIDTH (f) * sizeof (*x_1byte_buffer));
  register int tlen = GLYPH_TABLE_LENGTH;
  register Lisp_Object *tbase = GLYPH_TABLE_BASE;
  Window window = FRAME_X_WINDOW (f);
  int orig_left = left;
  int gidx = 0;
  int i;

  while (n > 0)
    {
      /* Get the face-code of the next GLYPH.  */
      int cf, len;
      GLYPH g = *gp;
      int ch, charset;
      Lisp_Object first_ch;
      /* HIGHEST and LOWEST are used while drawing a composite
         character.  The meanings are described later.  */
      int highest, lowest;

      GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
      cf = (cmpcharp ? cmpcharp->face_work : FAST_GLYPH_FACE (g));
      ch = FAST_GLYPH_CHAR (g);
      if (unibyte_display_via_language_environment
	  && SINGLE_BYTE_CHAR_P (ch)
	  && (ch >= 0240 || !NILP (Vnonascii_translation_table)))
	ch = unibyte_char_to_multibyte (ch);
      if (gidx == 0) XSETFASTINT (first_ch, ch);
      charset = CHAR_CHARSET (ch);
      if (charset == CHARSET_COMPOSITION)
	{
	  /* We must draw components of the composite character on the
             same column.  */
	  cmpcharp = cmpchar_table[COMPOSITE_CHAR_ID (ch)];

	  /* Set the face in the slot for work.  */
	  cmpcharp->face_work = cf;

	  /* We don't need the return value ... */
	  dumpglyphs (f, left, top, cmpcharp->glyph, cmpcharp->glyph_len,
		      hl, just_foreground, cmpcharp);
	  /* ... because the width of just drawn text can be
             calculated as follows.  */
	  left += FONT_WIDTH (f->output_data.x->font) * cmpcharp->width;

	  ++gp, --n;
	  while (gp && (*gp & GLYPH_MASK_PADDING)) ++gp, --n;
	  cmpcharp = NULL;
	  continue;
	}

      /* Find the run of consecutive glyphs which can be drawn with
	 the same GC (i.e. the same charset and the same face-code).
	 Extract their character codes into X_2BYTE_BUFFER.
	 If CMPCHARP is not NULL, face-code is not checked because we
	 use only the face specified in `cmpcharp->face_work'.  */
      cp = x_2byte_buffer;
      while (n > 0)
	{
	  int this_charset, c1, c2;

	  g = *gp;
	  GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
	  ch = FAST_GLYPH_CHAR (g);
	  if (unibyte_display_via_language_environment
	      && SINGLE_BYTE_CHAR_P (ch)
	      && (ch >= 0240 || !NILP (Vnonascii_translation_table)))
	    ch = unibyte_char_to_multibyte (ch);
	  SPLIT_CHAR (ch, this_charset, c1, c2);
	  if (this_charset != charset
	      || (cmpcharp == NULL && FAST_GLYPH_FACE (g) != cf))
	    break;

	  if (c2 > 0)
	    cp->byte1 = c1, cp->byte2 = c2;
	  else
	    cp->byte1 = 0, cp->byte2 = c1;
	  ++cp;
	  ++gp, --n;
	  while (gp && (*gp & GLYPH_MASK_PADDING))
	    ++gp, --n;
	}

      /* LEN gets the length of the run.  */
      len = cp - x_2byte_buffer;
      /* Now output this run of chars, with the font and pixel values
	 determined by the face code CF.  */
      {
	struct face *face = FRAME_DEFAULT_FACE (f);
	XFontStruct *font = NULL;
	GC gc;
	int stippled = 0;
	int line_height = f->output_data.x->line_height;
	/* Pixel width of each glyph in this run.  */
	int glyph_width
	  = (FONT_WIDTH (f->output_data.x->font)
	     * (cmpcharp ? cmpcharp->width : CHARSET_WIDTH (charset)));
	/* Overall pixel width of this run.  */
	int run_width
	  = (FONT_WIDTH (f->output_data.x->font)
	     * (cmpcharp ? cmpcharp->width : len * CHARSET_WIDTH (charset)));
	/* A flag to tell if we have already filled background.  We
	   fill background in advance in the following cases:
	   1) A face has stipple.
	   2) A height of font is shorter than LINE_HEIGHT.
	   3) Drawing a composite character.
	   4) Font has non-zero _MULE_BASELINE_OFFSET property.
	   After filling background, we draw glyphs by XDrawString16.  */
	int background_filled;
	/* Baseline position of a character, offset from TOP.  */
	int baseline;
	/* The property value of `_MULE_RELATIVE_COMPOSE' and
           `_MULE_DEFAULT_ASCENT'.  */
	int relative_compose = 0, default_ascent = 0;
	/* 1 if we find no font or a font of inappropriate size.  */
	int require_clipping;

	/* HL = 3 means use a mouse face previously chosen.  */
	if (hl == 3)
	  cf = FRAME_X_DISPLAY_INFO (f)->mouse_face_face_id;

	/* First look at the face of the text itself.  */
	if (cf != 0)
	  {
	    /* 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)
	      cf = 0;

	    if (cf == 1)
	      face = FRAME_MODE_LINE_FACE (f);
	    else
	      face = intern_face (f, FRAME_COMPUTED_FACES (f) [cf]);
	    if (FACE_STIPPLE (face))
	      stippled = 1;
	  }

	/* Then comes the distinction between modeline and normal text.  */
	else if (hl == 0)
	  ;
	else if (hl == 1)
	  {
	    face = FRAME_MODE_LINE_FACE (f);
	    if (FACE_STIPPLE (face))
	      stippled = 1;
	  }

#define FACE_DEFAULT (~0)

	/* Setting appropriate font and gc for this charset.  */
	if (charset != CHARSET_ASCII)
	  {
	    int font_id;
	    int fontset = FACE_FONTSET (face);
	    struct font_info *fontp;

	    if ((fontset < 0 && (fontset = FRAME_FONTSET (f)) < 0)
		|| !(fontp = FS_LOAD_FONT (f, FRAME_X_FONT_TABLE (f),
					   charset, NULL, fontset)))
	      goto font_not_found;

	    font = (XFontStruct *) (fontp->font);
	    gc = FACE_NON_ASCII_GC (face);
	    XSetFont (FRAME_X_DISPLAY (f), gc, font->fid);
	    baseline
	      = (font->max_byte1 != 0
		 ? (line_height + font->ascent - font->descent) / 2
		 : f->output_data.x->font_baseline - fontp->baseline_offset);
	    if (FONT_HEIGHT (font) <= line_height
		&& (font->ascent > baseline
		    || font->descent > line_height - baseline))
	      /* Adjust baseline for this font to show the whole
                 glyphs in a line.  */
	      baseline = line_height - font->descent;
	      
	    if (cmpcharp && cmpcharp->cmp_rule == NULL)
	      {
		relative_compose = fontp->relative_compose;
		default_ascent = fontp->default_ascent;
	      }

	    /* We have to change code points in the following cases.  */
	    if (fontp->font_encoder)
	      {
		/* This font requires CCL program to calculate code
                   point of characters.  */
		struct ccl_program *ccl = fontp->font_encoder;

		if (CHARSET_DIMENSION (charset) == 1)
		  for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
		    {
		      ccl->reg[0] = charset;
		      ccl->reg[1] = cp->byte2;
		      ccl_driver (ccl, NULL, NULL, 0, 0, NULL);
		      /* We assume that MSBs are appropriately
                         set/reset by CCL program.  */
		      if (font->max_byte1 == 0)	/* 1-byte font */
			cp->byte1 = 0, cp->byte2 = ccl->reg[1];
		      else
			cp->byte1 = ccl->reg[1], cp->byte2 = ccl->reg[2];
		    }
		else
		  for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
		    {
		      ccl->reg[0] = charset;
		      ccl->reg[1] = cp->byte1, ccl->reg[2] = cp->byte2;
		      ccl_driver (ccl, NULL, NULL, 0, 0, NULL);
		      /* We assume that MSBs are appropriately
                         set/reset by CCL program.  */
		      if (font->max_byte1 == 0)	/* 1-byte font */
			cp->byte1 = 0, cp->byte2 = ccl->reg[1];
		      else
			cp->byte1 = ccl->reg[1], cp->byte2 = ccl->reg[2];
		    }
	      }
	    else if (fontp->encoding[charset])
	      {
		int enc = fontp->encoding[charset];

		if ((enc == 1 || enc == 2) && CHARSET_DIMENSION (charset) == 2)
		  for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
		    cp->byte1 |= 0x80;
		if (enc == 1 || enc == 3)
		  for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
		    cp->byte2 |= 0x80;
	      }
	  }
	else
	  {
	  font_not_found:
	    if (charset == CHARSET_ASCII || charset == charset_latin_iso8859_1)
	      {
		font = FACE_FONT (face);
		if (!font || font == (XFontStruct *) FACE_DEFAULT)
		  font = f->output_data.x->font;
		baseline = FONT_BASE (f->output_data.x->font);
		if (charset == charset_latin_iso8859_1)
		  {
		    if (font->max_char_or_byte2 < 0x80)
		      /* This font can't display Latin1 characters.  */
		      font = NULL;
		    else
		      {
			for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
			  cp->byte2 |= 0x80;
		      }
		  }
	      }
	    gc = FACE_GC (face);
	  }

	/* Now override that if the cursor's on this character.  */
	if (hl == 2)
	  {
	    /* The cursor overrides stippling.  */
	    stippled = 0;

	    if (font == f->output_data.x->font
		&& face->background == f->output_data.x->background_pixel
		&& face->foreground == f->output_data.x->foreground_pixel
		&& !cmpcharp)
	      {
		gc = f->output_data.x->cursor_gc;
	      }
	    /* Cursor on non-default face: must merge.  */
	    else
	      {
		XGCValues xgcv;
		unsigned long mask;

		xgcv.background = f->output_data.x->cursor_pixel;
		xgcv.foreground = face->background;
		/* If the glyph would be invisible,
		   try a different foreground.  */
		if (xgcv.foreground == xgcv.background)
		  xgcv.foreground = face->foreground;
		if (xgcv.foreground == xgcv.background)
		  xgcv.foreground = f->output_data.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.graphics_exposures = 0;
		mask = GCForeground | GCBackground | GCGraphicsExposures;
		if (font)
		  {
		    xgcv.font = font->fid;
		    mask |= GCFont;
		  }

		if (FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc)
		  XChangeGC (FRAME_X_DISPLAY (f),
			     FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc,
			     mask, &xgcv);
		else
		  FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc
		    = XCreateGC (FRAME_X_DISPLAY (f), window, mask, &xgcv);
		gc = FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc;
#if 0
/* If this code is restored, it must also reset to the default stipple
   if necessary. */
		if (face->stipple && face->stipple != FACE_DEFAULT)
		  XSetStipple (FRAME_X_DISPLAY (f), gc, face->stipple);
#endif
	      }
	  }

	if (font)
	  require_clipping = (!NILP (Vclip_large_size_font)
			      && (font->ascent > baseline
				  || font->descent > line_height - baseline
				  || (!cmpcharp
				      && FONT_WIDTH (font) > glyph_width)));

	if (font && (just_foreground || (cmpcharp && gidx > 0)))
	  background_filled = 1;
	else if (stippled)
	  {
	    /* Turn stipple on.  */
	    XSetFillStyle (FRAME_X_DISPLAY (f), gc, FillOpaqueStippled);

	    /* Draw stipple or background color on background.  */
	    XFillRectangle (FRAME_X_DISPLAY (f), window, gc,
			    left, top, run_width, line_height);

	    /* Turn stipple off.  */
	    XSetFillStyle (FRAME_X_DISPLAY (f), gc, FillSolid);

	    background_filled = 1;
	  }
	else if (!font
		 || FONT_HEIGHT (font) < line_height
		 || FONT_WIDTH (font) < glyph_width
		 || cmpcharp)
	  {
	    /* Fill a area for the current run in background pixle of GC.  */
	    XGCValues xgcv;
	    unsigned long mask = GCForeground | GCBackground | GCFillStyle;

	    /* The current code at first set foreground to background,
	      fill the area, then recover the original foreground.
	      Aren't there any smarter ways?  */

	    XGetGCValues (FRAME_X_DISPLAY (f), gc, mask, &xgcv);
	    XSetForeground (FRAME_X_DISPLAY (f), gc, xgcv.background);
	    XSetFillStyle (FRAME_X_DISPLAY (f), gc, FillSolid);
	    XFillRectangle (FRAME_X_DISPLAY (f), window, gc,
			    left, top, run_width, line_height);
	    XSetForeground (FRAME_X_DISPLAY (f), gc, xgcv.foreground);

	    background_filled = 1;
	    if (cmpcharp)
	      /* To assure not to fill background while drawing
		 remaining components.  */
	      just_foreground = 1;
	  }
	else
	  background_filled = 0;

	if (font)
	  {
	    if (require_clipping)
	      {
		Region region;	/* Region used for setting clip mask to GC.  */
		XPoint x[4];	/* Data used for creating REGION.  */

		x[0].x = x[3].x = left, x[1].x = x[2].x = left + glyph_width;
		x[0].y = x[1].y = top,  x[2].y = x[3].y = top + line_height;
		region = XPolygonRegion (x, 4, EvenOddRule);
		XSetRegion (FRAME_X_DISPLAY (f), gc, region);
		XDestroyRegion (region);
	      }

	    if (!cmpcharp)
	      {
		if (require_clipping || FONT_WIDTH (font) != glyph_width)
		  for (i = 0; i < len; i++)
		    {
		      if (require_clipping && i > 0) 
			XSetClipOrigin (FRAME_X_DISPLAY (f), gc,
					glyph_width * i, 0);
		      if (background_filled)
			XDrawString16 (FRAME_X_DISPLAY (f), window, gc,
				       left + glyph_width * i,
				       top + baseline, x_2byte_buffer + i, 1);
		      else
			XDrawImageString16 (FRAME_X_DISPLAY (f), window, gc,
					    left + glyph_width * i,
					    top + baseline, x_2byte_buffer + i, 1);
		    }
		else
		  {
		    /* See if this whole buffer can be output as 8-bit chars.
		       If so, copy x_2byte_buffer to x_1byte_buffer
		       and do it as 8-bit chars.  */
		    for (i = 0; i < len; i++)
		      {
			if (x_2byte_buffer[i].byte1 != 0)
			  break;
			x_1byte_buffer[i] = x_2byte_buffer[i].byte2;
		      }

		    if (i == len)
		      {
			if (background_filled)
			  XDrawString (FRAME_X_DISPLAY (f), window, gc,
				       left, top + baseline, x_1byte_buffer, len);
			else
			  XDrawImageString (FRAME_X_DISPLAY (f), window, gc,
					    left, top + baseline, x_1byte_buffer, len);
		      }
		    else
		      {
			/* We can't output them as 8-bit chars,
			   so do it as 16-bit chars.  */

			if (background_filled)
			  XDrawString16 (FRAME_X_DISPLAY (f), window, gc,
					 left, top + baseline, x_2byte_buffer, len);
			else
			  XDrawImageString16 (FRAME_X_DISPLAY (f), window, gc,
					      left, top + baseline, x_2byte_buffer, len);
		      }
		  }
	      }
	    else
	      {
		/* Handle composite characters.  */
		XCharStruct *pcm; /* Pointer to per char metric info.  */

		if ((cmpcharp->cmp_rule || relative_compose)
		    && gidx == 0)
		  {
		    /* This is the first character.  Initialize variables.
		       HIGHEST is the highest position of glyphs ever
		       written, LOWEST the lowest position.  */
		    int x_offset = 0;

		    if (default_ascent
			&& CHAR_TABLE_P (Vuse_default_ascent)
			&& !NILP (Faref (Vuse_default_ascent, first_ch)))
		      {
			highest = default_ascent;
			lowest = 0;
		      }
		    else
		      {
			pcm = PER_CHAR_METRIC (font, x_2byte_buffer);
			highest = pcm->ascent + 1;
			lowest = - pcm->descent;
		      }

		    if (cmpcharp->cmp_rule)
		      x_offset = (cmpcharp->col_offset[0]
				  * FONT_WIDTH (f->output_data.x->font));
		    /* Draw the first character at the normal position.  */
		    XDrawString16 (FRAME_X_DISPLAY (f), window, gc,
				   left + x_offset, top + baseline, x_2byte_buffer, 1);
		    i = 1;
		    gidx++;
		  }
		else
		  i = 0;

		for (; i < len; i++, gidx++)
		  {
		    int x_offset = 0, y_offset = 0;

		    if (relative_compose)
		      {
			pcm = PER_CHAR_METRIC (font, x_2byte_buffer + i);
			if (NILP (Vignore_relative_composition)
			    || NILP (Faref (Vignore_relative_composition,
					    make_number (cmpcharp->glyph[gidx]))))
			  {
			    if (- pcm->descent >= relative_compose)
			      {
				/* Draw above the current glyphs.  */
				y_offset = highest + pcm->descent;
				highest += pcm->ascent + pcm->descent;
			      }
			    else if (pcm->ascent <= 0)
			      {
				/* Draw beneath the current glyphs.  */
				y_offset = lowest - pcm->ascent;
				lowest -= pcm->ascent + pcm->descent;
			      }
			  }
			else
			  {
			    /* Draw the glyph at normal position.  If
                               it sticks out of HIGHEST or LOWEST,
                               update them appropriately.  */
			    if (pcm->ascent > highest)
			      highest = pcm->ascent;
			    else if (- pcm->descent < lowest)
			      lowest = - pcm->descent;
			  }
		      }
		    else if (cmpcharp->cmp_rule)
		      {
			int gref = (cmpcharp->cmp_rule[gidx] - 0xA0) / 9;
			int nref = (cmpcharp->cmp_rule[gidx] - 0xA0) % 9;
			int bottom, top;

			/* Re-encode GREF and NREF so that they specify
			   only Y-axis information:
			   0:top, 1:base, 2:bottom, 3:center  */
			gref = gref / 3 + (gref == 4) * 2;
			nref = nref / 3 + (nref == 4) * 2;

			pcm = PER_CHAR_METRIC (font, x_2byte_buffer + i);
			bottom = ((gref == 0 ? highest : gref == 1 ? 0
				   : gref == 2 ? lowest
				   : (highest + lowest) / 2)
				  - (nref == 0 ? pcm->ascent + pcm->descent
				     : nref == 1 ? pcm->descent : nref == 2 ? 0
				     : (pcm->ascent + pcm->descent) / 2));
			top = bottom + (pcm->ascent + pcm->descent);
			if (top > highest)
			  highest = top;
			if (bottom < lowest)
			  lowest = bottom;
			y_offset = bottom + pcm->descent;
			x_offset = (cmpcharp->col_offset[gidx]
				    * FONT_WIDTH (f->output_data.x->font));
		      }
		    XDrawString16 (FRAME_X_DISPLAY (f), window, gc,
				   left + x_offset, top + baseline - y_offset,
				   x_2byte_buffer + i, 1);
		  }
	      }
	    if (require_clipping)
	      XSetClipMask (FRAME_X_DISPLAY (f), gc, None);

#if 0 /* Doesn't work, because it uses FRAME_CURRENT_GLYPHS,
	 which often is not up to date yet.  */
	    if (!just_foreground)
	      {
		if (left == orig_left)
		  redraw_previous_char (f, PIXEL_TO_CHAR_COL (f, left),
					PIXEL_TO_CHAR_ROW (f, top), hl == 1);
		if (n == 0)
		  redraw_following_char (f, PIXEL_TO_CHAR_COL (f, left + len * FONT_WIDTH (font)),
					 PIXEL_TO_CHAR_ROW (f, top), hl == 1);
	      }
#endif
	  }
	if (!font)
	  {
	    /* Show rectangles to indicate that we found no font.  */
	    int limit = cmpcharp ? 1 : len;

	    for (i = 0; i < limit; i++)
	      XDrawRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc,
			      left + glyph_width * i, top,
			      glyph_width - 1, line_height - 1);
	  }
	else if (require_clipping && !NILP (Vhighlight_wrong_size_font))
	  {
	    /* Show ??? to indicate that we found a font of
               inappropriate size.  */
	    int limit = cmpcharp ? 1 : len;

	    for (i = 0; i < limit; i++)
	      {
		XDrawLine (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc,
			   left + glyph_width * i, top + line_height - 1,
			   left + glyph_width * i + 1, top + line_height - 1);
		XDrawLine (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc,
			   left + glyph_width * i, top + line_height - 3,
			   left + glyph_width * i, top + line_height - 1);
	      }