From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 16 Feb 2021 23:43:52 +0000 (+0100)
Subject: Don't move point in `exif-parse-buffer'
X-Git-Tag: emacs-28.0.90~3693
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64ef8ff74d3f111d2d71a22c2326fa4c974182ba;p=emacs.git

Don't move point in `exif-parse-buffer'

* lisp/image/exif.el (exif-parse-buffer): Don't move point
(bug#46552).
---

diff --git a/lisp/image/exif.el b/lisp/image/exif.el
index 2dc9419b817..c2cf2346408 100644
--- a/lisp/image/exif.el
+++ b/lisp/image/exif.el
@@ -118,8 +118,9 @@ If the data is invalid, an `exif-error' is signaled."
                                     dest))
             (when-let ((app1 (cdr (assq #xffe1 (exif--parse-jpeg)))))
               (exif--parse-exif-chunk app1))))
-      (when-let ((app1 (cdr (assq #xffe1 (exif--parse-jpeg)))))
-        (exif--parse-exif-chunk app1)))))
+      (save-excursion
+        (when-let ((app1 (cdr (assq #xffe1 (exif--parse-jpeg)))))
+          (exif--parse-exif-chunk app1))))))
 
 (defun exif-orientation (exif)
   "Return the orientation (in degrees) in EXIF.