From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 16 Feb 2021 16:20:06 +0000 (+0200)
Subject: Avoid point movement when visiting image files
X-Git-Tag: emacs-27.2-rc1~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c977370dd734be12ffbaf0da2f3db529d6175b62;p=emacs.git

Avoid point movement when visiting image files

* lisp/image-mode.el (image-toggle-display-image): Preserve point
around the call to exif-parse-buffer, to prevent it from moving
into the image data.  (Bug#46552)
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index aee91ee8b21..24be008f3f7 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -829,7 +829,9 @@ was inserted."
       (setq image-transform-rotation
             (or (exif-orientation
                  (ignore-error exif-error
-                   (exif-parse-buffer)))
+                   ;; exif-parse-buffer can move point, so preserve it.
+                   (save-excursion
+                     (exif-parse-buffer))))
                 0.0)))
     ;; Swap width and height when changing orientation
     ;; between portrait and landscape.