1976 |
|
|
1977 |
DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p, |
DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p, |
1978 |
0, 1, 0, |
0, 1, 0, |
1979 |
doc: /* Return non-nil if TTY can display colors on FRAME. */) |
doc: /* Return non-nil if TTY can display colors on DISPLAY. */) |
1980 |
(frame) |
(display) |
1981 |
Lisp_Object frame; |
Lisp_Object display; |
1982 |
{ |
{ |
1983 |
return TN_max_colors > 0 ? Qt : Qnil; |
return TN_max_colors > 0 ? Qt : Qnil; |
1984 |
} |
} |
1986 |
/* Return the number of supported colors. */ |
/* Return the number of supported colors. */ |
1987 |
DEFUN ("tty-display-color-cells", Ftty_display_color_cells, |
DEFUN ("tty-display-color-cells", Ftty_display_color_cells, |
1988 |
Stty_display_color_cells, 0, 1, 0, |
Stty_display_color_cells, 0, 1, 0, |
1989 |
"Return the number of colors supported by TTY on FRAME.") |
doc: /* Return the number of colors supported by TTY on DISPLAY. */) |
1990 |
(frame) |
(display) |
1991 |
Lisp_Object frame; |
Lisp_Object display; |
1992 |
{ |
{ |
1993 |
return make_number (TN_max_colors); |
return make_number (TN_max_colors); |
1994 |
} |
} |