# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1049191478 0
# Node ID ed2cdbfe7417c4898a322080b7372049a679b1ab
# Parent  722e80f17fb33b39527f7528d9054301b7ed5c2e
(xpm_lookup_color): Grok "opaque".

diff -r 722e80f17fb3 -r ed2cdbfe7417 src/xfns.c
--- a/src/xfns.c	Tue Apr 01 09:57:22 2003 +0000
+++ b/src/xfns.c	Tue Apr 01 10:04:38 2003 +0000
@@ -1,5 +1,5 @@
 /* Functions for the X window system.
-   Copyright (C) 1989, 92, 93, 94, 95, 96, 1997, 1998, 1999, 2000, 2001
+   Copyright (C) 1989, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 01, 02, 03
      Free Software Foundation.
 
 This file is part of GNU Emacs.
@@ -6246,6 +6246,14 @@
 				       color->blue);
       p = xpm_cache_color (f, color_name, color, h);
     }
+  /* You get `opaque' at least from ImageMagick converting pbm to xpm
+     with transparency, and it's useful.  */
+  else if (strcmp ("opaque", color_name) == 0)
+    {
+      bzero (color, sizeof (XColor));  /* Is this necessary/correct?  */
+      color->pixel = FRAME_FOREGROUND_PIXEL (f);
+      p = xpm_cache_color (f, color_name, color, h);
+    }
 
   return p != NULL;
 }