Mercurial > emacs
comparison src/xfns.c @ 38542:27905f0c73b7
(valid_image_p): Protect better against invalid image
specifications.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 24 Jul 2001 11:28:18 +0000 |
parents | 3238db7bdfef |
children | 58603538f196 |
comparison
equal
deleted
inserted
replaced
38541:2540b694650b | 38542:27905f0c73b7 |
---|---|
5316 { | 5316 { |
5317 int valid_p = 0; | 5317 int valid_p = 0; |
5318 | 5318 |
5319 if (CONSP (object) && EQ (XCAR (object), Qimage)) | 5319 if (CONSP (object) && EQ (XCAR (object), Qimage)) |
5320 { | 5320 { |
5321 Lisp_Object symbol = Fplist_get (XCDR (object), QCtype); | 5321 Lisp_Object tem; |
5322 struct image_type *type = lookup_image_type (symbol); | 5322 |
5323 | 5323 for (tem = XCDR (object); CONSP (tem); tem = XCDR (tem)) |
5324 if (type) | 5324 if (EQ (XCAR (tem), QCtype)) |
5325 valid_p = type->valid_p (object); | 5325 { |
5326 tem = XCDR (tem); | |
5327 if (CONSP (tem) && SYMBOLP (XCAR (tem))) | |
5328 { | |
5329 struct image_type *type; | |
5330 type = lookup_image_type (XCAR (tem)); | |
5331 if (type) | |
5332 valid_p = type->valid_p (object); | |
5333 } | |
5334 | |
5335 break; | |
5336 } | |
5326 } | 5337 } |
5327 | 5338 |
5328 return valid_p; | 5339 return valid_p; |
5329 } | 5340 } |
5330 | 5341 |