[Emacs-diffs] trunk r113927: * net/shr.el (shr-rescale-image): Use ImageMagick even for GIFs

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113927
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-16 17:17:21 +0200
message:
  * net/shr.el (shr-rescale-image): Use ImageMagick even for GIFs
  
  Now that Emacs supports ImageMagick animations.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-16 12:41:17 +0000
+++ b/lisp/ChangeLog    2013-08-16 15:17:21 +0000
@@ -1,3 +1,8 @@
+2013-08-16  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/shr.el (shr-rescale-image): Use ImageMagick even for GIFs
+       now that Emacs supports ImageMagick animations.
+
 2013-08-16  Michael Albinus  <address@hidden>
 
        * net/tramp-cmds.el (top): Don't declare `buffer-name'.

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-08-13 20:13:02 +0000
+++ b/lisp/net/shr.el   2013-08-16 15:17:21 +0000
@@ -779,7 +779,6 @@
   "Rescale DATA, if too big, to fit the current buffer.
 If FORCE, rescale the image anyway."
   (if (or (not (fboundp 'imagemagick-types))
-         (eq (image-type-from-data data) 'gif)
          (not (get-buffer-window (current-buffer))))
       (create-image data nil t :ascent 100)
     (let ((edges (window-inside-pixel-edges