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 2dc9419b817dd73514338cb238fa536897417520..c2cf23464080bd074c92e58fe7ae52d74497a8d1 100644 (file)
--- 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.