Mercurial > emacs
comparison lisp/image.el @ 109833:5883fc00b976
create-animated-image: Don't add heuristic mask to image (Bug#6839).
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 18 Aug 2010 07:45:14 +0000 |
| parents | 6c819187f088 |
| children | 832428782d9f |
comparison
equal
deleted
inserted
replaced
| 109832:98f2d1d177a5 | 109833:5883fc00b976 |
|---|---|
| 614 (setq type (image-type file-or-data type data-p)) | 614 (setq type (image-type file-or-data type data-p)) |
| 615 (when (image-type-available-p type) | 615 (when (image-type-available-p type) |
| 616 (let* ((animate (memq type image-animated-types)) | 616 (let* ((animate (memq type image-animated-types)) |
| 617 (image | 617 (image |
| 618 (append (list 'image :type type (if data-p :data :file) file-or-data) | 618 (append (list 'image :type type (if data-p :data :file) file-or-data) |
| 619 (if animate '(:index 0 :mask heuristic)) | 619 (if animate '(:index 0)) |
| 620 props))) | 620 props))) |
| 621 (if animate | 621 (if animate |
| 622 (image-animate-start image)) | 622 (image-animate-start image)) |
| 623 image))) | 623 image))) |
| 624 | 624 |