Mercurial > emacs
comparison lisp/image.el @ 28958:56c76b64f321
(image-type-available-p): Don't reference image-types
if it isn't bound.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 17 May 2000 15:57:18 +0000 |
| parents | b4ea18c92e38 |
| children | 7bde123bed95 |
comparison
equal
deleted
inserted
replaced
| 28957:71d552e41a3d | 28958:56c76b64f321 |
|---|---|
| 70 | 70 |
| 71 ;;;###autoload | 71 ;;;###autoload |
| 72 (defun image-type-available-p (type) | 72 (defun image-type-available-p (type) |
| 73 "Value is non-nil if image type TYPE is available. | 73 "Value is non-nil if image type TYPE is available. |
| 74 Image types are symbols like `xbm' or `jpeg'." | 74 Image types are symbols like `xbm' or `jpeg'." |
| 75 (not (null (memq type image-types)))) | 75 (and (boundp 'image-types) (not (null (memq type image-types))))) |
| 76 | 76 |
| 77 | 77 |
| 78 ;;;###autoload | 78 ;;;###autoload |
| 79 (defun create-image (file-or-data &optional type data-p &rest props) | 79 (defun create-image (file-or-data &optional type data-p &rest props) |
| 80 "Create an image. | 80 "Create an image. |