Mercurial > emacs

changeset 26304:b3aa5203ccf0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(QCuser_data): New. (syms_of_xfns): Initialize QCuser_data. (parse_image_spec): Ignore :user-data DATA properties.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 02 Nov 1999 12:50:53 +0000
parents 9b25d0ffe4ec
children 7c85195ee4ad
files src/xfns.c
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);