emacs-27 c977370: Avoid point movement when visiting image files

[Eli Zaretskii]

branch: emacs-27
commit c977370dd734be12ffbaf0da2f3db529d6175b62
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    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)
---
 lisp/image-mode.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index aee91ee..24be008 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.