comparison src/xdisp.c @ 25358:9747bbf3e480

Call change_frame_size and do_pending_window_change with new parameter. Remove conditional compilation on NO_PROMPT_IN_BUFFER. (get_next_display_element): Display \r as ^M. (minibuffer_scroll_overlap): Removed because not used anywhere. (unwind_redisplay): Return nil. (clear_garbaged_frames): New. (redisplay_internal): Use it. (echo_area_display): Ditto. (resize_mini_window): Mew. (display_echo_area_1): Use it to resize echo area window. (redisplay_internal): Use it to resize active mini-window. (echo_area_glyphs, echo_area_message, echo_area_glyphs_length, previous_echo_glyphs, previous_echo_area_message, previous_echo_area_glyphs_length): Removed. (Vmessage_stack, echo_area_buffer, echo_buffer, display_last_displayed_message_p, Vwith_echo_area_save_vector): New. (message2_nolog): Use set_message and clear_message. (message3): Rename parameter len to nbytes to make clear what it is. (message3_nolog): Ditto. Use set_message and clear_message. (update_echo_area): Rewritten. (with_echo_area_buffer): New. (with_echo_area_buffer_unwind_data, unwind_with_area_buffer): New. (setup_echo_area_for_printing): New. (display_echo_area, display_echo_area_1): New. (current_message, current_message_1): New. (push_message, restore_message, pop_message, check_message_stack): New. (truncate_echo_area): Rewritten. (truncate_message_1): New. (set_message, set_message_1, clear_message): New. (echo_area_display): Rewritten. (redisplay_internal): Check for needed echo area update differently. (redisplay_preserve_echo_area): Rewritten. (redisplay_window): Check for mini-window displaying echo area message differently. (syms_of_xdisp): Initialize Vmessage_stack and echo area buffers. Remove initialzation of removed variables. (init_xdisp): Remove references to removed variables.

25357:3a25e881065f

   pixel value by multiplying it with CANON_Y_UNIT, which means that
   there is really a fixed pixel height scroll margin.  */

int scroll_margin;

/* Number of characters of overlap to show, when scrolling a one-line
   window such as a minibuffer.  */

static int minibuffer_scroll_overlap;

/* Number of windows showing the buffer of the selected window (or
   another buffer with the same base buffer).  keyboard.c refers to
   this.  */

int buffer_shared;

   of the line that contains the prompt.  */

int minibuf_prompt_width;
int minibuf_prompt_pixel_width;

/* Message to display instead of mini-buffer contents.  This is what
   the functions error and message make, and command echoing uses it
   as well.  It overrides the minibuf_prompt as well as the buffer.  */

char *echo_area_glyphs;

/* A Lisp string to display instead of mini-buffer contents, analogous
   to echo_area_glyphs.  If this is a string, display that string.
   Otherwise, if echo_area_glyphs is non-null, display that.  */

Lisp_Object echo_area_message;

/* This is the length of the message in echo_area_glyphs or
   echo_area_message.  */

int echo_area_glyphs_length;

/* Value of echo_area_glyphs when it was last acted on.  If this is
   nonzero, there is a message on the frame in the mini-buffer and it
   should be erased as soon as it is no longer requested to appear.  */

char *previous_echo_glyphs;
Lisp_Object previous_echo_area_message;
static int previous_echo_glyphs_length;

/* This is the window where the echo area message was displayed.  It
   is always a mini-buffer window, but it may not be the same window
   currently active as a mini-buffer.  */

Lisp_Object echo_area_window;

/* Nonzero means multibyte characters were enabled when the echo area
   message was specified.  */

int message_enable_multibyte;

/* Number of lines to keep in the message log buffer.  t means
   infinite.  nil means don't log at all.  */

Lisp_Object Vmessage_log_max;

/* A scratch glyph row with contents used for generating truncation
   glyphs.  Also used in direct_output_for_insert.  */

#define MAX_SCRATCH_GLYPHS 100


/* Function prototypes.  */

static Lisp_Object unwind_redisplay P_ ((Lisp_Object));
static int string_char_and_length P_ ((unsigned char *, int, int *));
static struct text_pos display_prop_end P_ ((struct it *, Lisp_Object,
					     struct text_pos));
static int compute_window_start_on_continuation_line P_ ((struct window *));

int invisible_ellipsis_p P_ ((Lisp_Object, Lisp_Object));
static void push_it P_ ((struct it *));
static void pop_it P_ ((struct it *));
static void sync_frame_with_window_matrix_rows P_ ((struct window *));
static void redisplay_internal P_ ((int));
static void echo_area_display P_ ((int));
static void redisplay_windows P_ ((Lisp_Object));
static void redisplay_window P_ ((Lisp_Object, int));
static void update_menu_bar P_ ((struct frame *, int));
static int try_window_reusing_current_matrix P_ ((struct window *));
static int try_window_id P_ ((struct window *));

     int charpos, bytepos;
     struct glyph_row *row;
     enum face_id base_face_id;
{
  int highlight_region_p;
  Lisp_Object value;

  /* Some precondition checks.  */
  xassert (w != NULL && it != NULL);
  xassert (charpos < 0 || current_buffer == XBUFFER (w->buffer));
  xassert (charpos < 0 || (charpos > 0 && charpos <= ZV));

  /* If face attributes have been changed since the last redisplay,
     free realized faces now because they depend on face definitions
     that might have changed.  */

     account.  */
  start_at_line_beg_p = (CHARPOS (pos) == BEGV
			 || FETCH_BYTE (BYTEPOS (pos) - 1) == '\n');
  if (!start_at_line_beg_p)
    reseat_at_previous_visible_line_start (it);

#if NO_PROMPT_IN_BUFFER
  /* Take the mini-buffer prompt width into account for tab
     calculations.  */
  if (MINI_WINDOW_P (w) && IT_CHARPOS (*it) == BEGV)
    {
      /* Why is mini-buffer_prompt_width guaranteed to be set here?  */
      it->prompt_width = minibuf_prompt_pixel_width;
    }
#endif /* NO_PROMPT_IN_BUFFER */

