/[emacs]/emacs/lisp/facemenu.el
ViewVC logotype

Diff of /emacs/lisp/facemenu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.66 by rms, Tue Apr 30 04:59:24 2002 UTC revision 1.67 by miles, Thu May 9 18:04:27 2002 UTC
# Line 487  of colors that the current display can h Line 487  of colors that the current display can h
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)

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26