Mercurial > emacs

comparison lisp/faces.el @ 71231:f91f3db3c52a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(defined-colors): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 Jun 2006 17:21:31 +0000
parents 667cd756c089
children 1109575a2873 46b1096093f5 a8190f7e546e
comparison
equal deleted inserted replaced
71230:47d4b1395ce9 71231:f91f3db3c52a
1515 1515
1516 (defun defined-colors (&optional frame) 1516 (defun defined-colors (&optional frame)
1517 "Return a list of colors supported for a particular frame. 1517 "Return a list of colors supported for a particular frame.
1518 The argument FRAME specifies which frame to try. 1518 The argument FRAME specifies which frame to try.
1519 The value may be different for frames on different display types. 1519 The value may be different for frames on different display types.
1520 If FRAME doesn't support colors, the value is nil." 1520 If FRAME doesn't support colors, the value is nil.
1521 If FRAME is nil, that stands for the selected frame."
1521 (if (memq (framep (or frame (selected-frame))) '(x w32 mac)) 1522 (if (memq (framep (or frame (selected-frame))) '(x w32 mac))
1522 (xw-defined-colors frame) 1523 (xw-defined-colors frame)
1523 (mapcar 'car (tty-color-alist frame)))) 1524 (mapcar 'car (tty-color-alist frame))))
1524 (defalias 'x-defined-colors 'defined-colors) 1525 (defalias 'x-defined-colors 'defined-colors)
1525 1526