  /* If window start is not at a line start, skip forward to POS to
     get the correct continuation_lines_width and current_x.  */
  if (!start_at_line_beg_p)
    {

	     currently not translated because we use IT->dpvec to hold
	     the translation.  This could easily be changed but I
	     don't believe that it is worth doing.  */
	  else if ((it->c < ' '
		    && (it->area != TEXT_AREA
			|| (it->c != '\n'
			    && it->c != '\t'
			    && it->c != '\r')))
		   || (it->c >= 127
		       && it->len == 1))
	    {
	      /* IT->c is a control character which must be displayed
		 either as '\003' or as `^C' where the '\\' and '^'

    {
      /* Current display element of IT is from a display table entry.
	 Advance in the display table definition.  Reset it to null if
	 end reached, and continue with characters from buffers/
	 strings.  */
      struct face *face;
      
      ++it->current.dpvec_index;

      /* Restore face and charset of the iterator to what they were
	 before the display vector entry (these entries may contain
	 faces, and of course characters of different charsets).  */

  struct glyph_row *saved_glyph_row;

  /* Don't produce glyphs in produce_glyphs.  */
  saved_glyph_row = it->glyph_row;
  it->glyph_row = NULL;

#if NO_PROMPT_IN_BUFFER
  /* Take a mini-buffer prompt into account.  */
  if (MINI_WINDOW_P (it->w)
      && IT_CHARPOS (*it) == BEGV)
    {
      it->current_x = minibuf_prompt_pixel_width;
      it->hpos = minibuf_prompt_width;
    }
#endif

  while (1)
    {
      int x, i;
      

     int op;
{
  enum move_it_result skip, skip2 = MOVE_X_REACHED;
  int line_height;

  xassert (XBUFFER (it->w->buffer) == current_buffer);

  while (1)
    {
      if (op & MOVE_TO_VPOS)
	{
	  /* If no TO_CHARPOS and no TO_X specified, stop at the

	  && ! FRAME_VISIBLE_P (f))
	Fmake_frame_visible (WINDOW_FRAME (XWINDOW (mini_window)));

      if (m)
	{
	  echo_area_glyphs = m;
	  echo_area_glyphs_length = len;
	  echo_area_message = Qnil;

	  if (minibuffer_auto_raise)
	    Fraise_frame  (WINDOW_FRAME (XWINDOW (mini_window)));
	}
      else
	{
	  echo_area_glyphs = previous_echo_glyphs = NULL;
	  echo_area_message = previous_echo_area_message = Qnil;
	}

      do_pending_window_change ();
      echo_area_display (1);
      do_pending_window_change ();
      if (frame_up_to_date_hook != 0 && ! gc_in_progress)
	(*frame_up_to_date_hook) (f);
    }
}


/* Display an echo area message M with a specified length of LEN
   chars.  The string may include null characters.  If M is not a
   string, clear out any existing message, and let the mini-buffer
   text show through.  */

void
message3 (m, len, multibyte)
     Lisp_Object m;
     int len;
     int multibyte;
{
  struct gcpro gcpro1;

  GCPRO1 (m);
  
  /* First flush out any partial line written with print.  */
  message_log_maybe_newline ();
  if (STRINGP (m))
    message_dolog (XSTRING (m)->data, len, 1, multibyte);
  message3_nolog (m, len, multibyte);

  UNGCPRO;
}


/* The non-logging version of message3.  */

void
message3_nolog (m, len, multibyte)
     Lisp_Object m;
     int len, multibyte;
{
  message_enable_multibyte = multibyte;

  if (noninteractive)
    {
      if (noninteractive_need_newline)
	putc ('\n', stderr);
      noninteractive_need_newline = 0;
      if (STRINGP (m))
	fwrite (XSTRING (m)->data, len, 1, stderr);
      if (cursor_in_echo_area == 0)
	fprintf (stderr, "\n");
      fflush (stderr);
    }
  /* A null message buffer means that the frame hasn't really been

  else if (INTERACTIVE 
	   && selected_frame->glyphs_initialized_p
	   && FRAME_MESSAGE_BUF (selected_frame))
    {
      Lisp_Object mini_window;
      struct frame *f;

      /* Get the frame containing the mini-buffer
	 that the selected frame is using.  */
      mini_window = FRAME_MINIBUF_WINDOW (selected_frame);
      f = XFRAME (WINDOW_FRAME (XWINDOW (mini_window)));

      FRAME_SAMPLE_VISIBILITY (f);
      if (FRAME_VISIBLE_P (selected_frame)
	  && ! FRAME_VISIBLE_P (f))
	Fmake_frame_visible (WINDOW_FRAME (XWINDOW (mini_window)));

      if (STRINGP (m))
	{
	  echo_area_glyphs = NULL;
	  echo_area_message = m;
	  echo_area_glyphs_length = len;

	  if (minibuffer_auto_raise)
	    Fraise_frame  (WINDOW_FRAME (XWINDOW (mini_window)));
	}
      else
	{
	  echo_area_glyphs = previous_echo_glyphs = NULL;
	  echo_area_message = previous_echo_area_message = Qnil;
	}

      do_pending_window_change ();
      echo_area_display (1);
      do_pending_window_change ();
      if (frame_up_to_date_hook != 0 && ! gc_in_progress)
	(*frame_up_to_date_hook) (f);
    }
}

	     buffer next time.  */
	  message_buf_print = 0;
	}
    }
}


/* Truncate what will be displayed in the echo area
   the next time we display it--but don't redisplay it now.  */

void
truncate_echo_area (len)
     int len;
{
  /* A null message buffer means that the frame hasn't really been
     initialized yet.  Error messages get reported properly by
     cmd_error, so this must be just an informative message; toss it.  */
  if (!noninteractive && INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame))
    echo_area_glyphs_length = len;
}


/* Nonzero if FRAME_MESSAGE_BUF (selected_frame) is being used by
   print; zero if being used by message.  */

int message_buf_print;


/* Dump an informative message to the minibuf.  If M is 0, clear out
   any existing message, and let the mini-buffer text show through.  */

  message (m, a1, a2, a3);
  Vmessage_log_max = old_log_max;
}


/* Display echo_area_message or echo_area_glyphs in the current
   mini-buffer.  */

void
update_echo_area ()
{
  if (STRINGP (echo_area_message))
    message3 (echo_area_message, echo_area_glyphs_length,
	      !NILP (current_buffer->enable_multibyte_characters));
  else
    message2 (echo_area_glyphs, echo_area_glyphs_length,
	      !NILP (current_buffer->enable_multibyte_characters));
}


/* Redisplay the echo area of selected_frame.  If UPDATE_FRAME_P is
   non-zero update selected_frame.  */

static void
echo_area_display (update_frame_p)
     int update_frame_p;
{
  Lisp_Object mini_window;
  struct window *w;
  struct frame *f;

  mini_window = FRAME_MINIBUF_WINDOW (selected_frame);
  w = XWINDOW (mini_window);
  f = XFRAME (WINDOW_FRAME (w));

  /* Don't display if frame is invisible or not yet initialized.  */
  if (!FRAME_VISIBLE_P (f) 
      || !f->glyphs_initialized_p)
    return;

  /* When Emacs starts, selected_frame may be a visible terminal
     frame, even if we run under a window system.  If we let this
     through, a message would be displayed on the terminal.  */
#ifdef HAVE_WINDOW_SYSTEM
  if (!inhibit_window_system && !FRAME_WINDOW_P (selected_frame))
    return;
#endif /* HAVE_WINDOW_SYSTEM */

  /* Redraw garbaged frames.  */
  if (frame_garbaged)
    {
      /* Old redisplay called redraw_garbaged_frames here which in
	 turn called redraw_frame which in turn called clear_frame.
	 The call to clear_frame is a source of flickering.  After
	 checking the places where SET_FRAME_GARBAGED is called, I
	 believe a clear_frame is not necessary.  It should suffice in
	 the new redisplay to invalidate all current matrices, and
	 ensure a complete redisplay of all windows.  */
      Lisp_Object tail, frame;
      
      FOR_EACH_FRAME (tail, frame)
	{
	  struct frame *f = XFRAME (frame);

	}

      frame_garbaged = 0;
      ++windows_or_buffers_changed;
    }

  if (echo_area_glyphs
      || STRINGP (echo_area_message)
      || minibuf_level == 0)
    {
      struct it it;

      echo_area_window = mini_window;
      clear_glyph_matrix (w->desired_matrix);
      init_iterator (&it, w, -1, -1, w->desired_matrix->rows, DEFAULT_FACE_ID);
      
      if (STRINGP (echo_area_message)
	  && echo_area_glyphs_length)
	{
	  prepare_desired_row (it.glyph_row);
	  display_string (NULL, echo_area_message, Qnil, 0, 0,
			  &it, -1, echo_area_glyphs_length, 0,
			  message_enable_multibyte);
	  it.glyph_row->truncated_on_right_p = 0;
	  compute_line_metrics (&it);
	}
      else if (echo_area_glyphs
	       && echo_area_glyphs_length)
	{
	  prepare_desired_row (it.glyph_row);
	  display_string (echo_area_glyphs, Qnil, Qnil, 0, 0, &it,
			  -1, echo_area_glyphs_length, 0,
			  message_enable_multibyte);
	  it.glyph_row->truncated_on_right_p = 0;
	  compute_line_metrics (&it);
	}
      else
	blank_row (w, it.glyph_row, 0);
      
      it.glyph_row->y = it.current_y;
      it.current_y += it.glyph_row->height;

      /* Clear the rest of the lines.  */
      while (it.current_y < it.last_visible_y)
	{
	  ++it.glyph_row;
	  blank_row (w, it.glyph_row, it.current_y);
	  it.current_y += it.glyph_row->height;
	}

      w->must_be_updated_p = 1;
      if (update_frame_p)
	{
	  /* Calling update_single_window is faster when we can use
	     window-based redisplay.  */
	  if (FRAME_WINDOW_P (f))

	}
    }
  else if (!EQ (mini_window, selected_window))
    windows_or_buffers_changed++;

  /* Prevent redisplay optimization in redisplay_internal by resetting
     this_line_start_pos.  This is done because the mini-buffer now
     displays the message instead of its buffer text.  */
  if (EQ (mini_window, selected_window))
    CHARPOS (this_line_start_pos) = 0;
  
  previous_echo_glyphs = echo_area_glyphs;
  previous_echo_area_message = echo_area_message;
  previous_echo_glyphs_length = echo_area_glyphs_length;
}



/***********************************************************************

	clear_desired_matrices (f);
      }
  }

  /* Notice any pending interrupt request to change frame size.  */
  do_pending_window_change ();

