diff options
| author | Joakim Verona | 2013-08-16 17:22:23 +0200 |
|---|---|---|
| committer | Joakim Verona | 2013-08-16 17:22:23 +0200 |
| commit | 2bc8a1cc3cb8347f820d1c59319ee45fdb06c351 (patch) | |
| tree | f1a9de804a93785908db3034e7d6afe13d1ec116 /lisp | |
| parent | bd2867f0787a5dc14da39859830c3d3024b1e117 (diff) | |
| parent | 4b5fe4ee092b847504023d3a471e1924c63f0155 (diff) | |
| download | emacs-2bc8a1cc3cb8347f820d1c59319ee45fdb06c351.tar.gz emacs-2bc8a1cc3cb8347f820d1c59319ee45fdb06c351.zip | |
merge from trunk
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/shr.el | 1 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1b20f9cc10e..8440647737c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-08-16 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * net/shr.el (shr-rescale-image): Use ImageMagick even for GIFs | ||
| 4 | now that Emacs supports ImageMagick animations. | ||
| 5 | |||
| 1 | 2013-08-16 Michael Albinus <michael.albinus@gmx.de> | 6 | 2013-08-16 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 7 | ||
| 3 | * net/tramp-cmds.el (top): Don't declare `buffer-name'. | 8 | * net/tramp-cmds.el (top): Don't declare `buffer-name'. |
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 3283712bf0a..9cac618b159 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -779,7 +779,6 @@ element is the data blob and the second element is the content-type." | |||
| 779 | "Rescale DATA, if too big, to fit the current buffer. | 779 | "Rescale DATA, if too big, to fit the current buffer. |
| 780 | If FORCE, rescale the image anyway." | 780 | If FORCE, rescale the image anyway." |
| 781 | (if (or (not (fboundp 'imagemagick-types)) | 781 | (if (or (not (fboundp 'imagemagick-types)) |
| 782 | (eq (image-type-from-data data) 'gif) | ||
| 783 | (not (get-buffer-window (current-buffer)))) | 782 | (not (get-buffer-window (current-buffer)))) |
| 784 | (create-image data nil t :ascent 100) | 783 | (create-image data nil t :ascent 100) |
| 785 | (let ((edges (window-inside-pixel-edges | 784 | (let ((edges (window-inside-pixel-edges |