]> git.eshelyaron.com Git - emacs.git/commitdiff
(Fx_display_grayscale_p): Return t or nil.
authorRichard M. Stallman <rms@gnu.org>
Wed, 21 Jun 1995 18:44:42 +0000 (18:44 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 21 Jun 1995 18:44:42 +0000 (18:44 +0000)
Return t for color displays.

src/xfns.c

index 44336bf175c00517e064605f1de9b3efd71bf4c8..f499355efdd1df3eee606261e42b6f51b308aa4f 100644 (file)
@@ -3416,6 +3416,7 @@ If omitted or nil, that stands for the selected frame's display.")
 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 @@ If omitted or nil, that stands for the selected frame's display.")
 {
   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,