  /* Clear frames marked as garbaged.  */
  if (frame_garbaged)
    {
      /* Old redisplay called redraw_garbaged_frames here which in
	 turn called redraw_frame which in turn called clear_frame.
	 The call to clear_frame is a source of flickering.  After
	 checking the places where SET_FRAME_GARBAGED is called, I
	 believe a clear_frame is not necessary.  It should suffice in
	 the new redisplay to invalidate all current matrices, and
	 ensure a complete redisplay of all windows.  */
      Lisp_Object tail, frame;
      
      FOR_EACH_FRAME (tail, frame)
	{
	  struct frame *f = XFRAME (frame);
	  
	  if (FRAME_VISIBLE_P (f) && FRAME_GARBAGED_P (f))
	    {
	      clear_current_matrices (f);
	      f->garbaged = 0;
	    }
	}

      frame_garbaged = 0;
      ++windows_or_buffers_changed;
    }

  /* Build menubar and toolbar items.  */
  prepare_menu_bars ();

  if (windows_or_buffers_changed)
    update_mode_lines++;

  /* Detect case that we need to write or remove a star in the mode line.  */

    consider_all_windows_p = windows_or_buffers_changed = 1;

  /* Normally the message* functions will have already displayed and
     updated the echo area, but the frame may have been trashed, or
     the update may have been preempted, so display the echo area
     again here.  */
  if (echo_area_glyphs
      || STRINGP (echo_area_message)
      || previous_echo_glyphs
      || STRINGP (previous_echo_area_message))
    {
      echo_area_display (0);
      must_finish = 1;
    }

