487 |
(if (facemenu-color-equal (car l) (car (cdr l))) |
(if (facemenu-color-equal (car l) (car (cdr l))) |
488 |
(setcdr l (cdr (cdr l))) |
(setcdr l (cdr (cdr l))) |
489 |
(setq l (cdr l))))) |
(setq l (cdr l))))) |
490 |
;; Don't show more than what the display can handle. |
(when (memq (display-visual-class) '(gray-scale pseudo-color direct-color)) |
491 |
(let ((lc (nthcdr (1- (display-color-cells)) list))) |
;; Don't show more than what the display can handle. |
492 |
(if lc |
(let ((lc (nthcdr (1- (display-color-cells)) list))) |
493 |
(setcdr lc nil)))) |
(if lc |
494 |
|
(setcdr lc nil))))) |
495 |
(with-output-to-temp-buffer "*Colors*" |
(with-output-to-temp-buffer "*Colors*" |
496 |
(save-excursion |
(save-excursion |
497 |
(set-buffer standard-output) |
(set-buffer standard-output) |