# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803760282 0
# Node ID 0731c1ec96ad809ae0f29812b57db4d206e4387e
# Parent  a7f7ae7ef458da623a87aa5ebc1761da5853f177
(Fx_display_grayscale_p): Return t or nil.
Return t for color displays.

diff -r a7f7ae7ef458 -r 0731c1ec96ad src/xfns.c
--- a/src/xfns.c	Wed Jun 21 18:32:45 1995 +0000
+++ b/src/xfns.c	Wed Jun 21 18:44:42 1995 +0000
@@ -3416,6 +3416,7 @@
 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
   0, 1, 0,
   "Return t if the X display supports shades of gray.\n\
+Note that color displays do support shades of gray.\n\
 The optional argument DISPLAY specifies which display to ask about.\n\
 DISPLAY should be either a frame or a display name (a string).\n\
 If omitted or nil, that stands for the selected frame's display.")
@@ -3424,12 +3425,22 @@
 {
   struct x_display_info *dpyinfo = check_x_display_info (display);
 
-  if (dpyinfo->n_planes <= 2)
+  if (dpyinfo->n_planes <= 1)
     return Qnil;
 
-  return (dpyinfo->n_planes > 1
-	  && (dpyinfo->visual->class == StaticGray
-	      || dpyinfo->visual->class == GrayScale));
+  switch (dpyinfo->visual->class)
+    {
+    case StaticColor:
+    case PseudoColor:
+    case TrueColor:
+    case DirectColor:
+    case StaticGray:
+    case GrayScale:
+      return Qt;
+
+    default:
+      return Qnil;
+    }
 }
 
 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,