  /* If showing the region, and mark has changed, we must redisplay
     the whole window.  The assignment to this_line_start_pos prevents
     the optimization directly below this if-statement.  */
  if (((!NILP (Vtransient_mark_mode)

	       && 0 <= w->cursor.vpos
	       && XINT (w->height) > w->cursor.vpos)
	{
	  if (!must_finish)
	    {
	      do_pending_window_change ();

	      /* We used to always goto end_of_redisplay here, but this 
		 isn't enough if we have a blinking cursor.  */
	      if (w->cursor_off_p == w->last_cursor_off_p)
		goto end_of_redisplay;

      if (new_count != number_of_visible_frames)
	windows_or_buffers_changed++;
    }

  /* Change frame size now if a change is pending.  */
  do_pending_window_change ();

  /* If we just did a pending size change, or have additional
     visible frames, redisplay again.  */
  if (windows_or_buffers_changed && !pause)
    goto retry;

 end_of_redisplay:;
  
  unbind_to (count, Qnil);
}


/* Redisplay, but leave alone any recent echo area message unless

   wait_reading_process_input for examples of these situations.  */

void
redisplay_preserve_echo_area ()
{
  if (!echo_area_glyphs
      && !STRINGP (echo_area_message)
      && (previous_echo_glyphs
	  || STRINGP (previous_echo_area_message)))
    {
      echo_area_glyphs = previous_echo_glyphs;
      echo_area_message = previous_echo_area_message;
      echo_area_glyphs_length = previous_echo_glyphs_length;
      redisplay_internal (1);
      echo_area_glyphs = NULL;
      echo_area_message = Qnil;
    }
  else
    redisplay_internal (1);
}

static Lisp_Object
unwind_redisplay (old_redisplaying_p)
     Lisp_Object old_redisplaying_p;
{
  redisplaying_p = XFASTINT (old_redisplaying_p);
}


/* Mark the display of windows in the window tree rooted at WINDOW as
   accurate or inaccurate.  If FLAG is non-zero mark display of WINDOW

		      || buffer->clip_changed);

  if (MINI_WINDOW_P (w))
    {
      if (w == XWINDOW (echo_area_window)
	  && (echo_area_glyphs
	      || STRINGP (echo_area_message)))
	{
	  if (update_mode_line)
	    /* We may have to update a tty frame's menu bar or a
	       toolbar.  Example `M-x C-h C-h C-g'.  */
	    goto finish_menu_bars;

	 which reflect the whole buffer size, with special markers
	 indicating narrowing, and scrollbars which reflect only the
	 visible region.

	 Note that mini-buffers sometimes aren't displaying any text.  */
      if (! MINI_WINDOW_P (w)
	  || (w == XWINDOW (minibuf_window)
	      && !echo_area_glyphs
	      && !STRINGP (echo_area_message)))
	{
	  whole = ZV - BEGV;
	  start = marker_position (w->start) - BEGV;
	  /* I don't think this is guaranteed to be right.  For the
	     moment, we'll pretend it is.  */

    return NULL;

  /* Set row to the last row in W's current matrix displaying text.  */
  row = MATRIX_ROW (w->current_matrix, XFASTINT (w->window_end_vpos));
  
  /* End vpos should always be on text, except in an entirely empty
     matrix.  */
  xassert (MATRIX_ROW_DISPLAYS_TEXT_P (row)
	   || MATRIX_ROW_VPOS (row, w->current_matrix) == 0);

  /* If matrix is entirely empty, no unchanged row exists.  */ 
  if (MATRIX_ROW_DISPLAYS_TEXT_P (row))
    {
      /* The value of row is the last glyph row in the matrix having a
	 meaningful buffer position in it.  The end position of row

/* Append one space to the glyph row of iterator IT if doing a
   window-based redisplay.  DEFAULT_FACE_P non-zero means let the
   space have the default face, otherwise let it have the same face as
   IT->face_id.  This function is called to make sure that there is
   always one glyph at the end of a glyph row that the cursor can be
   set on under window-systems.  (If there weren't such a glyph we
   would not know how wide and tall the cursor should be displayed).  */

static void
append_space (it, default_face_p)
     struct it *it;
     int default_face_p;

     display_line on only one line at a time, in which case this
     can't really hurt too much, or we call it on lines which appear
     one after another in the buffer, in which case all calls to
     recenter_overlay_lists but the first will be pretty cheap.  */
  recenter_overlay_lists (current_buffer, IT_CHARPOS (*it));

#if NO_PROMPT_IN_BUFFER
  /* Show mini-buffer prompt, if at the beginning of a mini-buffer
     window.  */
  if (MINI_WINDOW_P (it->w) 
      && MATRIX_ROW_START_CHARPOS (row) == BEG 
      && it->vpos == 0)
    {
      if (NILP (minibuf_prompt))
	minibuf_prompt_width = minibuf_prompt_pixel_width = 0;
      else
	{
	  /* We would like to truncate the prompt a little bit before
	     the right margin of the window, so that user input can
	     start on the first line.  Set max_x to this position.  */
	  int max_x = (it->last_visible_x - 4 * CANON_X_UNIT (it->f));

	  /* We use a temporary iterator different from IT so that
	     IT's settings are not overwritten when displaying
	     the prompt.  */
	  struct it ti;

	  ti = *it;

	  /* Display the prompt.  Set minibuf_prompt_width to the 
	     number of glyphs generated for the prompt, set
	     minibuf_prompt_pixel_width to its width in pixels.  */
	  xassert (it->current_x == 0);
	  display_string (NULL, minibuf_prompt, Qnil, 0, 0, &ti,
			  0, 0, max_x, -1);
	  minibuf_prompt_width = ti.hpos;
	  minibuf_prompt_pixel_width = ti.current_x;

	  /* Transfer pixel and hpos information to IT.  */
	  it->hpos = ti.hpos;
	  it->current_x = ti.current_x;
	}
    }
#endif /* NO_PROMPT_IN_BUFFER */

  /* Move over display elements that are not visible because we are
     hscrolled.  This may stop at an x-position < IT->first_visible_x
     if the first glyph is partially visible or if we hit a line end.  */
  if (it->current_x < it->first_visible_x)

	  eol_str_len = XSTRING (eoltype)->size;
	}
      else if (INTEGERP (eoltype)
	       && CHAR_VALID_P (XINT (eoltype), 0))
	{
	  int c = XINT (eoltype);
	  unsigned char work[4];

	  eol_str_len = CHAR_STRING (XINT (eoltype), work, eol_str);
	}
      else

 ***********************************************************************/

void
syms_of_xdisp ()
{
  echo_area_message = previous_echo_area_message = Qnil;
  staticpro (&echo_area_message);
  staticpro (&previous_echo_area_message);

  staticpro (&Qinhibit_redisplay);
  Qinhibit_redisplay = intern ("inhibit-redisplay");

#if GLYPH_DEBUG
  defsubr (&Sdump_glyph_matrix);
  defsubr (&Sdump_glyph_row);
  defsubr (&Sdump_toolbar_row);

  staticpro (&last_arrow_position);
  staticpro (&last_arrow_string);
  last_arrow_position = Qnil;
  last_arrow_string = Qnil;

  DEFVAR_LISP ("show-trailing-whitespace", &Vshow_trailing_whitespace,
    "Non-nil means highlight trailing whitespace.\n\
The face used for trailing whitespace is `trailing-whitespace'.");
  Vshow_trailing_whitespace = Qnil;

Specifically this means that unibyte non-ASCII characters\n\
are displayed by converting them to the equivalent multibyte characters\n\
according to the current language environment.  As a result, they are\n\
displayed according to the current fontset.");
  unibyte_display_via_language_environment = 0;
}


/* Initialize this module when Emacs starts.  */

  CHARPOS (this_line_start_pos) = 0;

  mini_w = XWINDOW (minibuf_window);
  root_window = FRAME_ROOT_WINDOW (XFRAME (WINDOW_FRAME (mini_w)));

  echo_area_glyphs = 0;
  previous_echo_glyphs = 0;
  echo_area_message = previous_echo_area_message = Qnil;

  if (!noninteractive)
    {
      struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (root_window)));
      int i;

25358:9747bbf3e480

   pixel value by multiplying it with CANON_Y_UNIT, which means that
   there is really a fixed pixel height scroll margin.  */

int scroll_margin;

/* Number of windows showing the buffer of the selected window (or
   another buffer with the same base buffer).  keyboard.c refers to
   this.  */

int buffer_shared;

   of the line that contains the prompt.  */

int minibuf_prompt_width;
int minibuf_prompt_pixel_width;

/* This is the window where the echo area message was displayed.  It
   is always a mini-buffer window, but it may not be the same window
   currently active as a mini-buffer.  */

Lisp_Object echo_area_window;

/* List of pairs (MESSAGE . MULTIBYTE).  The function save_message
   pushes the current message and the value of
   message_enable_multibyte on the stack, the function restore_message
   pops the stack and displays MESSAGE again.  */

Lisp_Object Vmessage_stack;

/* Nonzero means multibyte characters were enabled when the echo area
   message was specified.  */

int message_enable_multibyte;

/* Number of lines to keep in the message log buffer.  t means
   infinite.  nil means don't log at all.  */

Lisp_Object Vmessage_log_max;

/* Current, index 0, and last displayed echo area message.  Either
   buffers from echo_buffers, or nil to indicate no message.  */

Lisp_Object echo_area_buffer[2];

/* The buffers referenced from echo_area_buffer.  */

static Lisp_Object echo_buffer[2];

/* A vector saved used in with_area_buffer to reduce consing.  */

static Lisp_Object Vwith_echo_area_save_vector;

/* Non-zero means display_echo_area should display the last echo area
   message again.  Set by redisplay_preserve_echo_area.  */

static int display_last_displayed_message_p;

/* Nonzero if echo area is being used by print; zero if being used by
   message.  */

int message_buf_print;

/* Maximum height for resizing mini-windows.  */

static Lisp_Object Vmax_mini_window_height;

/* A scratch glyph row with contents used for generating truncation
   glyphs.  Also used in direct_output_for_insert.  */

#define MAX_SCRATCH_GLYPHS 100


/* Function prototypes.  */

static Lisp_Object unwind_with_echo_area_buffer P_ ((Lisp_Object));
static Lisp_Object with_echo_area_buffer_unwind_data P_ ((struct window *));
static int resize_mini_window P_ ((struct window *));
static void clear_garbaged_frames P_ ((void));
static int current_message_1 P_ ((Lisp_Object *));
static int truncate_message_1 P_ ((int));
static int set_message_1 P_ ((char *s, Lisp_Object, int, int));
static int display_echo_area P_ ((struct window *));
static int display_echo_area_1 P_ ((struct window *));
static Lisp_Object unwind_redisplay P_ ((Lisp_Object));
static int string_char_and_length P_ ((unsigned char *, int, int *));
static struct text_pos display_prop_end P_ ((struct it *, Lisp_Object,
					     struct text_pos));
static int compute_window_start_on_continuation_line P_ ((struct window *));

int invisible_ellipsis_p P_ ((Lisp_Object, Lisp_Object));
static void push_it P_ ((struct it *));
static void pop_it P_ ((struct it *));
static void sync_frame_with_window_matrix_rows P_ ((struct window *));
static void redisplay_internal P_ ((int));
static int echo_area_display P_ ((int));
static void redisplay_windows P_ ((Lisp_Object));
static void redisplay_window P_ ((Lisp_Object, int));
static void update_menu_bar P_ ((struct frame *, int));
static int try_window_reusing_current_matrix P_ ((struct window *));
static int try_window_id P_ ((struct window *));

     int charpos, bytepos;
     struct glyph_row *row;
     enum face_id base_face_id;
{
  int highlight_region_p;

  /* Some precondition checks.  */
  xassert (w != NULL && it != NULL);
  xassert (charpos < 0 || (charpos > 0 && charpos <= ZV));

  /* If face attributes have been changed since the last redisplay,
     free realized faces now because they depend on face definitions
     that might have changed.  */

     account.  */
  start_at_line_beg_p = (CHARPOS (pos) == BEGV
			 || FETCH_BYTE (BYTEPOS (pos) - 1) == '\n');
  if (!start_at_line_beg_p)
    reseat_at_previous_visible_line_start (it);

  /* If window start is not at a line start, skip forward to POS to
     get the correct continuation_lines_width and current_x.  */
  if (!start_at_line_beg_p)
    {

	     currently not translated because we use IT->dpvec to hold
	     the translation.  This could easily be changed but I
	     don't believe that it is worth doing.  */
	  else if ((it->c < ' '
		    && (it->area != TEXT_AREA
			|| (it->c != '\n' && it->c != '\t')))
		   || (it->c >= 127
		       && it->len == 1))
	    {
	      /* IT->c is a control character which must be displayed
		 either as '\003' or as `^C' where the '\\' and '^'

    {
      /* Current display element of IT is from a display table entry.
	 Advance in the display table definition.  Reset it to null if
	 end reached, and continue with characters from buffers/
	 strings.  */
      ++it->current.dpvec_index;

      /* Restore face and charset of the iterator to what they were
	 before the display vector entry (these entries may contain
	 faces, and of course characters of different charsets).  */

  struct glyph_row *saved_glyph_row;

  /* Don't produce glyphs in produce_glyphs.  */
  saved_glyph_row = it->glyph_row;
  it->glyph_row = NULL;

  while (1)
    {
      int x, i;
      

     int op;
{
  enum move_it_result skip, skip2 = MOVE_X_REACHED;
  int line_height;

  while (1)
    {
      if (op & MOVE_TO_VPOS)
	{
	  /* If no TO_CHARPOS and no TO_X specified, stop at the

	  && ! FRAME_VISIBLE_P (f))
	Fmake_frame_visible (WINDOW_FRAME (XWINDOW (mini_window)));

      if (m)
	{
	  set_message (m, Qnil, len, multibyte);
	  if (minibuffer_auto_raise)
	    Fraise_frame  (WINDOW_FRAME (XWINDOW (mini_window)));
	}
      else
	clear_message (1, 1);

      do_pending_window_change (0);
      echo_area_display (1);
      do_pending_window_change (0);
      if (frame_up_to_date_hook != 0 && ! gc_in_progress)
	(*frame_up_to_date_hook) (f);
    }
}


/* Display an echo area message M with a specified length of NBYTES
   bytes.  The string may include null characters.  If M is not a
   string, clear out any existing message, and let the mini-buffer
   text show through.  */

void
message3 (m, nbytes, multibyte)
     Lisp_Object m;
     int nbytes;
     int multibyte;
{
  struct gcpro gcpro1;

  GCPRO1 (m);
  
  /* First flush out any partial line written with print.  */
  message_log_maybe_newline ();
  if (STRINGP (m))
    message_dolog (XSTRING (m)->data, nbytes, 1, multibyte);
  message3_nolog (m, nbytes, multibyte);

  UNGCPRO;
}


/* The non-logging version of message3.  */

void
message3_nolog (m, nbytes, multibyte)
     Lisp_Object m;
     int nbytes, multibyte;
{
  message_enable_multibyte = multibyte;

  if (noninteractive)
    {
      if (noninteractive_need_newline)
	putc ('\n', stderr);
      noninteractive_need_newline = 0;
      if (STRINGP (m))
	fwrite (XSTRING (m)->data, nbytes, 1, stderr);
      if (cursor_in_echo_area == 0)
	fprintf (stderr, "\n");
      fflush (stderr);
    }
  /* A null message buffer means that the frame hasn't really been

  else if (INTERACTIVE 
	   && selected_frame->glyphs_initialized_p
	   && FRAME_MESSAGE_BUF (selected_frame))
    {
      Lisp_Object mini_window;
      Lisp_Object frame;
      struct frame *f;

      /* Get the frame containing the mini-buffer
	 that the selected frame is using.  */
      mini_window = FRAME_MINIBUF_WINDOW (selected_frame);
      frame = XWINDOW (mini_window)->frame;
      f = XFRAME (frame);

      FRAME_SAMPLE_VISIBILITY (f);
      if (FRAME_VISIBLE_P (selected_frame)
	  && !FRAME_VISIBLE_P (f))
	Fmake_frame_visible (frame);

      if (STRINGP (m) && XSTRING (m)->size)
	{
	  set_message (NULL, m, nbytes, multibyte);
	  Fraise_frame (frame);
	}
      else
	clear_message (1, 1);

      do_pending_window_change (0);
      echo_area_display (1);
      do_pending_window_change (0);
      if (frame_up_to_date_hook != 0 && ! gc_in_progress)
	(*frame_up_to_date_hook) (f);
    }
}

	     buffer next time.  */
	  message_buf_print = 0;
	}
    }
}


/* Dump an informative message to the minibuf.  If M is 0, clear out
   any existing message, and let the mini-buffer text show through.  */

  message (m, a1, a2, a3);
  Vmessage_log_max = old_log_max;
}


/* Display the current message in the current mini-buffer.  This is
   only called from error handlers in process.c, and is not time
   critical.  */

void
update_echo_area ()
{
  if (!NILP (echo_area_buffer[0]))
    {
      Lisp_Object string;
      string = Fcurrent_message ();
      message3 (string, XSTRING (string)->size, 
		!NILP (current_buffer->enable_multibyte_characters));
    }
}


/* Call FN with args A1..A5 with either the current or last displayed
   echo_area_buffer as current buffer.

   WHICH zero means use the current message buffer
   echo_area_buffer[0].  If that is nil, choose a suitable buffer
   from echo_buffer[] and clear it.

   WHICH > 0 means use echo_area_buffer[1].  If that is nil, choose a
   suitable buffer from echo_buffer[] and clear it.

   If WHICH < 0, set echo_area_buffer[1] to echo_area_buffer[0], so
   that the current message becomes the last displayed one, make
   choose a suitable buffer for echo_area_buffer[0], and clear it.

   Value is what FN returns. */

static int
with_echo_area_buffer (w, which, fn, a1, a2, a3, a4, a5)
     struct window *w;
     int which;
     int (*fn) ();
     int a1, a2, a3, a4, a5;
{
  Lisp_Object buffer;
  int i, this_one, the_other, clear_buffer_p, rc;
  int count = specpdl_ptr - specpdl;

  /* If buffers aren't life, make new ones.  */
  for (i = 0; i < 2; ++i)
    if (!BUFFERP (echo_buffer[i])
	|| NILP (XBUFFER (echo_buffer[i])->name))
      {
	char name[30];
	sprintf (name, " *Echo Area %d*", i);
	echo_buffer[i] = Fget_buffer_create (build_string (name));
      }

  clear_buffer_p = 0;
  
  if (which == 0)
    this_one = 0, the_other = 1;
  else if (which > 0)
    this_one = 1, the_other = 0;
  else
    {
      this_one = 0, the_other = 1;
      clear_buffer_p = 1;
      
      /* We need a fresh one in case the current echo buffer equals
	 the one containing the last displayed echo area message.  */
      if (!NILP (echo_area_buffer[this_one])
	  && EQ (echo_area_buffer[this_one], echo_area_buffer[the_other]))
	echo_area_buffer[this_one] = Qnil;
      
    }

  /* Choose a suitable buffer from echo_buffer[] is we don't
     have one.  */
  if (NILP (echo_area_buffer[this_one]))
    {
      echo_area_buffer[this_one]
	= (EQ (echo_area_buffer[the_other], echo_buffer[this_one])
	   ? echo_buffer[the_other]
	   : echo_buffer[this_one]);
      clear_buffer_p = 1;
    }

  buffer = echo_area_buffer[this_one];

  record_unwind_protect (unwind_with_echo_area_buffer,
			 with_echo_area_buffer_unwind_data (w));

  /* Make the echo area buffer current.  Note that for display
     purposes, it is not necessary that the displayed window's buffer
     == current_buffer, except for text property lookup.  So, let's
     only set that buffer temporarily here without doing a full
     Fset_window_buffer.  We must also change w->pointm, though,
     because otherwise an assertions in unshow_buffer fails, and Emacs
     aborts.  */
  set_buffer_internal (XBUFFER (buffer));
  if (w)
    {
      w->buffer = buffer;
      set_marker_both (w->pointm, buffer, BEG, BEG_BYTE);
    }
  current_buffer->truncate_lines = Qnil;
  current_buffer->undo_list = Qt;
  current_buffer->read_only = Qnil;

  if (clear_buffer_p && Z > BEG)
    del_range (BEG, Z);

  xassert (BEGV >= BEG);
  xassert (ZV <= Z && ZV >= BEGV);

  rc = fn (a1, a2, a3, a4, a5);

  xassert (BEGV >= BEG);
  xassert (ZV <= Z && ZV >= BEGV);

  unbind_to (count, Qnil);
  return rc;
}


/* Save state that should be preserved around the call to the function
   FN called in with_echo_area_buffer.  */

static Lisp_Object
with_echo_area_buffer_unwind_data (w)
     struct window *w;
{
  int i = 0;
  Lisp_Object vector;

  /* Reduce consing by keeping one vector in
     Vwith_echo_area_save_vector.  */
  vector = Vwith_echo_area_save_vector;
  Vwith_echo_area_save_vector = Qnil;
  
  if (NILP (vector))
    vector = Fmake_vector (make_number (9), Qnil);
  
  XSETBUFFER (XVECTOR (vector)->contents[i], current_buffer); ++i;
  XVECTOR (vector)->contents[i++] = Vdeactivate_mark;
  XVECTOR (vector)->contents[i++] = make_number (windows_or_buffers_changed);
  XVECTOR (vector)->contents[i++] = make_number (beg_unchanged);
  XVECTOR (vector)->contents[i++] = make_number (end_unchanged);
  
  if (w)
    {
      XSETWINDOW (XVECTOR (vector)->contents[i], w); ++i;
      XVECTOR (vector)->contents[i++] = w->buffer;
      XVECTOR (vector)->contents[i++]
	= make_number (XMARKER (w->pointm)->charpos);
      XVECTOR (vector)->contents[i++]
	= make_number (XMARKER (w->pointm)->bytepos);
    }
  else
    {
      int end = i + 4;
      while (i < end)
	XVECTOR (vector)->contents[i++] = Qnil;
    }

  xassert (i == XVECTOR (vector)->size);
  return vector;
}


/* Restore global state from VECTOR which was created by
   with_echo_area_buffer_unwind_data.  */

static Lisp_Object
unwind_with_echo_area_buffer (vector)
     Lisp_Object vector;
{
  int i = 0;
  
  set_buffer_internal (XBUFFER (XVECTOR (vector)->contents[i])); ++i;
  Vdeactivate_mark = XVECTOR (vector)->contents[i]; ++i;
  windows_or_buffers_changed = XFASTINT (XVECTOR (vector)->contents[i]); ++i;
  beg_unchanged = XFASTINT (XVECTOR (vector)->contents[i]); ++i;
  end_unchanged = XFASTINT (XVECTOR (vector)->contents[i]); ++i;

  if (WINDOWP (XVECTOR (vector)->contents[i]))
    {
      struct window *w;
      Lisp_Object buffer, charpos, bytepos;
      
      w = XWINDOW (XVECTOR (vector)->contents[i]); ++i;
      buffer = XVECTOR (vector)->contents[i]; ++i;
      charpos = XVECTOR (vector)->contents[i]; ++i;
      bytepos = XVECTOR (vector)->contents[i]; ++i;
      
      w->buffer = buffer;
      set_marker_both (w->pointm, buffer,
		       XFASTINT (charpos), XFASTINT (bytepos));
    }

  Vwith_echo_area_save_vector = vector;
  return Qnil;
}


/* Set up the echo area for use by print functions.  MULTIBYTE_P
   non-zero means we will print multibyte.  */

void
setup_echo_area_for_printing (multibyte_p)
     int multibyte_p;
{
  if (!message_buf_print)
    {
      /* A message has been output since the last time we printed.
	 Choose a fresh echo area buffer.  */
      if (EQ (echo_area_buffer[1], echo_buffer[0]))
	echo_area_buffer[0] = echo_buffer[1]; 
      else
	echo_area_buffer[0] = echo_buffer[0];

      /* Switch to that buffer and clear it.  */
      set_buffer_internal (XBUFFER (echo_area_buffer[0]));
      if (Z > BEG)
	del_range (BEG, Z);
      TEMP_SET_PT_BOTH (BEG, BEG_BYTE);

      /* Set up the buffer for the multibyteness we need.  */
      if (multibyte_p
	  != !NILP (current_buffer->enable_multibyte_characters))
	Fset_buffer_multibyte (multibyte_p ? Qt : Qnil);

      /* Raise the frame containing the echo area.  */
      if (minibuffer_auto_raise)
	{
	  Lisp_Object mini_window;
	  mini_window = FRAME_MINIBUF_WINDOW (selected_frame);
	  Fraise_frame  (WINDOW_FRAME (XWINDOW (mini_window)));
	}

      message_buf_print = 1;
    }
  else if (current_buffer != XBUFFER (echo_area_buffer[0]))
    /* Someone switched buffers between print requests.  */
    set_buffer_internal (XBUFFER (echo_area_buffer[0]));
}


/* Display the current echo area message in window W.  Value is
   non-zero if W's height is changed.  */

static int
display_echo_area (w)
     struct window *w;
{
  return with_echo_area_buffer (w, display_last_displayed_message_p,
				(int (*) ()) display_echo_area_1, w);
}


/* Helper for display_echo_area.  Display the current buffer which
   contains the current echo area message in window W, a mini-window.
   Change the height of W so that all of the message is displayed.
   Value is non-zero if height of W was changed.  */

static int
display_echo_area_1 (w)
     struct window *w;
{
  Lisp_Object window;
  struct frame *f = XFRAME (w->frame);
  struct text_pos start;
  int window_height_changed_p = 0;

  /* Do this before displaying, so that we have a large enough glyph
     matrix for the display.  */
  window_height_changed_p = resize_mini_window (w);

  /* Display.  */
  clear_glyph_matrix (w->desired_matrix);
  XSETWINDOW (window, w);
  SET_TEXT_POS (start, BEG, BEG_BYTE);
  try_window (window, start);

  /* The current buffer is the one containing the last displayed
     echo area message.  */
  XSETBUFFER (echo_area_buffer[1], current_buffer);

  return window_height_changed_p;
}


/* Resize mini-window W to fit the size of its contents.  Value is
   non-zero if the window height has been changed.  */

static int
resize_mini_window (w)
     struct window *w;
{
  struct frame *f = XFRAME (w->frame);
  int window_height_changed_p = 0;

  xassert (MINI_WINDOW_P (w));
  
  if (!FRAME_MINIBUF_ONLY_P (f))
    {
      struct it it;
      
      init_iterator (&it, w, BEGV, BEGV_BYTE, NULL, DEFAULT_FACE_ID);
      if (!it.truncate_lines_p)
	{
	  struct window *root = XWINDOW (FRAME_ROOT_WINDOW (f));
	  int total_height = XFASTINT (root->height) + XFASTINT (w->height);
	  int height, max_height;
	  int unit = CANON_Y_UNIT (f);
	  struct text_pos start;

	  /* Compute the max. number of lines specified by the user.  */
	  if (FLOATP (Vmax_mini_window_height))
	    max_height = XFLOATINT (Vmax_mini_window_height) * total_height;
	  else if (INTEGERP (Vmax_mini_window_height))
	    max_height = XINT (Vmax_mini_window_height);

	  /* Correct that max. height if it's bogus. */
	  max_height = max (1, max_height);
	  max_height = min (total_height, max_height);

	  /* Find out the height of the text in the window.  */
	  move_it_to (&it, ZV, -1, -1, -1, MOVE_TO_POS);
	  height = (unit - 1 + it.current_y + last_height) / unit;
	  height = max (1, height);

	  /* Compute a suitable window start.  */
	  if (height > max_height)
	    {
	      height = max_height;
	      init_iterator (&it, w, PT, PT_BYTE, NULL, DEFAULT_FACE_ID);
	      move_it_vertically_backward (&it, (height - 1) * unit);
	      start = it.current.pos;
	    }
	  else
	    SET_TEXT_POS (start, BEGV, BEGV_BYTE);
	  SET_MARKER_FROM_TEXT_POS (w->start, start);

	  /* Change window's height, if necessary.  */
	  if (height != XFASTINT (w->height))
	    {
	      Lisp_Object old_selected_window;
	      
	      old_selected_window = selected_window;
	      XSETWINDOW (selected_window, w);
	      change_window_height (height - XFASTINT (w->height), 0);
	      selected_window = old_selected_window;
	      window_height_changed_p = 1;
	    }
	}
    }

  return window_height_changed_p;
}


/* Value is the current message, a string, or nil if there is no
   current message.  */

Lisp_Object
current_message ()
{
  Lisp_Object msg;

  if (NILP (echo_area_buffer[0]))
    msg = Qnil;
  else
    {
      with_echo_area_buffer (0, 0, (int (*) ()) current_message_1, &msg);
      if (NILP (msg))
	echo_area_buffer[0] = Qnil;
    }
  
  return msg;
}


static int
current_message_1 (msg)
     Lisp_Object *msg;
{
  if (Z > BEG)
    *msg = make_buffer_string (BEG, Z, 1);
  else
    *msg = Qnil;
  return 0;
}


/* Push the current message on Vmessage_stack for later restauration
   by restore_message.  Value is non-zero if the current message isn't
   empty.  This is a relatively infrequent operation, so it's not
   worth optimizing.  */

int
push_message ()
{
  Lisp_Object msg;
  msg = current_message ();
  Vmessage_stack = Fcons (msg, Vmessage_stack);
  return STRINGP (msg);
}


/* Restore message display from the top of Vmessage_stack.  */

void
restore_message ()
{
  Lisp_Object msg;
  
  xassert (CONSP (Vmessage_stack));
  msg = XCAR (Vmessage_stack);
  if (STRINGP (msg))
    message3_nolog (msg, STRING_BYTES (XSTRING (msg)), STRING_MULTIBYTE (msg));
  else
    message3_nolog (msg, 0, 0);
}


/* Pop the top-most entry off Vmessage_stack.  */

void
pop_message ()
{
  xassert (CONSP (Vmessage_stack));
  Vmessage_stack = XCDR (Vmessage_stack);
}


/* Check that Vmessage_stack is nil.  Called from emacs.c when Emacs
   exits.  If the stack is not empty, we have a missing pop_message
   somewhere.  */

void
check_message_stack ()
{
  if (!NILP (Vmessage_stack))
    abort ();
}


/* Truncate to NCHARS what will be displayed in the echo area the next
   time we display it---but don't redisplay it now.  */

void
truncate_echo_area (nchars)
     int nchars;
{
  if (nchars == 0)
    echo_area_buffer[0] = Qnil;
  /* A null message buffer means that the frame hasn't really been
     initialized yet.  Error messages get reported properly by
     cmd_error, so this must be just an informative message; toss it.  */
  else if (!noninteractive
	   && INTERACTIVE
	   && FRAME_MESSAGE_BUF (selected_frame)
	   && !NILP (echo_area_buffer[0]))
    with_echo_area_buffer (0, 0, (int (*) ()) truncate_message_1, nchars);
}


/* Helper function for truncate_echo_area.  Truncate the current
   message to at most NCHARS characters.  */

static int
truncate_message_1 (nchars)
     int nchars;
{
  if (BEG + nchars < Z)
    del_range (BEG + nchars, Z);
  if (Z == BEG)
    echo_area_buffer[0] = Qnil;
  return 0;
}


/* Set the current message to a substring of S or STRING.

   If STRING is a Lisp string, set the message to the first NBYTES
   bytes from STRING.  NBYTES zero means use the whole string.  If
   STRING is multibyte, the message will be displayed multibyte.

   If S is not null, set the message to the first LEN bytes of S.  LEN
   zero means use the whole string.  MULTIBYTE_P non-zero means S is
   multibyte.  Display the message multibyte in that case.  */

void
set_message (s, string, nbytes, multibyte_p)
     char *s;
     Lisp_Object string;
     int nbytes;
{
  message_enable_multibyte
    = ((s && multibyte_p)
       || (STRINGP (string) && STRING_MULTIBYTE (string)));
  
  with_echo_area_buffer (0, -1, (int (*) ()) set_message_1,
			 s, string, nbytes, multibyte_p);
  message_buf_print = 0;
}


/* Helper function for set_message.  Arguments have the same meaning
   as there.  This function is called with the echo area buffer being
   current.  */

static int
set_message_1 (s, string, nbytes, multibyte_p)
     char *s;
     Lisp_Object string;
     int nbytes, multibyte_p;
{
  xassert (BEG == Z);
  
  /* Change multibyteness of the echo buffer appropriately.  */
  if (message_enable_multibyte
      != !NILP (current_buffer->enable_multibyte_characters))
    Fset_buffer_multibyte (message_enable_multibyte ? Qt : Qnil);

  /* Insert new message at BEG.  */
  TEMP_SET_PT_BOTH (BEG, BEG_BYTE);

  if (STRINGP (string))
    {
      int nchars;
      
      if (nbytes == 0)
	nbytes = XSTRING (string)->size_byte;
      nchars = string_byte_to_char (string, nbytes);
      
      /* This function takes care of single/multibyte conversion.  We
         just have to ensure that the echo area buffer has the right
         setting of enable_multibyte_characters.  */
      insert_from_string (string, 0, 0, nchars, nbytes, 1);
    }
  else if (s)
    {
      if (nbytes == 0)
	nbytes = strlen (s);
      
      if (multibyte_p && NILP (current_buffer->enable_multibyte_characters))
	{
	  /* Convert from multi-byte to single-byte.  */
	  int i, c, n;
	  unsigned char work[1];
	  
	  /* Convert a multibyte string to single-byte.  */
	  for (i = 0; i < nbytes; i += n)
	    {
	      c = string_char_and_length (s + i, nbytes - i, &n);
	      work[0] = (SINGLE_BYTE_CHAR_P (c)
			 ? c
			 : multibyte_char_to_unibyte (c, Qnil));
	      insert_1_both (work, 1, 1, 1, 0, 0);
	    }
	}
      else if (!multibyte_p
	       && !NILP (current_buffer->enable_multibyte_characters))
	{
	  /* Convert from single-byte to multi-byte.  */
	  int i, c, n;
	  unsigned char *msg = (unsigned char *) s;
	  unsigned char *str, work[4];
      
	  /* Convert a single-byte string to multibyte.  */
	  for (i = 0; i < nbytes; i++)
	    {
	      c = unibyte_char_to_multibyte (msg[i]);
	      n = CHAR_STRING (c, work, str);
	      insert_1_both (work, 1, n, 1, 0, 0);
	    }
	}
      else
	insert_1 (s, nbytes, 1, 0, 0);
    }

  return 0;
}


/* Clear messages.  CURRENT_P non-zero means clear the current
   message.  LAST_DISPLAYED_P non-zero means clear the message
   last displayed.  */

void
clear_message (current_p, last_displayed_p)
     int current_p, last_displayed_p;
{
  if (current_p)
    echo_area_buffer[0] = Qnil;
  
  if (last_displayed_p)
    echo_area_buffer[1] = Qnil;
  
  message_buf_print = 0;
}

/* Clear garbaged frames.

   This function is used where the old redisplay called
   redraw_garbaged_frames which in turn called redraw_frame which in
   turn called clear_frame.  The call to clear_frame was a source of
   flickering.  I believe a clear_frame is not necessary.  It should
   suffice in the new redisplay to invalidate all current matrices,
   and ensure a complete redisplay of all windows.  */

static void
clear_garbaged_frames ()
{
  if (frame_garbaged)
    {
      Lisp_Object tail, frame;
      
      FOR_EACH_FRAME (tail, frame)
	{
	  struct frame *f = XFRAME (frame);

	}

      frame_garbaged = 0;
      ++windows_or_buffers_changed;
    }
}


/* Redisplay the echo area of selected_frame.  If UPDATE_FRAME_P is
   non-zero update selected_frame.  Value is non-zero if the
   mini-windows height has been changed.  */

static int
echo_area_display (update_frame_p)
     int update_frame_p;
{
  Lisp_Object mini_window;
  struct window *w;
  struct frame *f;
  int window_height_changed_p = 0;

  mini_window = FRAME_MINIBUF_WINDOW (selected_frame);
  w = XWINDOW (mini_window);
  f = XFRAME (WINDOW_FRAME (w));

  /* Don't display if frame is invisible or not yet initialized.  */
  if (!FRAME_VISIBLE_P (f) || !f->glyphs_initialized_p)
    return 0;

  /* When Emacs starts, selected_frame may be a visible terminal
     frame, even if we run under a window system.  If we let this
     through, a message would be displayed on the terminal.  */
#ifdef HAVE_WINDOW_SYSTEM
  if (!inhibit_window_system && !FRAME_WINDOW_P (selected_frame))
    return 0;
#endif /* HAVE_WINDOW_SYSTEM */

  /* Redraw garbaged frames.  */
  if (frame_garbaged)
    clear_garbaged_frames ();

  if (!NILP (echo_area_buffer[0]) || minibuf_level == 0)
    {
      echo_area_window = mini_window;
      window_height_changed_p = display_echo_area (w);
      w->must_be_updated_p = 1;
      
      if (update_frame_p)
	{
	  /* Calling update_single_window is faster when we can use
	     window-based redisplay.  */
	  if (FRAME_WINDOW_P (f))

	}
    }
  else if (!EQ (mini_window, selected_window))
    windows_or_buffers_changed++;

  if (NILP (echo_area_buffer[0]))
    clear_message (0, 1);
  
  /* Prevent redisplay optimization in redisplay_internal by resetting
     this_line_start_pos.  This is done because the mini-buffer now
     displays the message instead of its buffer text.  */
  if (EQ (mini_window, selected_window))
    CHARPOS (this_line_start_pos) = 0;

  return window_height_changed_p;
}



/***********************************************************************

	clear_desired_matrices (f);
      }
  }

  /* Notice any pending interrupt request to change frame size.  */
  do_pending_window_change (1);

  /* Clear frames marked as garbaged.  */
  if (frame_garbaged)
    clear_garbaged_frames ();

  /* Build menubar and toolbar items.  */
  prepare_menu_bars ();

 retry_1:

  if (windows_or_buffers_changed)
    update_mode_lines++;

  /* Detect case that we need to write or remove a star in the mode line.  */

    consider_all_windows_p = windows_or_buffers_changed = 1;

  /* Normally the message* functions will have already displayed and
     updated the echo area, but the frame may have been trashed, or
     the update may have been preempted, so display the echo area
     again here.  Checking both message buffers captures the case that
     the echo area should be cleared.  */
  if (!NILP (echo_area_buffer[0]) || !NILP (echo_area_buffer[1]))
    {
      int window_height_changed_p = echo_area_display (0);
      must_finish = 1;
      if (fonts_changed_p)
	goto retry;
      else if (window_height_changed_p)
	{
	  consider_all_windows_p = 1;
	  ++update_mode_lines;
	  ++windows_or_buffers_changed;
	}
    }
  else if (w == XWINDOW (minibuf_window) && resize_mini_window (w))
    {
      /* Resized active mini-window to fit the size of what it is
         showing.  */
      ++windows_or_buffers_changed;
      goto retry;
    }
  

  /* If showing the region, and mark has changed, we must redisplay
     the whole window.  The assignment to this_line_start_pos prevents
     the optimization directly below this if-statement.  */
  if (((!NILP (Vtransient_mark_mode)

	       && 0 <= w->cursor.vpos
	       && XINT (w->height) > w->cursor.vpos)
	{
	  if (!must_finish)
	    {
	      do_pending_window_change (1);

	      /* We used to always goto end_of_redisplay here, but this 
		 isn't enough if we have a blinking cursor.  */
	      if (w->cursor_off_p == w->last_cursor_off_p)
		goto end_of_redisplay;

      if (new_count != number_of_visible_frames)
	windows_or_buffers_changed++;
    }

  /* Change frame size now if a change is pending.  */
  do_pending_window_change (1);

  /* If we just did a pending size change, or have additional
     visible frames, redisplay again.  */
  if (windows_or_buffers_changed && !pause)
    goto retry;

 end_of_redisplay:;

  unbind_to (count, Qnil);
}


/* Redisplay, but leave alone any recent echo area message unless

   wait_reading_process_input for examples of these situations.  */

void
redisplay_preserve_echo_area ()
{
  if (!NILP (echo_area_buffer[1]))
    {
      /* We have a previously displayed message, but no current
	 message.  Redisplay the previous message.  */
      display_last_displayed_message_p = 1;
      redisplay_internal (1);
      display_last_displayed_message_p = 0;
    }
  else
    redisplay_internal (1);
}

static Lisp_Object
unwind_redisplay (old_redisplaying_p)
     Lisp_Object old_redisplaying_p;
{
  redisplaying_p = XFASTINT (old_redisplaying_p);
  return Qnil;
}


/* Mark the display of windows in the window tree rooted at WINDOW as
   accurate or inaccurate.  If FLAG is non-zero mark display of WINDOW

		      || buffer->clip_changed);

  if (MINI_WINDOW_P (w))
    {
      if (w == XWINDOW (echo_area_window)
	  && !NILP (echo_area_buffer[0]))
	{
	  if (update_mode_line)
	    /* We may have to update a tty frame's menu bar or a
	       toolbar.  Example `M-x C-h C-h C-g'.  */
	    goto finish_menu_bars;

	 which reflect the whole buffer size, with special markers
	 indicating narrowing, and scrollbars which reflect only the
	 visible region.

	 Note that mini-buffers sometimes aren't displaying any text.  */
      if (!MINI_WINDOW_P (w)
	  || (w == XWINDOW (minibuf_window)
	      && NILP (echo_area_buffer[0])))
	{
	  whole = ZV - BEGV;
	  start = marker_position (w->start) - BEGV;
	  /* I don't think this is guaranteed to be right.  For the
	     moment, we'll pretend it is.  */

    return NULL;

  /* Set row to the last row in W's current matrix displaying text.  */
  row = MATRIX_ROW (w->current_matrix, XFASTINT (w->window_end_vpos));
  
  /* If matrix is entirely empty, no unchanged row exists.  */ 
  if (MATRIX_ROW_DISPLAYS_TEXT_P (row))
    {
      /* The value of row is the last glyph row in the matrix having a
	 meaningful buffer position in it.  The end position of row

/* Append one space to the glyph row of iterator IT if doing a
   window-based redisplay.  DEFAULT_FACE_P non-zero means let the
   space have the default face, otherwise let it have the same face as
   IT->face_id.

   This function is called to make sure that there is always one glyph
   at the end of a glyph row that the cursor can be set on under
   window-systems.  (If there weren't such a glyph we would not know
   how wide and tall a box cursor should be displayed).

   At the same time this space let's a nicely handle clearing to the
   end of the line if the row ends in italic text.  */

static void
append_space (it, default_face_p)
     struct it *it;
     int default_face_p;

     display_line on only one line at a time, in which case this
     can't really hurt too much, or we call it on lines which appear
     one after another in the buffer, in which case all calls to
     recenter_overlay_lists but the first will be pretty cheap.  */
  recenter_overlay_lists (current_buffer, IT_CHARPOS (*it));

  /* Move over display elements that are not visible because we are
     hscrolled.  This may stop at an x-position < IT->first_visible_x
     if the first glyph is partially visible or if we hit a line end.  */
  if (it->current_x < it->first_visible_x)

	  eol_str_len = XSTRING (eoltype)->size;
	}
      else if (INTEGERP (eoltype)
	       && CHAR_VALID_P (XINT (eoltype), 0))
	{
	  unsigned char work[4];

	  eol_str_len = CHAR_STRING (XINT (eoltype), work, eol_str);
	}
      else

 ***********************************************************************/

void
syms_of_xdisp ()
{
  Vwith_echo_area_save_vector = Qnil;
  staticpro (&Vwith_echo_area_save_vector);

  Vmessage_stack = Qnil;
  staticpro (&Vmessage_stack);
  
  Qinhibit_redisplay = intern ("inhibit-redisplay");
  staticpro (&Qinhibit_redisplay);

#if GLYPH_DEBUG
  defsubr (&Sdump_glyph_matrix);
  defsubr (&Sdump_glyph_row);
  defsubr (&Sdump_toolbar_row);

  staticpro (&last_arrow_position);
  staticpro (&last_arrow_string);
  last_arrow_position = Qnil;
  last_arrow_string = Qnil;
  
  echo_buffer[0] = echo_buffer[1] = Qnil;
  staticpro (&echo_buffer[0]);
  staticpro (&echo_buffer[1]);

  echo_area_buffer[0] = echo_area_buffer[1] = Qnil;
  staticpro (&echo_area_buffer[0]);
  staticpro (&echo_area_buffer[1]);

  DEFVAR_LISP ("show-trailing-whitespace", &Vshow_trailing_whitespace,
    "Non-nil means highlight trailing whitespace.\n\
The face used for trailing whitespace is `trailing-whitespace'.");
  Vshow_trailing_whitespace = Qnil;

Specifically this means that unibyte non-ASCII characters\n\
are displayed by converting them to the equivalent multibyte characters\n\
according to the current language environment.  As a result, they are\n\
displayed according to the current fontset.");
  unibyte_display_via_language_environment = 0;

  DEFVAR_LISP ("max-mini-window-height", &Vmax_mini_window_height,
    "*Maximum height for resizing mini-windows.\n\
If a float, it specifies a fraction of the mini-window frame's height.\n\
If an integer, it specifies a number of lines.");
  Vmax_mini_window_height = make_float (0.25);
}


/* Initialize this module when Emacs starts.  */

  CHARPOS (this_line_start_pos) = 0;

  mini_w = XWINDOW (minibuf_window);
  root_window = FRAME_ROOT_WINDOW (XFRAME (WINDOW_FRAME (mini_w)));

  if (!noninteractive)
    {
      struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (root_window)));
      int i;