From 1546c55901a99229848a1381aac2e618f5d6c04a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 31 Mar 2010 17:55:01 +0300 Subject: 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'. --- lisp/image.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/image.el') 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) -- cgit v1.2.1