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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9712bd80dd37fb2517752f5c879970d9b58fddf..6a92ea844aa83c81a00afb2473d7ac8a7997a032 100644 (file)
--- 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 287cca815706a95cefe5b208c2485df84adb41f8..4a68b4999ea75816472aab8ade13b9143276b277 100644 (file)
--- 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))