# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 919699290 0
# Node ID b3c0f3ad64d86cdcb9ecef96be239455a8717441
# Parent  6ef51f9beabc21541786c0ebc7cc1d2d6fe1426c
(archive-set-buffer-as-visiting-file): Save
excursion while calling set-auto-coding-function.

diff -r 6ef51f9beabc -r b3c0f3ad64d8 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Mon Feb 22 13:37:10 1999 +0000
+++ b/lisp/arc-mode.el	Mon Feb 22 16:01:30 1999 +0000
@@ -844,8 +844,9 @@
     (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