From 06e3b626d8bc871fafe5760abd3bc394923f65ab Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 22 Feb 1999 16:01:30 +0000 Subject: [PATCH] (archive-set-buffer-as-visiting-file): Save excursion while calling set-auto-coding-function. --- lisp/arc-mode.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.39.2