# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941547053 0
# Node ID b3aa5203ccf0cd764384c1d8ed07045544730c67
# Parent  9b25d0ffe4ec11eec032963f2160f386154659b7
(QCuser_data): New.
(syms_of_xfns): Initialize QCuser_data.
(parse_image_spec): Ignore :user-data DATA properties.

diff -r 9b25d0ffe4ec -r b3aa5203ccf0 src/xfns.c
--- a/src/xfns.c	Tue Nov 02 12:38:00 1999 +0000
+++ b/src/xfns.c	Tue Nov 02 12:50:53 1999 +0000
@@ -5441,7 +5441,7 @@
 Lisp_Object QCtype, QCdata, QCascent, QCmargin, QCrelief;
 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile;
 Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask;
-Lisp_Object QCindex;
+Lisp_Object QCindex, QCuser_data;
 
 /* Other symbols.  */
 
@@ -5622,6 +5622,10 @@
       value = XCAR (plist);
       plist = XCDR (plist);
 
+      /* Always ignore :user-data DATA.  */
+      if (EQ (key, QCuser_data))
+	continue;
+
       /* Find key in KEYWORDS.  Error if not found.  */
       for (i = 0; i < nkeywords; ++i)
 	if (strcmp (keywords[i].name, XSYMBOL (key)->name->data) == 0)
@@ -10424,6 +10428,8 @@
   staticpro (&QCpt_height);
   QCindex = intern (":index");
   staticpro (&QCindex);
+  QCuser_data = intern (":user-data");
+  staticpro (&QCuser_data);
   Qpbm = intern ("pbm");
   staticpro (&Qpbm);