comparison src/term.c @ 42954:e514d4931d6f

(Ftty_display_color_cells): New function. (syms_of_term): Defsubr it.

42953:9071f84734d8

     Lisp_Object frame;
{
  return TN_max_colors > 0 ? Qt : Qnil;
}

#ifndef WINDOWSNT

/* Save or restore the default color-related capabilities of this
   terminal.  */
static void

    doc: /* Non-nil means call this function to ring the bell.
The function should accept no arguments.  */);
  Vring_bell_function = Qnil;

  defsubr (&Stty_display_color_p);
}

42954:e514d4931d6f

     Lisp_Object frame;
{
  return TN_max_colors > 0 ? Qt : Qnil;
}

/* Return the number of supported colors.  */
DEFUN ("tty-display-color-cells", Ftty_display_color_cells,
       Stty_display_color_cells, 0, 1, 0,
  "Return the number of colors supported by TTY on FRAME.")
     (frame)
     Lisp_Object frame;
{
  return make_number (TN_max_colors);
}

#ifndef WINDOWSNT

/* Save or restore the default color-related capabilities of this
   terminal.  */
static void

    doc: /* Non-nil means call this function to ring the bell.
The function should accept no arguments.  */);
  Vring_bell_function = Qnil;

  defsubr (&Stty_display_color_p);
  defsubr (&Stty_display_color_cells);
}