(x-defined-colors): Use color names from w32-color-map.

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index a637aa54875bdf2e04da7ad2b08732eff0813ae5..c295cc39617a03f7250103d659847852de43037f 100644 (file)
--- 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))