# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1052197712 0
# Node ID b7770bea62053e4c6271e1b3b15b7db15960645f
# Parent  82b5c65c0b81c9fe86be880fc7c24f467b82a9dd
(archive-set-buffer-as-visiting-file): Use
after-insert-file-set-coding, not
after-insert-file-set-buffer-file-coding-system.

diff -r 82b5c65c0b81 -r b7770bea6205 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Tue May 06 04:37:49 2003 +0000
+++ b/lisp/arc-mode.el	Tue May 06 05:08:32 2003 +0000
@@ -894,8 +894,7 @@
 	(setq last-coding-system-used coding))
       (set-buffer-modified-p nil)
       (kill-local-variable 'buffer-file-coding-system)
-      (after-insert-file-set-buffer-file-coding-system (- (point-max)
-							  (point-min))))))
+      (after-insert-file-set-coding (- (point-max) (point-min))))))
 
 (defun archive-mouse-extract (event)
   "Extract a file whose name you click on."