Mercurial > emacs
comparison src/xfns.c @ 26304:b3aa5203ccf0
(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 | 65861669b393 |
children | 9457656ded8b |
comparison
equal
deleted
inserted
replaced
26303:9b25d0ffe4ec | 26304:b3aa5203ccf0 |
---|---|
5439 /* Keywords. */ | 5439 /* Keywords. */ |
5440 | 5440 |
5441 Lisp_Object QCtype, QCdata, QCascent, QCmargin, QCrelief; | 5441 Lisp_Object QCtype, QCdata, QCascent, QCmargin, QCrelief; |
5442 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile; | 5442 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile; |
5443 Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask; | 5443 Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask; |
5444 Lisp_Object QCindex; | 5444 Lisp_Object QCindex, QCuser_data; |
5445 | 5445 |
5446 /* Other symbols. */ | 5446 /* Other symbols. */ |
5447 | 5447 |
5448 Lisp_Object Qlaplace; | 5448 Lisp_Object Qlaplace; |
5449 | 5449 |
5619 /* There must follow a value. */ | 5619 /* There must follow a value. */ |
5620 if (!CONSP (plist)) | 5620 if (!CONSP (plist)) |
5621 return 0; | 5621 return 0; |
5622 value = XCAR (plist); | 5622 value = XCAR (plist); |
5623 plist = XCDR (plist); | 5623 plist = XCDR (plist); |
5624 | |
5625 /* Always ignore :user-data DATA. */ | |
5626 if (EQ (key, QCuser_data)) | |
5627 continue; | |
5624 | 5628 |
5625 /* Find key in KEYWORDS. Error if not found. */ | 5629 /* Find key in KEYWORDS. Error if not found. */ |
5626 for (i = 0; i < nkeywords; ++i) | 5630 for (i = 0; i < nkeywords; ++i) |
5627 if (strcmp (keywords[i].name, XSYMBOL (key)->name->data) == 0) | 5631 if (strcmp (keywords[i].name, XSYMBOL (key)->name->data) == 0) |
5628 break; | 5632 break; |
10422 staticpro (&QCpt_width); | 10426 staticpro (&QCpt_width); |
10423 QCpt_height = intern (":pt-height"); | 10427 QCpt_height = intern (":pt-height"); |
10424 staticpro (&QCpt_height); | 10428 staticpro (&QCpt_height); |
10425 QCindex = intern (":index"); | 10429 QCindex = intern (":index"); |
10426 staticpro (&QCindex); | 10430 staticpro (&QCindex); |
10431 QCuser_data = intern (":user-data"); | |
10432 staticpro (&QCuser_data); | |
10427 Qpbm = intern ("pbm"); | 10433 Qpbm = intern ("pbm"); |
10428 staticpro (&Qpbm); | 10434 staticpro (&Qpbm); |
10429 | 10435 |
10430 #if HAVE_XPM | 10436 #if HAVE_XPM |
10431 Qxpm = intern ("xpm"); | 10437 Qxpm = intern ("xpm"); |