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 | 41584c986c3def5a25a3fe013271b46c72873012 (patch) | |
| tree | 7fef7dbfe10d23410e730440be251dbcf1583116 | |
| parent | 47c73c0d52698086bce527380a5d2a3f06ffe71d (diff) | |
| download | emacs-41584c986c3def5a25a3fe013271b46c72873012.tar.gz | |
(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 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)) |