Mercurial > emacs
changeset 16596:0f917c0edc53
(x-defined-colors): Use color names from w32-color-map.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Tue, 19 Nov 1996 07:19:39 +0000 |
| parents | 299c63a1e83f |
| children | ebdcc5509856 |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Tue Nov 19 07:15:13 1996 +0000 +++ b/lisp/term/w32-win.el Tue Nov 19 07:19:39 1996 +0000 @@ -450,9 +450,11 @@ The argument FRAME specifies which frame to try. The value may be different for frames on different X displays." (or frame (setq frame (selected-frame))) - (let ((all-colors x-colors) - (this-color nil) - (defined-colors nil)) + (let* ((color-map-colors (mapcar (lambda (clr) (car clr)) w32-color-map)) + (all-colors (or color-map-colors x-colors)) + (this-color nil) + (defined-colors nil)) + (message "Defining colors...") (while all-colors (setq this-color (car all-colors) all-colors (cdr all-colors))