# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1153474001 0
# Node ID bf3518b64c99dcfe5f0110cde91b8032f48c52f3
# Parent  51964b589c64b240cccd5543ebd0c6255c64a26c
(archive-set-buffer-as-visiting-file): Comment fix.

diff -r 51964b589c64 -r bf3518b64c99 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Fri Jul 21 09:20:38 2006 +0000
+++ b/lisp/arc-mode.el	Fri Jul 21 09:26:41 2006 +0000
@@ -870,10 +870,14 @@
 		    (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
-	       ;; extracted file existed.
+	       ;; dos-w32.el defines the function
+	       ;; find-buffer-file-type-coding-system for DOS/Windows
+	       ;; systems which preserves the coding-system of existing files.
+	       ;; (That function is called via file-coding-system-alist.)
+	       ;; Here, we want it to act as if the extracted file existed.
+	       ;; The following let-binding of file-name-handler-alist forces
+	       ;; find-file-not-found-set-buffer-file-coding-system to ignore
+	       ;; the file's name (see dos-w32.el).
 	       (let ((file-name-handler-alist
 		      '(("" . archive-file-name-handler))))
 		 (car (find-operation-coding-system