From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 22 Feb 1999 16:01:30 +0000 (+0000)
Subject: (archive-set-buffer-as-visiting-file): Save
X-Git-Tag: emacs-20.4~568
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06e3b626d8bc871fafe5760abd3bc394923f65ab;p=emacs.git

(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 cc9f10531e7..05878ea52d5 100644
--- 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