mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
display class is one for which that info is relevant.
This commit is contained in:
Miles Bader 2002-05-09 18:05:10 +00:00
parent a1d8dc878e
commit d259670027
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

9
lisp/facemenu.el
View File

@ -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)