From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 23 Aug 2016 22:31:57 +0000 (+0200)
Subject: Fix invalid image rotations
X-Git-Tag: emacs-26.0.90~1702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d73c252be365868c8d7b98015ea968ead167da4;p=emacs.git

Fix invalid image rotations

* lisp/image.el (image-rotate): Limit rotation to 360 degrees.
---

diff --git a/lisp/image.el b/lisp/image.el
index 08df7d4aa1a..272cee53e4f 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -1013,7 +1013,11 @@ default is 20%."
   (interactive)
   (let ((image (image--get-imagemagick-and-warn)))
     (plist-put (cdr image) :rotation
-               (float (+ (or (plist-get (cdr image) :rotation) 0) 90)))))
+               (float (mod (+ (or (plist-get (cdr image) :rotation) 0) 90)
+                           ;; We don't want to exceed 360 degrees
+                           ;; rotation, because it's not seen as valid
+                           ;; in exif data.
+                           360)))))
 
 (defun image-save ()
   "Save the image under point."