From xemacs-m  Wed Aug 27 18:10:31 1997
Received: from hyperion.pdev.sco.com (root@hyperion.pdev.sco.COM [132.147.65.44])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA04641
	for <xemacs-beta@xemacs.org>; Wed, 27 Aug 1997 18:10:30 -0500 (CDT)
Received: by hyperion.pdev.sco.com
	via sendmail with stdio
	id <m0x3r1d-000BeoC@hyperion.pdev.sco.com>
	for xemacs-beta@xemacs.org; Wed, 27 Aug 1997 15:57:21 -0700 (PDT)
	(Smail-3.2.0.90 1996-Dec-4 #3 built 1997-Jan-3)
Date: Wed, 27 Aug 1997 15:57:21 -0700 (PDT)
From: "J. Kean Johnston" <jkj@sco.com>
X-Sender: jkj@hyperion.pdev.sco.com
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: Small color patch
Message-ID: <Pine.SCO.3.96.970827155558.1822A-100000@hyperion.pdev.sco.com>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

Hi.

Below is a small patch to allow XEmacs to better detect whether or not a
user is sitting on a color TTY.

*** src/redisplay-tty.c.jkj	Wed Aug 27 15:47:55 1997
--- src/redisplay-tty.c	Wed Aug 27 15:51:34 1997
***************
*** 1269,1275 ****
         color, too. */
      char foobuf[500];
      char *fooptr = foobuf;
!     if (tgetstr ("AB", &fooptr) && tgetstr ("AF", &fooptr))
        DEVICE_CLASS (d) = Qcolor;
      else
        DEVICE_CLASS (d) = Qmono;
--- 1269,1277 ----
         color, too. */
      char foobuf[500];
      char *fooptr = foobuf;
!     if ((tgetstr ("AB", &fooptr) && tgetstr ("AF", &fooptr)) ||
!         (tgetstr ("Sf", &fooptr) && tgetstr ("Sb", &fooptr)) ||
!         ((tgetnum ("Co") > 0) && (tgetnum ("pa") > 0)))
        DEVICE_CLASS (d) = Qcolor;
      else
        DEVICE_CLASS (d) = Qmono;


