[Emacs-diffs] Changes to emacs/lisp/facemenu.el

[Miles Bader]

Index: emacs/lisp/facemenu.el
diff -c emacs/lisp/facemenu.el:1.66 emacs/lisp/facemenu.el:1.67
*** emacs/lisp/facemenu.el:1.66 Tue Apr 30 00:59:24 2002
--- emacs/lisp/facemenu.el      Thu May  9 14:04:27 2002
***************
*** 487,496 ****
        (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))))
    (with-output-to-temp-buffer "*Colors*"
      (save-excursion
        (set-buffer standard-output)
--- 487,497 ----
        (if (facemenu-color-equal (car l) (car (cdr l)))
            (setcdr l (cdr (cdr l)))
          (setq l (cdr l)))))
!     (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)