diff options
| author | Geoff Voelker <[email protected]> | 1996-11-19 07:19:39 +0000 |
|---|---|---|
| committer | Geoff Voelker <[email protected]> | 1996-11-19 07:19:39 +0000 |
| commit | e5e0a3c9fe3b56e020cebe42edfb6958c91b2fff (patch) | |
| tree | caf9897bc390e01b5500ad697203843ab2064bac | |
| parent | a4b984a1d6e7cf6371a6567d8cbac18d6907cfff (diff) | |
(x-defined-colors): Use color names from w32-color-map.
| -rw-r--r-- | lisp/term/w32-win.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index a637aa5487..c295cc3961 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -450,9 +450,11 @@ This returns ARGS with the arguments that have been processed removed." 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)) |