From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 18 Aug 2010 07:45:14 +0000 (+0000)
Subject: create-animated-image: Don't add heuristic mask to image (Bug#6839).
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1075cd6169a81e8865714b26f7691cb9e1bc28db;p=emacs.git

create-animated-image: Don't add heuristic mask to image (Bug#6839).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9712bd80dd..6a92ea844aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* image.el (create-animated-image): Don't add heuristic mask to image
+	(Bug#6839).
+
 2010-08-18  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* term/ns-win.el (ns-get-pasteboard, ns-set-pasteboard): Use
diff --git a/lisp/image.el b/lisp/image.el
index 287cca81570..4a68b4999ea 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -616,7 +616,7 @@ Images should not be larger than specified by `max-image-size'."
     (let* ((animate (memq type image-animated-types))
 	   (image
 	    (append (list 'image :type type (if data-p :data :file) file-or-data)
-		    (if animate '(:index 0 :mask heuristic))
+		    (if animate '(:index 0))
 		    props)))
       (if animate
 	  (image-animate-start image))