(defined_color): When we find a "near" color in the map,

make sure it is really available as a read-only color.

1 files changed, 10 insertions, 2 deletions

diff --git a/src/xfns.c b/src/xfns.c
index fbb2c05aff6..bade5b56765 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1111,8 +1111,16 @@ defined_color (f, color, color_def, alloc)
                               * ((color_def->blue >> 8) - (cells[x].blue >> 8))));
               if (trial_delta < nearest_delta) 
                 {
-                  nearest = x;
-                  nearest_delta = trial_delta;
+                  XColor temp;
+                  temp.red = cells[x].red;
+                  temp.green = cells[x].green;
+                  temp.blue = cells[x].blue;
+                  status = XAllocColor (display, screen_colormap, &temp);
+                  if (status)
+                    {
+                      nearest = x;
+                      nearest_delta = trial_delta;
+                    }
                 }
             }
           color_def->red = cells[nearest].red;