Mercurial > emacs
changeset 42954:e514d4931d6f
(Ftty_display_color_cells): New function.
(syms_of_term): Defsubr it.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 25 Jan 2002 13:21:49 +0000 |
| parents | 9071f84734d8 |
| children | 7174ca8100e4 |
| files | src/term.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/term.c Fri Jan 25 13:20:18 2002 +0000 +++ b/src/term.c Fri Jan 25 13:21:49 2002 +0000 @@ -1983,6 +1983,16 @@ 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 @@ -2560,5 +2570,6 @@ Vring_bell_function = Qnil; defsubr (&Stty_display_color_p); + defsubr (&Stty_display_color_cells); }