comparison src/dispnew.c @ 1766:be62942446f0

(Fredraw_display): Redraw all visible frames. Make the non-multi-frame version interactive.

1765:1cc3ee5afc82

  f->garbaged = 0;
  return Qnil;
}

DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "",
  "Redraw all frames marked as having their images garbled.")
  ()
{
  Lisp_Object frame, tail;

  for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr)
    {
      frame = XCONS (tail)->car;
      if (FRAME_GARBAGED_P (XFRAME (frame)) && FRAME_VISIBLE_P (XFRAME (frame)))
	Fredraw_frame (frame);
    }
  return Qnil;
}

  Fredraw_frame (frame);
}

#else /* not MULTI_FRAME */

DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, 0,
  "Clear screen and output again what is supposed to appear on it.")
  ()
{
  update_begin (0);
  set_terminal_modes ();

1766:be62942446f0

  f->garbaged = 0;
  return Qnil;
}

DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "",
  "Clear and redisplay all visible frames."
  ()
{
  Lisp_Object frame, tail;

  for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr)
    {
      frame = XCONS (tail)->car;
      if (FRAME_VISIBLE_P (XFRAME (frame)))
	Fredraw_frame (frame);
    }
  return Qnil;
}

  Fredraw_frame (frame);
}

#else /* not MULTI_FRAME */

DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "",
  "Clear screen and output again what is supposed to appear on it.")
  ()
{
  update_begin (0);
  set_terminal_modes ();