(archive-set-buffer-as-visiting-file): Save

excursion while calling set-auto-coding-function.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index cc9f10531e74061895b3580f1ae1e7d243e6f55c..05878ea52d5b705c6add441936d17c1662ff7ae0 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -844,8 +844,9 @@ using `make-temp-name', and the generated name is returned."
     (let ((coding
           (or coding-system-for-read
               (and set-auto-coding-function
-                   (funcall set-auto-coding-function
-                            filename (- (point-max) (point-min))))
+                   (save-excursion
+                     (funcall set-auto-coding-function
+                              filename (- (point-max) (point-min)))))
               ;; dos-w32.el defines find-operation-coding-system for
               ;; DOS/Windows systems which preserves the coding-system
               ;; of existing files.  We want it to act here as if the