--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/redisplay-tty.c	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,1522 @@
+/* Communication module for TTY terminals.
+   Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
+   Copyright (C) 1995 Sun Microsystems, Inc.
+   Copyright (C) 1995, 1996 Ben Wing.
+   Copyright (C) 1996 Chuck Thompson.
+
+This file is part of XEmacs.
+
+XEmacs 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.
+
+XEmacs 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 XEmacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* Synched up with: Not completely synched with FSF.  Mostly divergent
+   from FSF. */
+
+/* This file has been Mule-ized. */
+
+/* Written by Chuck Thompson. */
+/* Color support added by Ben Wing. */
+
+#include <config.h>
+#include "lisp.h"
+
+#include "buffer.h"
+#include "console-tty.h"
+#include "events.h"
+#include "faces.h"
+#include "frame.h"
+#include "glyphs.h"
+#include "lstream.h"
+#include "objects-tty.h"
+#include "redisplay.h"
+#include "sysdep.h"
+#include "window.h"
+
+/* These headers #define all kinds of common words like "columns"...
+   What a bunch of losers.  If we were to include them, we'd have to
+   include them last to prevent them from messing up our own header
+   files (struct slot names, etc.).  But it turns out that there are
+   other conflicts as well on some systems, so screw it: we'll just
+   re-declare the routines we use and assume the code in this file is
+   invoking them correctly. */
+/* # include <curses.h> */
+/* # include <term.h> */
+extern int tgetent (CONST char *, CONST char *);
+extern int tgetflag (CONST char *);
+extern int tgetnum (CONST char *);
+extern char *tgetstr (CONST char *, char **);
+extern void tputs (CONST char *, int, void (*)(int));
+#define FORCE_CURSOR_UPDATE(c) send_string_to_tty_console (c, 0, 0)
+#define OUTPUTN(c, a, n)			\
+  do {						\
+    cmputc_console = c;				\
+    FORCE_CURSOR_UPDATE (c);			\
+    tputs (a, n, cmputc);			\
+  } while (0)
+#define OUTPUT1(c, a) OUTPUTN (c, a, 1)
+#define OUTPUTN_IF(c, a, n)			\
+  do {						\
+    cmputc_console = c;				\
+    FORCE_CURSOR_UPDATE (c);			\
+    if (a)					\
+      tputs (a, n, cmputc);			\
+  } while (0)
+#define OUTPUT1_IF(c, a) OUTPUTN_IF (c, a, 1)
+
+static void tty_output_emchar_dynarr (struct window *w,
+				      struct display_line *dl,
+				      emchar_dynarr *buf, int xpos,
+				      face_index findex,
+				      int cursor);
+static void tty_output_bufbyte_string (struct window *w,
+				       struct display_line *dl,
+				       Bufbyte *str, Bytecount len,
+				       int xpos, face_index findex,
+				       int cursor);
+static void tty_turn_on_face (struct window *w, face_index findex);
+static void tty_turn_off_face (struct window *w, face_index findex);
+static void tty_turn_on_frame_face (struct frame *f, Lisp_Object face);
+static void tty_turn_off_frame_face (struct frame *f, Lisp_Object face);
+
+static void term_get_fkeys (Lisp_Object keymap, char **address);
+
+/*****************************************************************************
+ tty_text_width
+
+ tty's don't have fonts (that we use at least), so everything is
+ considered to be fixed width.  In other words, we just return len.
+ ****************************************************************************/
+static int
+tty_text_width (struct face_cachel *cachel, CONST Emchar *str,
+		Charcount len)
+{
+  return emchar_string_displayed_columns (str, len);
+}
+
+/*****************************************************************************
+ tty_divider_width
+
+ Return the width of the vertical divider.  This is a function because
+ divider_width is a console method.
+ ****************************************************************************/
+static int
+tty_divider_width (void)
+{
+  return 1;
+}
+
+/*****************************************************************************
+ tty_divider_height
+
+ Return the width of the horizontal divider.  This is a function
+ because divider_height is a console method.
+ ****************************************************************************/
+static int
+tty_divider_height (void)
+{
+  return 1;
+}
+
+/*****************************************************************************
+ tty_eol_cursor_width
+
+ Return the width of the end-of-line cursor.  This is a function
+ because eol_cursor_width is a console method.
+ ****************************************************************************/
+static int
+tty_eol_cursor_width (void)
+{
+  return 1;
+}
+
+/*****************************************************************************
+ tty_output_begin
+
+ Perform any necessary initialization prior to an update.
+ ****************************************************************************/
+#ifdef DEBUG_XEMACS
+void tty_output_begin (struct device *d);
+void
+#else
+static void
+#endif
+tty_output_begin (struct device *d)
+{
+#ifndef HAVE_TERMIOS
+  /* Termcap requires `ospeed' to be a global variable so we have to
+     always set it for whatever tty console we are actually currently
+     working with. */
+  ospeed = DEVICE_TTY_DATA (d)->ospeed;
+#endif
+}
+
+/*****************************************************************************
+ tty_output_end
+
+ Perform any necessary flushing of queues when an update has completed.
+ ****************************************************************************/
+#ifdef DEBUG_XEMACS
+void tty_output_end (struct device *d);
+void
+#else
+static void
+#endif
+tty_output_end (struct device *d)
+{
+  struct console *c = XCONSOLE (DEVICE_CONSOLE (d));
+
+  FORCE_CURSOR_UPDATE (c);
+  Lstream_flush (XLSTREAM (CONSOLE_TTY_DATA (c)->outstream));
+}
+
+/*****************************************************************************
+ tty_output_display_block
+
+ Given a display line, a block number for that start line, output all
+ runes between start and end in the specified display block.
+ ****************************************************************************/
+static void
+tty_output_display_block (struct window *w, struct display_line *dl, int block,
+			  int start, int end, int start_pixpos,
+			  int cursor_start, int cursor_width,
+			  int cursor_height)
+{
+  struct frame *f = XFRAME (w->frame);
+  emchar_dynarr *buf = Dynarr_new (Emchar);
+
+  struct display_block *db = Dynarr_atp (dl->display_blocks, block);
+  rune_dynarr *rba = db->runes;
+  struct rune *rb;
+
+  int elt = start;
+  face_index findex;
+  int xpos;
+
+  rb = Dynarr_atp (rba, elt);
+
+  if (!rb)
+    {
+      /* Nothing to do so don't do anything. */
+      return;
+    }
+  else
+    {
+      findex = rb->findex;
+      xpos = rb->xpos;
+    }
+
+  if (end < 0)
+    end = Dynarr_length (rba);
+
+  Dynarr_reset (buf);
+
+  while (elt < end && Dynarr_atp (rba, elt)->xpos < start_pixpos)
+    {
+      elt++;
+      findex = Dynarr_atp (rba, elt)->findex;
+      xpos = Dynarr_atp (rba, elt)->xpos;
+    }
+
+  while (elt < end)
+    {
+      rb = Dynarr_atp (rba, elt);
+
+      if (rb->findex == findex && rb->type == RUNE_CHAR
+	  && rb->object.chr.ch != '\n'
+	  && (rb->cursor_type != CURSOR_ON
+	      || NILP (w->text_cursor_visible_p)))
+	{
+	  Dynarr_add (buf, rb->object.chr.ch);
+	  elt++;
+	}
+      else
+	{
+	  if (Dynarr_length (buf))
+	    {
+	      tty_output_emchar_dynarr (w, dl, buf, xpos, findex, 0);
+	      xpos = rb->xpos;
+	    }
+	  Dynarr_reset (buf);
+
+	  if (rb->type == RUNE_CHAR)
+	    {
+	      findex = rb->findex;
+	      xpos = rb->xpos;
+
+	      if (rb->object.chr.ch == '\n')
+		{
+		  /* Clear in case a cursor was formerly here. */
+
+		  Dynarr_add (buf, ' ');
+		  tty_output_emchar_dynarr (w, dl, buf, rb->xpos,
+					    DEFAULT_INDEX, 0);
+		  Dynarr_reset (buf);
+
+		  cmgoto (f, dl->ypos - 1, rb->xpos);
+
+		  elt++;
+		}
+	      else if (rb->cursor_type == CURSOR_ON)
+		{
+		  /* There is not a distinct eol cursor on tty's. */
+
+		  Dynarr_add (buf, rb->object.chr.ch);
+		  tty_output_emchar_dynarr (w, dl, buf, xpos, findex, 0);
+		  Dynarr_reset (buf);
+
+		  cmgoto (f, dl->ypos - 1, xpos);
+
+		  xpos += rb->width;
+		  elt++;
+		}
+	    }
+	  /* #### RUNE_HLINE is actualy a little more complicated than this
+             but at the moment it is only used to draw a turned off
+             modeline and this will suffice for that. */
+	  else if (rb->type == RUNE_BLANK || rb->type == RUNE_HLINE)
+	    {
+	      Emchar ch_to_add;
+	      int size = rb->width;
+
+	      if (rb->type == RUNE_BLANK)
+		ch_to_add = ' ';
+	      else
+		ch_to_add = '-';
+
+	      while (size--)
+		Dynarr_add (buf, ch_to_add);
+	      tty_output_emchar_dynarr (w, dl, buf, rb->xpos, findex, 0);
+
+	      if (xpos >= cursor_start
+		  && cursor_start < xpos + Dynarr_length (buf))
+		{
+		  cmgoto (f, dl->ypos - 1, cursor_start);
+		}
+
+	      Dynarr_reset (buf);
+
+	      elt++;
+	      if (elt < end)
+		{
+		  rb = Dynarr_atp (rba, elt);
+
+		  findex = rb->findex;
+		  xpos = rb->xpos;
+		}
+	    }
+	  else if (rb->type == RUNE_DGLYPH)
+	    {
+	      Lisp_Object window;
+	      Lisp_Object instance;
+
+	      XSETWINDOW (window, w);
+	      instance = glyph_image_instance (rb->object.dglyph.glyph,
+					       window, ERROR_ME_NOT, 1);
+
+	      if (IMAGE_INSTANCEP (instance))
+		switch (XIMAGE_INSTANCE_TYPE (instance))
+		  {
+		  case IMAGE_TEXT:
+		    {
+		      Bufbyte *temptemp;
+		      Lisp_Object string =
+			XIMAGE_INSTANCE_TEXT_STRING (instance);
+		      Bytecount len = string_length (XSTRING (string));
+
+		      /* In the unlikely instance that a garbage-collect
+			 occurs during encoding, we at least need to
+			 copy the string.
+			 */
+		      temptemp = (Bufbyte *) alloca (len);
+		      memcpy (temptemp, string_data (XSTRING (string)), len);
+		      {
+			int i;
+
+			/* Now truncate the first rb->object.dglyph.xoffset
+			   columns. */
+			for (i = 0; i < rb->object.dglyph.xoffset;)
+			  {
+			    i++; /* telescope this */
+			    INC_CHARPTR (temptemp);
+			  }
+
+			/* If we truncated one column too many, then
+			   add a space at the beginning. */
+			if (i > rb->object.dglyph.xoffset)
+			  {
+			    assert (i > 0);
+			    *--temptemp = ' ';
+			    i--;
+			  }
+			len -= i;
+		      }
+
+		      tty_output_bufbyte_string (w, dl, temptemp, len,
+						 xpos, findex, 0);
+		    
+		      if (xpos >= cursor_start
+			  && (cursor_start <
+			      xpos + (bufbyte_string_displayed_columns
+				      (temptemp, len))))
+			{
+			  cmgoto (f, dl->ypos - 1, cursor_start);
+			}
+		    }
+		    break;
+
+		  case IMAGE_MONO_PIXMAP:
+		  case IMAGE_COLOR_PIXMAP:
+		  case IMAGE_SUBWINDOW:
+		    /* just do nothing here */
+		    break;
+
+		  case IMAGE_POINTER:
+		    abort ();
+
+		  case IMAGE_NOTHING:
+		    /* nothing is as nothing does */
+		    break;
+
+		  default:
+		    abort ();
+		  }
+
+	      xpos += rb->width;
+	      elt++;
+	    }
+	  else
+	    abort ();
+	}
+    }
+
+  if (Dynarr_length (buf))
+    tty_output_emchar_dynarr (w, dl, buf, xpos, findex, 0);
+  Dynarr_free (buf);
+
+}
+
+
+
+/*****************************************************************************
+ tty_output_vertical_divider
+
+ Draw a vertical divider down the left side of the given window.
+ ****************************************************************************/
+static void
+tty_output_vertical_divider (struct window *w, int clear)
+{
+  struct frame *f = XFRAME (w->frame);
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+  int line;
+  int y1 = WINDOW_TEXT_TOP (w);
+  int y2 = WINDOW_TEXT_BOTTOM (w);
+  unsigned char divv = '|';
+
+  tty_turn_on_face (w, DEFAULT_INDEX);
+  for (line = y1; line < y2; line++)
+    {
+      cmgoto (f, line, WINDOW_TEXT_LEFT (w) - 1);
+      send_string_to_tty_console (c, &divv, 1);
+      TTY_INC_CURSOR_X (c, 1);
+    }
+  tty_turn_off_face (w, DEFAULT_INDEX);
+
+  /* Draw the divider in the modeline. */
+  cmgoto (f, y2, WINDOW_TEXT_LEFT (w) - 1);
+  tty_turn_on_face (w, MODELINE_INDEX);
+  send_string_to_tty_console (c, &divv, 1);
+  TTY_INC_CURSOR_X (c, 1);
+  tty_turn_off_face (w, MODELINE_INDEX);
+}
+
+/****************************************************************************
+ tty_clear_region
+
+ Clear the area in the box defined by the given parameters.
+ ****************************************************************************/
+static void
+tty_clear_region (Lisp_Object window, face_index findex, int x, int y,
+		  int width, int height)
+{
+  struct window *w = XWINDOW (window);
+  struct frame *f = XFRAME (w->frame);
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+  int line;
+
+  if (!width || !height)
+     return;
+
+  tty_turn_on_face (w, findex);
+  for (line = y; line < y + height; line++)
+    {
+      int col;
+
+      cmgoto (f, line, x);
+
+      if (window_is_leftmost (w)
+	  && window_is_rightmost (w)
+	  && TTY_SE (c).clr_to_eol)
+	{
+	  OUTPUT1 (c, TTY_SE (c).clr_to_eol);
+	}
+      else
+	{
+	  unsigned char sp = ' ';
+	  /* #### Of course, this is all complete and utter crap. */
+	  for (col = x; col < x + width; col++)
+	    send_string_to_tty_console (c, &sp, 1);
+	  TTY_INC_CURSOR_X (c, width);
+	}
+    }
+  tty_turn_off_face (w, findex);
+  cmgoto (f, y, x);
+}
+
+/*****************************************************************************
+ tty_clear_to_window_end
+
+ Clear the area between ypos1 and ypos2.  Each margin area and the
+ text area is handled separately since they may each have their own
+ background color.
+ ****************************************************************************/
+static void
+tty_clear_to_window_end (struct window *w, int ypos1, int ypos2)
+{
+  struct frame *f = XFRAME (w->frame);
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+  int x, width;
+
+  x = WINDOW_TEXT_LEFT (w);
+  width = WINDOW_TEXT_WIDTH (w);
+
+  if (window_is_rightmost (w))
+    {
+      /* #### Optimize to use clr_to_eol function of tty if available, if
+	 the window is the entire width of the frame. */
+      /* #### Is this actually an optimization? */
+      int line;
+      tty_turn_on_face (w, DEFAULT_INDEX);
+      for (line = ypos1; line < ypos2; line++)
+	{
+	  cmgoto (XFRAME (w->frame), line, x);
+	  OUTPUT1 (c, TTY_SE (c).clr_to_eol);
+	}
+      tty_turn_off_face (w, DEFAULT_INDEX);
+    }
+  else
+    {
+      Lisp_Object window;
+
+      XSETWINDOW (window, w);
+      tty_clear_region (window, DEFAULT_INDEX, x, ypos1, width, ypos2 - ypos1);
+    }
+}
+
+/****************************************************************************
+ tty_clear_frame
+
+ Clear the entire frame.
+ ****************************************************************************/
+static void
+tty_clear_frame (struct frame *f)
+{
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  tty_turn_on_frame_face (f, Vdefault_face);
+  if (TTY_SE (c).clr_frame)
+    {
+      OUTPUT1 (c, TTY_SE (c).clr_frame);
+#ifdef NOT_SURE
+      FRAME_CURSOR_X (f) = 0;
+      FRAME_CURSOR_Y (f) = 0;
+#endif
+    }
+  else
+    {
+#ifdef NOT_SURE
+      internal_cursor_to (f, 0, 0);
+      clear_to_end (f);
+#else
+      /* #### Not implemented. */
+      fprintf (stderr, "Not yet.\n");
+#endif
+    }
+  tty_turn_off_frame_face (f, Vdefault_face);
+}
+
+static void
+tty_output_bufbyte_string (struct window *w, struct display_line *dl,
+			   Bufbyte *str, Bytecount len, int xpos,
+			   face_index findex, int cursor)
+{
+  struct frame *f = XFRAME (w->frame);
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  /* First position the cursor. */
+  cmgoto (f, dl->ypos - 1, xpos);
+
+  /* Enable any face properties. */
+  tty_turn_on_face (w, findex);
+
+  send_string_to_tty_console (c, str, len);
+  TTY_INC_CURSOR_X (c, bufbyte_string_displayed_columns (str, len));
+
+  /* Turn the face properties back off. */
+  tty_turn_off_face (w, findex);
+}
+
+static bufbyte_dynarr *tty_output_emchar_dynarr_dynarr;
+
+/*****************************************************************************
+ tty_output_emchar_dynarr
+
+ Given a string and a starting position, output that string in the
+ given face.  If cursor is true, draw a cursor around the string.
+ ****************************************************************************/
+static void
+tty_output_emchar_dynarr (struct window *w, struct display_line *dl,
+			  emchar_dynarr *buf, int xpos, face_index findex,
+			  int cursor)
+{
+  if (!tty_output_emchar_dynarr_dynarr)
+    tty_output_emchar_dynarr_dynarr = Dynarr_new (Bufbyte);
+  else
+    Dynarr_reset (tty_output_emchar_dynarr_dynarr);
+
+  convert_emchar_string_into_bufbyte_dynarr (Dynarr_atp (buf, 0),
+					    Dynarr_length (buf),
+					    tty_output_emchar_dynarr_dynarr);
+
+  tty_output_bufbyte_string (w, dl,
+			     Dynarr_atp (tty_output_emchar_dynarr_dynarr, 0),
+			     Dynarr_length (tty_output_emchar_dynarr_dynarr),
+			     xpos, findex, cursor);
+}
+
+#if 0
+
+static bufbyte_dynarr *sidcs_dynarr;
+
+static void
+substitute_in_dynamic_color_string (Lisp_Object spec, Lisp_Object string)
+{
+  int i;
+  Bufbyte *specdata = string_data (XSTRING (spec));
+  Bytecount speclen = string_length (XSTRING (spec));
+
+  if (!sidcs_dynarr)
+    sidcs_dynarr = Dynarr_new (Bufbyte);
+  else
+    Dynarr_reset (sidcs_dynarr);
+
+  for (i = 0; i < speclen; i++)
+    {
+      if (specdata[i] == '%' && specdata[i+1] == '%')
+	{
+	  Dynarr_add (sidcs_dynarr, '%');
+	  i++;
+	}
+      else if (specdata[i] == '%' && specdata[i+1] == 's')
+	{
+	  Dynarr_add_many (sidcs_dynarr, string_data (XSTRING (string)),
+			   string_length (XSTRING (string)));
+	  i++;
+	}
+      else
+	Dynarr_add (sidcs_dynarr, specdata[i]);
+    }
+}
+
+#endif
+
+static void
+set_foreground_to (struct console *c, Lisp_Object sym)
+{
+  Lisp_Object result;
+  Bufbyte *escseq = 0;
+  Bytecount escseqlen = 0;
+
+  result = assq_no_quit (sym, Vtty_color_alist);
+  if (!NILP (result))
+    {
+      Lisp_Object esc_seq = XCAR (XCDR (result));
+      escseq = string_data (XSTRING (esc_seq));
+      escseqlen = string_length (XSTRING (esc_seq));
+    }
+#if 0
+  else if (STRINGP (Vtty_dynamic_color_fg))
+    {
+      substitute_in_dynamic_color_string (Vtty_dynamic_color_fg,
+					  Fsymbol_name (sym));
+      escseq = Dynarr_atp (sidcs_dynarr, 0);
+      escseqlen = Dynarr_length (sidcs_dynarr);
+    }
+#endif
+
+  if (escseq)
+    {
+      send_string_to_tty_console (c, escseq, escseqlen);
+    }
+}
+
+static void
+set_background_to (struct console *c, Lisp_Object sym)
+{
+  Lisp_Object result;
+  Bufbyte *escseq = 0;
+  Bytecount escseqlen = 0;
+
+  result = assq_no_quit (sym, Vtty_color_alist);
+  if (!NILP (result))
+    {
+      Lisp_Object esc_seq = XCDR (XCDR (result));
+      escseq = string_data (XSTRING (esc_seq));
+      escseqlen = string_length (XSTRING (esc_seq));
+    }
+#if 0
+  else if (STRINGP (Vtty_dynamic_color_bg))
+    {
+      substitute_in_dynamic_color_string (Vtty_dynamic_color_bg,
+					  Fsymbol_name (sym));
+      escseq = Dynarr_atp (sidcs_dynarr, 0);
+      escseqlen = Dynarr_length (sidcs_dynarr);
+    }
+#endif
+
+  if (escseq)
+    {
+      send_string_to_tty_console (c, escseq, escseqlen);
+    }
+}
+
+static void
+tty_turn_on_face_1 (struct console *c, int highlight_p,
+		    int blinking_p, int dim_p, int underline_p,
+		    int reverse_p, Lisp_Object cinst_fore,
+		    Lisp_Object cinst_back)
+{
+  if (highlight_p)
+    {
+      OUTPUT1_IF (c, TTY_SD (c).turn_on_bold);
+    }
+
+  if (blinking_p)
+    {
+      OUTPUT1_IF (c, TTY_SD (c).turn_on_blinking);
+    }
+
+  if (dim_p)
+    {
+      OUTPUT1_IF (c, TTY_SD (c).turn_on_dim);
+    }
+
+  if (underline_p)
+    {
+      /* #### punt for now if underline mode is glitchy */
+      if (!TTY_FLAGS (c).underline_width)
+	{
+	  OUTPUT1_IF (c, TTY_SD (c).begin_underline);
+	}
+    }
+
+  if (reverse_p)
+    {
+      /* #### punt for now if standout mode is glitchy */
+      if (!TTY_FLAGS (c).standout_width)
+	{
+	  OUTPUT1_IF (c, TTY_SD (c).begin_standout);
+	}
+      else
+	reverse_p = 0;
+    }
+
+  if (reverse_p)
+    {
+      Lisp_Object temp = cinst_fore;
+      cinst_fore = cinst_back;
+      cinst_back = temp;
+    }
+
+  if (COLOR_INSTANCEP (cinst_fore)
+      && !EQ (cinst_fore, Vthe_null_color_instance))
+    set_foreground_to (c, COLOR_INSTANCE_TTY_SYMBOL
+		       (XCOLOR_INSTANCE (cinst_fore)));
+
+  if (COLOR_INSTANCEP (cinst_back)
+      && !EQ (cinst_back, Vthe_null_color_instance))
+    set_background_to (c, COLOR_INSTANCE_TTY_SYMBOL
+		       (XCOLOR_INSTANCE (cinst_back)));
+}
+
+/*****************************************************************************
+ tty_turn_on_face
+
+ Turn on all set properties of the given face.
+ ****************************************************************************/
+static void
+tty_turn_on_face (struct window *w, face_index findex)
+{
+  struct frame *f = XFRAME (w->frame);
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  tty_turn_on_face_1 (c, 
+		      WINDOW_FACE_CACHEL_HIGHLIGHT_P (w, findex),
+		      WINDOW_FACE_CACHEL_BLINKING_P (w, findex),
+		      WINDOW_FACE_CACHEL_DIM_P (w, findex),
+		      WINDOW_FACE_CACHEL_UNDERLINE_P (w, findex),
+		      WINDOW_FACE_CACHEL_REVERSE_P (w, findex),
+		      WINDOW_FACE_CACHEL_FOREGROUND (w, findex),
+		      WINDOW_FACE_CACHEL_BACKGROUND (w, findex));
+}
+
+/*****************************************************************************
+ tty_turn_off_face
+
+ Turn off all set properties of the given face (revert to default
+ face).  We assume that tty_turn_on_face has been called for the given
+ face so that it's properties are actually active.
+ ****************************************************************************/
+static void
+tty_turn_off_face (struct window *w, face_index findex)
+{
+  struct frame *f = XFRAME (w->frame);
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  if (WINDOW_FACE_CACHEL_REVERSE_P (w, findex))
+    {
+      /* #### punt for now if standout mode is glitchy */
+      if (!TTY_FLAGS (c).standout_width)
+	{
+	  OUTPUT1_IF (c, TTY_SD (c).end_standout);
+	}
+    }
+
+  if (WINDOW_FACE_CACHEL_UNDERLINE_P (w, findex))
+    {
+      /* #### punt for now if underline mode is glitchy */
+      if (!TTY_FLAGS (c).underline_width)
+	{
+	  OUTPUT1_IF (c, TTY_SD (c).end_underline);
+	}
+    }
+
+  if (WINDOW_FACE_CACHEL_HIGHLIGHT_P (w, findex) ||
+      WINDOW_FACE_CACHEL_BLINKING_P (w, findex) ||
+      WINDOW_FACE_CACHEL_DIM_P (w, findex) ||
+      !EQ (WINDOW_FACE_CACHEL_FOREGROUND (w, findex),
+	   Vthe_null_color_instance) ||
+      !EQ (WINDOW_FACE_CACHEL_BACKGROUND (w, findex),
+           Vthe_null_color_instance))
+    {
+      OUTPUT1_IF (c, TTY_SD (c).turn_off_attributes);
+    }
+}
+
+/*****************************************************************************
+ tty_turn_on_frame_face
+
+ Turn on all set properties of the given face.
+ ****************************************************************************/
+static void
+tty_turn_on_frame_face (struct frame *f, Lisp_Object face)
+{
+  Lisp_Object frame = Qnil;
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+  
+  XSETFRAME (frame, f);
+  tty_turn_on_face_1 (c, 
+		      FACE_HIGHLIGHT_P (face, frame),
+		      FACE_BLINKING_P (face, frame),
+		      FACE_DIM_P (face, frame),
+		      FACE_UNDERLINE_P (face, frame),
+		      FACE_REVERSE_P (face, frame),
+		      FACE_FOREGROUND (face, frame),
+		      FACE_BACKGROUND (face, frame));
+}
+
+/*****************************************************************************
+ tty_turn_off_frame_face
+
+ Turn off all set properties of the given face (revert to default
+ face).  We assume that tty_turn_on_face has been called for the given
+ face so that it's properties are actually active.
+ ****************************************************************************/
+static void
+tty_turn_off_frame_face (struct frame *f, Lisp_Object face)
+{
+  Lisp_Object frame = Qnil;
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  XSETFRAME (frame, f);
+
+  if (FACE_REVERSE_P (face, frame))
+    {
+      /* #### punt for now if standout mode is glitchy */
+      if (!TTY_FLAGS (c).standout_width)
+	{
+	  OUTPUT1_IF (c, TTY_SD (c).end_standout);
+	}
+    }
+
+  if (FACE_UNDERLINE_P (face, frame))
+    {
+      /* #### punt for now if underline mode is glitchy */
+      if (!TTY_FLAGS (c).underline_width)
+	{
+	  OUTPUT1_IF (c, TTY_SD (c).end_underline);
+	}
+    }
+
+  if (FACE_HIGHLIGHT_P (face, frame) ||
+      FACE_BLINKING_P (face, frame) ||
+      FACE_DIM_P (face, frame) ||
+      !EQ (FACE_FOREGROUND (face, frame), Vthe_null_color_instance) ||
+      !EQ (FACE_BACKGROUND (face, frame), Vthe_null_color_instance))
+    {
+      OUTPUT1_IF (c, TTY_SD (c).turn_off_attributes);
+    }
+}
+
+/*****************************************************************************
+ set_tty_modes
+
+ Sets up various parameters on tty modes.
+ ****************************************************************************/
+void
+set_tty_modes (struct console *c)
+{
+  if (!CONSOLE_TTY_P (c))
+    return;
+
+  OUTPUT1_IF (c, TTY_SD (c).init_motion);
+  OUTPUT1_IF (c, TTY_SD (c).cursor_visible);
+  OUTPUT1_IF (c, TTY_SD (c).keypad_on);
+}
+
+/*****************************************************************************
+ reset_tty_modes
+
+ Restore default state of tty.
+ ****************************************************************************/
+void
+reset_tty_modes (struct console *c)
+{
+  if (!CONSOLE_TTY_P (c))
+    return;
+
+  OUTPUT1_IF (c, TTY_SD (c).keypad_off);
+  OUTPUT1_IF (c, TTY_SD (c).cursor_normal);
+  OUTPUT1_IF (c, TTY_SD (c).end_motion);
+  tty_output_end (XDEVICE (CONSOLE_SELECTED_DEVICE (c)));
+}
+
+/*****************************************************************************
+ tty_redisplay_shutdown
+
+ Clear the frame and position the cursor properly for exiting.
+ ****************************************************************************/
+void
+tty_redisplay_shutdown (struct console *c)
+{
+  Lisp_Object dev = CONSOLE_SELECTED_DEVICE (c);
+
+  if (!GC_NILP (dev))
+    {
+      Lisp_Object frm = DEVICE_SELECTED_FRAME (XDEVICE (dev));
+
+      if (!GC_NILP (frm))
+	{
+	  struct frame *f = XFRAME (frm);
+
+	  /* Clear the bottom line of the frame. */
+	  tty_clear_region (FRAME_SELECTED_WINDOW (f), DEFAULT_INDEX, 0,
+			    f->height, f->width, 1);
+
+	  /* And then stick the cursor there. */
+	  cmgoto (f, f->height, 0);
+	  tty_output_end (XDEVICE (dev));
+	}
+    }
+}
+
+
+/* #### Everything below here is old shit.  It should either be moved
+   up or removed. */
+
+
+/* FLAGS - these don't need to be console local since only one console
+ 	   can be being updated at a time. */
+static int insert_mode_on;		/* nonzero if in insert mode */
+static int standout_mode_on;		/* nonzero if in standout mode */
+static int underline_mode_on;		/* nonzero if in underline mode */
+static int alternate_mode_on;		/* nonzero if in alternate char set */
+static int attributes_on;		/* nonzero if any attributes on */
+
+#ifdef NOT_YET
+static void
+turn_on_insert (struct frame *f)
+{
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  if (!insert_mode_on)
+    OUTPUT1_IF (c, TTY_SE (c).begin_ins_mode);
+  insert_mode_on = 1;
+}
+
+static void
+turn_off_insert (struct frame *f)
+{
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  if (insert_mode_on)
+    OUTPUT1 (c, TTY_SE (c).end_ins_mode);
+  insert_mode_on = 0;
+}
+
+static void
+internal_cursor_to (struct frame *f, int row, int col)
+{
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  if (!TTY_FLAGS (c).insert_mode_motion)
+    turn_off_insert (f);
+  if (!TTY_FLAGS (c).standout_motion)
+    {
+      turn_off_standout (f);
+      turn_off_underline (f);
+      turn_off_alternate (f);
+    }
+
+  cmgoto (f, row, col);
+}
+
+static void
+clear_to_end (struct frame *f)
+{
+  struct console *c = XCONSOLE (FRAME_CONSOLE (f));
+
+  /* assumes cursor is already positioned */
+  if (TTY_SE (c).clr_from_cursor)
+    {
+      OUTPUT1 (c, TTY_SE (c).clr_from_cursor);
+    }
+  else
+    {
+      int line = FRAME_CURSOR_Y (f);
+
+      while (line < FRAME_HEIGHT (f))
+	{
+	  internal_cursor_to (f, line, 0);
+	  OUTPUT1 (c, TTY_SE (c).clr_to_eol);
+	}
+    }
+}
+#endif /* 0 */
+
+#if 0
+/*
+ *  clear from last visible line on window to window end (presumably
+ *  the line above window's modeline
+ */
+static void
+tty_clear_window_end (struct window *w, int ystart, int yend)
+{
+  struct console *c = XCONSOLE (WINDOW_CONSOLE (w));
+  int line;
+
+  for (line = ystart; line < yend; line++)
+    {
+      cmgoto (XFRAME (w->frame), line, 0);
+      OUTPUT1 (c, TTY_SE (c).clr_to_eol);
+    }
+}
+
+#endif /* 0 */
+
+static int
+tty_flash (struct device *d)
+{
+  struct console *c = XCONSOLE (DEVICE_CONSOLE (d));
+  if (TTY_SD (c).visual_bell)
+    {
+      OUTPUT1 (c, TTY_SD (c).visual_bell);
+      Lstream_flush (XLSTREAM (CONSOLE_TTY_DATA (c)->outstream));
+      return 1;
+    }
+  else
+    return 0;
+}
+
+/*
+ * tty_ring_bell - sound an audio beep.
+ */
+static void
+tty_ring_bell (struct device *d, int volume, int pitch, int duration)
+{
+  struct console *c = XCONSOLE (DEVICE_CONSOLE (d));
+
+  OUTPUT1 (c, TTY_SD (c).audio_bell);
+  Lstream_flush (XLSTREAM (CONSOLE_TTY_DATA (c)->outstream));
+}
+
+
+int
+init_tty_for_redisplay (struct device *d, char *terminal_type)
+{
+  int status;
+  char entry_buffer[2044];
+  /* char temp_buffer[2044]; */
+  char *bufptr;
+  struct console *c = XCONSOLE (DEVICE_CONSOLE (d));
+
+  /* What we should really do is allocate just enough space for
+     the actual strings that are stored; but this would require
+     doing this after all the tgetstr()s and adjusting all the
+     pointers. */
+  CONSOLE_TTY_DATA (c)->term_entry_buffer = (char *) xmalloc (2044);
+  bufptr = CONSOLE_TTY_DATA (c)->term_entry_buffer; 
+
+  status = tgetent (entry_buffer, terminal_type);
+#if 0
+  if (status < 0)
+    return TTY_UNABLE_OPEN_DATABASE;
+  else if (status == 0)
+    return TTY_TYPE_UNDEFINED;
+#endif
+  /* Under Linux at least, <0 is returned for TTY_TYPE_UNDEFINED. --ben */
+  if (status <= 0)
+    return TTY_TYPE_UNDEFINED;
+
+  /*
+   * Establish the terminal size.
+   */
+  /* First try to get the info from the system.  If that fails, check
+     the termcap entry. */
+  get_tty_device_size (d, &CONSOLE_TTY_DATA (c)->width,
+		       &CONSOLE_TTY_DATA (c)->height);
+
+  if (CONSOLE_TTY_DATA (c)->width <= 0)
+    CONSOLE_TTY_DATA (c)->width = tgetnum ("co");
+  if (CONSOLE_TTY_DATA (c)->height <= 0)
+    CONSOLE_TTY_DATA (c)->height = tgetnum ("li");
+
+  if (CONSOLE_TTY_DATA (c)->width <= 0 || CONSOLE_TTY_DATA (c)->height <= 0)
+    return TTY_SIZE_UNSPECIFIED;
+
+  /*
+   * Initialize cursor motion information.
+   */
+
+  /* local cursor movement */
+  TTY_CM (c).up = tgetstr ("up", &bufptr);
+  TTY_CM (c).down = tgetstr ("do", &bufptr);
+  TTY_CM (c).left = tgetstr ("le", &bufptr);
+  TTY_CM (c).right = tgetstr ("nd", &bufptr);
+  TTY_CM (c).home = tgetstr ("ho", &bufptr);
+  TTY_CM (c).low_left = tgetstr ("ll", &bufptr);
+  TTY_CM (c).car_return = tgetstr ("cr", &bufptr);
+
+  /* absolute cursor motion */
+  TTY_CM (c).abs = tgetstr ("cm", &bufptr);
+  TTY_CM (c).hor_abs = tgetstr ("ch", &bufptr);
+  TTY_CM (c).ver_abs = tgetstr ("cv", &bufptr);
+
+  /* Verify that the terminal is powerful enough to run Emacs */
+  if (!TTY_CM (c).abs)
+    {
+      if (!TTY_CM (c).up || !TTY_CM (c).down
+	  || !TTY_CM (c).left || !TTY_CM (c).right)
+	return TTY_TYPE_INSUFFICIENT;
+    }
+
+  /* parameterized local cursor movement */
+  TTY_CM (c).multi_up = tgetstr ("UP", &bufptr);
+  TTY_CM (c).multi_down = tgetstr ("DO", &bufptr);
+  TTY_CM (c).multi_left = tgetstr ("LE", &bufptr);
+  TTY_CM (c).multi_right = tgetstr ("RI", &bufptr);
+
+  /* scrolling */
+  TTY_CM (c).scroll_forw = tgetstr ("sf", &bufptr);
+  TTY_CM (c).scroll_back = tgetstr ("sr", &bufptr);
+  TTY_CM (c).multi_scroll_forw = tgetstr ("SF", &bufptr);
+  TTY_CM (c).multi_scroll_back = tgetstr ("SR", &bufptr);
+  TTY_CM (c).set_scroll_region = tgetstr ("cs", &bufptr);
+
+
+  /*
+   * Initialize screen editing information.
+   */
+
+  /* adding to the screen */
+  TTY_SE (c).ins_line = tgetstr ("al", &bufptr);
+  TTY_SE (c).multi_ins_line = tgetstr ("AL", &bufptr);
+  TTY_SE (c).repeat = tgetstr ("rp", &bufptr);
+  TTY_SE (c).begin_ins_mode = tgetstr ("im", &bufptr);
+  TTY_SE (c).end_ins_mode = tgetstr ("ei", &bufptr);
+  TTY_SE (c).ins_char = tgetstr ("ic", &bufptr);
+  TTY_SE (c).multi_ins_char = tgetstr ("IC", &bufptr);
+  TTY_SE (c).insert_pad = tgetstr ("ip", &bufptr);
+
+  /* deleting from the screen */
+  TTY_SE (c).clr_frame = tgetstr ("cl", &bufptr);
+  TTY_SE (c).clr_from_cursor = tgetstr ("cd", &bufptr);
+  TTY_SE (c).clr_to_eol = tgetstr ("ce", &bufptr);
+  TTY_SE (c).del_line = tgetstr ("dl", &bufptr);
+  TTY_SE (c).multi_del_line = tgetstr ("DL", &bufptr);
+  TTY_SE (c).del_char = tgetstr ("dc", &bufptr);
+  TTY_SE (c).multi_del_char = tgetstr ("DC", &bufptr);
+  TTY_SE (c).begin_del_mode = tgetstr ("dm", &bufptr);
+  TTY_SE (c).end_del_mode = tgetstr ("ed", &bufptr);
+  TTY_SE (c).erase_at_cursor = tgetstr ("ec", &bufptr);
+
+
+  /*
+   * Initialize screen display information.
+   */
+  TTY_SD (c).begin_standout = tgetstr ("so", &bufptr);
+  TTY_SD (c).end_standout = tgetstr ("se", &bufptr);
+  TTY_SD (c).begin_underline = tgetstr ("us", &bufptr);
+  TTY_SD (c).end_underline = tgetstr ("ue", &bufptr);
+  TTY_SD (c).begin_alternate = tgetstr ("as", &bufptr);
+  TTY_SD (c).end_alternate = tgetstr ("ae", &bufptr);
+  TTY_SD (c).turn_on_reverse = tgetstr ("mr", &bufptr);
+  TTY_SD (c).turn_on_blinking = tgetstr ("mb", &bufptr);
+  TTY_SD (c).turn_on_bold = tgetstr ("md", &bufptr);
+  TTY_SD (c).turn_on_dim = tgetstr ("mh", &bufptr);
+  TTY_SD (c).turn_off_attributes = tgetstr ("me", &bufptr);
+
+  TTY_SD (c).visual_bell = tgetstr ("vb", &bufptr);
+  TTY_SD (c).audio_bell = tgetstr ("bl", &bufptr);
+  if (!TTY_SD (c).audio_bell)
+    {
+      /* If audio_bell doesn't get set, then assume C-g.  This is gross and
+         ugly but is what Emacs has done from time immortal. */
+      TTY_SD (c).audio_bell = "\07";
+    }
+
+  TTY_SD (c).cursor_visible = tgetstr ("ve", &bufptr);
+  TTY_SD (c).cursor_normal = tgetstr ("vs", &bufptr);
+  TTY_SD (c).init_motion = tgetstr ("ti", &bufptr);
+  TTY_SD (c).end_motion = tgetstr ("te", &bufptr);
+  TTY_SD (c).keypad_on = tgetstr ("ks", &bufptr);
+  TTY_SD (c).keypad_off = tgetstr ("ke", &bufptr);
+
+
+  /*
+   * Initialize additional terminal information.
+   */
+  TTY_FLAGS (c).must_write_spaces = tgetflag ("in");
+  TTY_FLAGS (c).insert_mode_motion = tgetflag ("mi");
+  TTY_FLAGS (c).standout_motion = tgetflag ("ms");
+  TTY_FLAGS (c).memory_above_frame = tgetflag ("da");
+  TTY_FLAGS (c).memory_below_frame = tgetflag ("db");
+  TTY_FLAGS (c).standout_width = tgetnum ("sg");
+  TTY_FLAGS (c).underline_width = tgetnum ("ug");
+
+  if (TTY_FLAGS (c).standout_width == -1)
+    TTY_FLAGS (c).standout_width = 0;
+  if (TTY_FLAGS (c).underline_width == -1)
+    TTY_FLAGS (c).underline_width = 0;
+
+   TTY_FLAGS (c).meta_key = 
+     eight_bit_tty (d) ? tgetflag ("km") || tgetflag ("MT") ? 1 : 2 : 0;
+    
+    
+  /*
+   * Setup the costs tables for this tty console.
+   */
+  cm_cost_init (c);
+
+  /*
+   * Initialize local flags.
+   */
+  insert_mode_on = 0;
+  standout_mode_on = 0;
+  underline_mode_on = 0;
+  alternate_mode_on = 0;
+  attributes_on = 0;
+
+  /*
+   * Attempt to initialise the function_key_map to
+   * some kind of sensible value
+   */
+
+  term_get_fkeys (c->function_key_map, &bufptr);
+
+  {
+    /* check for ANSI set-foreground and set-background strings,
+       and assume color if so.
+
+       #### we should support the other (non-ANSI) ways of specifying
+       color, too. */
+    char foobuf[500];
+    char *fooptr = foobuf;
+    if (tgetstr ("AB", &fooptr) && tgetstr ("AF", &fooptr))
+      DEVICE_CLASS (d) = Qcolor;
+    else
+      DEVICE_CLASS (d) = Qmono;
+  }
+
+  return TTY_INIT_SUCCESS;
+}
+
+struct fkey_table
+{
+  CONST char *cap, *name;
+};
+
+  /* Termcap capability names that correspond directly to X keysyms.
+     Some of these (marked "terminfo") aren't supplied by old-style
+     (Berkeley) termcap entries.  They're listed in X keysym order;
+     except we put the keypad keys first, so that if they clash with
+     other keys (as on the IBM PC keyboard) they get overridden.
+  */
+
+static struct fkey_table keys[] =
+{
+  {"kh", "home"},	/* termcap */
+  {"kl", "left"},	/* termcap */
+  {"ku", "up"},		/* termcap */
+  {"kr", "right"},	/* termcap */
+  {"kd", "down"},	/* termcap */
+  {"%8", "prior"},	/* terminfo */
+  {"%5", "next"},	/* terminfo */
+  {"@7", "end"},	/* terminfo */
+  {"@1", "begin"},	/* terminfo */
+  {"*6", "select"},	/* terminfo */
+  {"%9", "print"},	/* terminfo */
+  {"@4", "execute"},	/* terminfo --- actually the `command' key */
+  /*
+   * "insert" --- see below
+   */
+  {"&8", "undo"},	/* terminfo */
+  {"%0", "redo"},	/* terminfo */
+  {"%7", "menu"},	/* terminfo --- actually the `options' key */
+  {"@0", "find"},	/* terminfo */
+  {"@2", "cancel"},	/* terminfo */
+  {"%1", "help"},	/* terminfo */
+  /*
+   * "break" goes here, but can't be reliably intercepted with termcap
+   */
+  {"&4", "reset"},	/* terminfo --- actually `restart' */
+  /*
+   * "system" and "user" --- no termcaps
+   */
+  {"kE", "clearline"},	/* terminfo */
+  {"kA", "insertline"},	/* terminfo */
+  {"kL", "deleteline"},	/* terminfo */
+  {"kI", "insertchar"},	/* terminfo */
+  {"kD", "delete"},	/* terminfo */
+  {"kB", "backtab"},	/* terminfo */
+  /*
+   * "kp_backtab", "kp_space", "kp_tab" --- no termcaps
+   */
+  {"@8", "kp_enter"},	/* terminfo */
+  /*
+   * "kp_f1", "kp_f2", "kp_f3" "kp_f4",
+   * "kp_multiply", "kp_add", "kp_separator",
+   * "kp_subtract", "kp_decimal", "kp_divide", "kp_0";
+   * --- no termcaps for any of these.
+   */
+  {"K4", "kp_1"},	/* terminfo */
+  /*
+   * "kp_2" --- no termcap
+   */
+  {"K5", "kp_3"},	/* terminfo */
+  /*
+   * "kp_4" --- no termcap
+   */
+  {"K2", "kp_5"},	/* terminfo */
+  /*
+   * "kp_6" --- no termcap
+   */
+  {"K1", "kp_7"},	/* terminfo */
+  /*
+   * "kp_8" --- no termcap
+   */
+  {"K3", "kp_9"},	/* terminfo */
+  /*
+   * "kp_equal" --- no termcap
+   */
+  {"k1", "f1"},
+  {"k2", "f2"},
+  {"k3", "f3"},
+  {"k4", "f4"},
+  {"k5", "f5"},
+  {"k6", "f6"},
+  {"k7", "f7"},
+  {"k8", "f8"},
+  {"k9", "f9"},
+};
+
+static char **term_get_fkeys_arg;
+
+static Lisp_Object term_get_fkeys_1 (Lisp_Object keymap);
+static Lisp_Object term_get_fkeys_error (Lisp_Object err, Lisp_Object arg);
+
+/* Find the escape codes sent by the function keys for Vfunction_key_map.
+   This function scans the termcap function key sequence entries, and 
+   adds entries to Vfunction_key_map for each function key it finds.  */
+
+static void
+term_get_fkeys (Lisp_Object keymap, char **address)
+{
+  /* We run the body of the function (term_get_fkeys_1) and ignore all Lisp
+     errors during the call.  The only errors should be from Fdefine_key
+     when given a key sequence containing an invalid prefix key.  If the
+     termcap defines function keys which use a prefix that is already bound
+     to a command by the default bindings, we should silently ignore that
+     function key specification, rather than giving the user an error and
+     refusing to run at all on such a terminal.  */
+
+  term_get_fkeys_arg = address;
+
+  condition_case_1 (Qerror,
+		    term_get_fkeys_1, keymap,
+		    term_get_fkeys_error, Qnil);
+}
+
+static Lisp_Object
+term_get_fkeys_error (Lisp_Object err, Lisp_Object arg)
+{
+  return arg;
+}
+
+static Lisp_Object
+term_get_fkeys_1 (Lisp_Object function_key_map)
+{
+  int i;
+
+  char **address = term_get_fkeys_arg;
+
+  for (i = 0; i < (sizeof (keys)/sizeof (keys[0])); i++)
+    {
+      char *sequence = tgetstr (keys[i].cap, address);
+      if (sequence)
+	Fdefine_key (function_key_map,
+		     build_string (sequence),
+		     vector1 (intern (keys[i].name)));
+    }
+
+  /* The uses of the "k0" capability are inconsistent; sometimes it
+     describes F10, whereas othertimes it describes F0 and "k;" describes F10.
+     We will attempt to politely accommodate both systems by testing for
+     "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
+     */
+  {
+    char *k_semi  = tgetstr ("k;", address);
+    char *k0      = tgetstr ("k0", address);
+    CONST char *k0_name = "f10";
+
+    if (k_semi)
+      {
+	Fdefine_key (function_key_map, build_string (k_semi),
+		     vector1 (intern ("f10")));
+	k0_name = "f0";
+      }
+
+    if (k0)
+      Fdefine_key (function_key_map, build_string (k0),
+		   vector1 (intern (k0_name)));
+  }
+
+  /* Set up cookies for numbered function keys above f10. */
+  {
+    char fcap[3], fkey[4];
+
+    fcap[0] = 'F'; fcap[2] = '\0';
+    for (i = 11; i < 64; i++)
+      {
+	if (i <= 19)
+	  fcap[1] = '1' + i - 11;
+	else if (i <= 45)
+	  fcap[1] = 'A' + i - 20;
+	else
+	  fcap[1] = 'a' + i - 46;
+
+	{
+	  char *sequence = tgetstr (fcap, address);
+	  if (sequence)
+	    {
+	      sprintf (fkey, "f%d", i);
+	      Fdefine_key (function_key_map,
+			   build_string (sequence),
+			   vector1 (intern (fkey)));
+	    }
+	}
+      }
+   }
+
+  /*
+   * Various mappings to try and get a better fit.
+   */
+  {
+#define CONDITIONAL_REASSIGN(cap1, cap2, sym)				\
+      if (!tgetstr (cap1, address))					\
+	{								\
+	  char *sequence = tgetstr (cap2, address);			\
+	  if (sequence)							\
+	    Fdefine_key (function_key_map,				\
+			 build_string (sequence),			\
+			 vector1 (intern (sym)));			\
+	}
+	  
+      /* if there's no key_next keycap, map key_npage to `next' keysym */
+      CONDITIONAL_REASSIGN ("%5", "kN", "next");
+      /* if there's no key_prev keycap, map key_ppage to `previous' keysym */
+      CONDITIONAL_REASSIGN ("%8", "kP", "prior");
+      /* if there's no key_dc keycap, map key_ic to `insert' keysym */
+      CONDITIONAL_REASSIGN ("kD", "kI", "insert");
+
+      /* IBM has their own non-standard dialect of terminfo.
+	 If the standard name isn't found, try the IBM name.  */
+      CONDITIONAL_REASSIGN ("kB", "KO", "backtab");
+      CONDITIONAL_REASSIGN ("@4", "kJ", "execute"); /* actually "action" */
+      CONDITIONAL_REASSIGN ("@4", "kc", "execute"); /* actually "command" */
+      CONDITIONAL_REASSIGN ("%7", "ki", "menu");
+      CONDITIONAL_REASSIGN ("@7", "kw", "end");
+      CONDITIONAL_REASSIGN ("F1", "k<", "f11");
+      CONDITIONAL_REASSIGN ("F2", "k>", "f12");
+      CONDITIONAL_REASSIGN ("%1", "kq", "help");
+      CONDITIONAL_REASSIGN ("*6", "kU", "select");
+#undef CONDITIONAL_REASSIGN
+  }
+
+  return Qnil;
+}
+
+
+/************************************************************************/
+/*                            initialization                            */
+/************************************************************************/
+
+void
+console_type_create_redisplay_tty (void)
+{
+  /* redisplay methods */
+  CONSOLE_HAS_METHOD (tty, text_width);
+  CONSOLE_HAS_METHOD (tty, output_display_block);
+  CONSOLE_HAS_METHOD (tty, output_vertical_divider);
+  CONSOLE_HAS_METHOD (tty, divider_width);
+  CONSOLE_HAS_METHOD (tty, divider_height);
+  CONSOLE_HAS_METHOD (tty, eol_cursor_width);
+  CONSOLE_HAS_METHOD (tty, clear_to_window_end);
+  CONSOLE_HAS_METHOD (tty, clear_region);
+  CONSOLE_HAS_METHOD (tty, clear_frame);
+  CONSOLE_HAS_METHOD (tty, output_begin);
+  CONSOLE_HAS_METHOD (tty, output_end);
+  CONSOLE_HAS_METHOD (tty, flash);
+  CONSOLE_HAS_METHOD (tty, ring_bell);
+}