diff options
| author | Juri Linkov <juri@jurta.org> | 2010-03-31 17:55:01 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2010-03-31 17:55:01 +0300 |
| commit | 1546c55901a99229848a1381aac2e618f5d6c04a (patch) | |
| tree | 8e99c351e487f4a532ac465df83c390108a25216 /lisp/image.el | |
| parent | 52c3078336b724f3d657e2405136f66524483ecb (diff) | |
| download | emacs-1546c55901a99229848a1381aac2e618f5d6c04a.tar.gz | |
Rename `image-extension-data' to `image-metadata'.
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01456.html
* image.c: Add `Qextension_data'.
(syms_of_image): Initialize and staticpro `Qextension_data'.
(Fimage_metadata): Rename from `Fimage_extension_data'.
(gif_load): Put GIF extension data to the property
`Qextension_data'.
* image.el (image-animated-p): Use `image-metadata' instead of
`image-extension-data'. Get GIF extenstion data from metadata
property `extension-data'.
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/image.el b/lisp/image.el index 83ab6288e9a..67c1ad946b1 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -681,8 +681,9 @@ is the delay in 100ths of a second until the next sub-image shall be displayed." (cond ((eq (plist-get (cdr image) :type) 'gif) - (let* ((extdata (image-extension-data image)) - (images (plist-get extdata 'count)) + (let* ((metadata (image-metadata image)) + (images (plist-get metadata 'count)) + (extdata (plist-get metadata 'extension-data)) (anim (plist-get extdata #xF9))) (and (integerp images) (> images 1) (stringp anim) (>= (length anim) 4) |