From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 25 Jan 2002 13:21:49 +0000 (+0000)
Subject: (Ftty_display_color_cells): New function.
X-Git-Tag: ttn-vms-21-2-B4~16977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfa62f96ad984f275aec6bb14622b128e81e3c4f;p=emacs.git

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

diff --git a/src/term.c b/src/term.c
index 6326d4b680a..2edee999b6c 100644
--- a/src/term.c
+++ b/src/term.c
@@ -1983,6 +1983,16 @@ DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p,
   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 @@ The function should accept no arguments.  */);
   Vring_bell_function = Qnil;
 
   defsubr (&Stty_display_color_p);
+  defsubr (&Stty_display_color_cells);
 }