(list-colors-display): Don't use `display-color-cells' unless the

display class is one for which that info is relevant.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba2aa932259ab745156ab82cfeabe50627560aba..84893cb55e3804e3a0719576ca0174e5b3102879 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-05-10  Miles Bader  <miles@gnu.org>
+
+       * facemenu.el (list-colors-display): Don't use
+       `display-color-cells' unless the display class is one for which
+       that info is relevant.
+
 2002-05-07  Simon Josefsson  <jas@extundo.com>
 
        * mail/smtpmail.el (smtpmail-send-it): Use user-mail-address from

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 96c73e77bbda39d2ca79afe2b0a804f2d1d3460f..c7e9cdd3a53710c13180ee1c1d61e83304fd9e6e 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -487,10 +487,11 @@ of colors that the current display can handle."
        (if (facemenu-color-equal (car l) (car (cdr l)))
            (setcdr l (cdr (cdr l)))
          (setq l (cdr l)))))
-    ;; Don't show more than what the display can handle.
-    (let ((lc (nthcdr (1- (display-color-cells)) list)))
-      (if lc
-         (setcdr lc nil))))
+    (when (memq (display-visual-class) '(gray-scale pseudo-color direct-color))
+      ;; Don't show more than what the display can handle.
+      (let ((lc (nthcdr (1- (display-color-cells)) list)))
+       (if lc
+           (setcdr lc nil)))))
   (with-output-to-temp-buffer "*Colors*"
     (save-excursion
       (set-buffer standard-output)