diff options
author | Geoff Voelker <voelker@cs.washington.edu> | 1996-11-19 07:19:39 +0000 |
---|---|---|
committer | Geoff Voelker <voelker@cs.washington.edu> | 1996-11-19 07:19:39 +0000 |
commit | e5e0a3c9fe3b56e020cebe42edfb6958c91b2fff (patch) | |
tree | caf9897bc390e01b5500ad697203843ab2064bac /lisp/term | |
parent | a4b984a1d6e7cf6371a6567d8cbac18d6907cfff (diff) | |
download | emacs-e5e0a3c9fe3b56e020cebe42edfb6958c91b2fff.tar.gz |
(x-defined-colors): Use color names from w32-color-map.
Diffstat (limited to 'lisp/term')
-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 a637aa54875..c295cc39617 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)) |