Mercurial > emacs
comparison lisp/term/x-win.el @ 27101:a5791b2ee668
(xw-defined-colors): Call color-supported-p,
the new name of face-color-supported-p.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 03 Jan 2000 11:58:12 +0000 |
| parents | a0674327c167 |
| children | 876dc362394a |
comparison
equal
deleted
inserted
replaced
| 27100:9a0d8503806e | 27101:a5791b2ee668 |
|---|---|
| 435 (this-color nil) | 435 (this-color nil) |
| 436 (defined-colors nil)) | 436 (defined-colors nil)) |
| 437 (while all-colors | 437 (while all-colors |
| 438 (setq this-color (car all-colors) | 438 (setq this-color (car all-colors) |
| 439 all-colors (cdr all-colors)) | 439 all-colors (cdr all-colors)) |
| 440 (and (face-color-supported-p frame this-color t) | 440 (and (color-supported-p this-color frame t) |
| 441 (setq defined-colors (cons this-color defined-colors)))) | 441 (setq defined-colors (cons this-color defined-colors)))) |
| 442 defined-colors)) | 442 defined-colors)) |
| 443 | 443 |
| 444 ;;;; Function keys | 444 ;;;; Function keys |
| 445 | 445 |