(archive-set-buffer-as-visiting-file): Comment fix.

2 files changed, 15 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 383881b78b0..a75f47677b9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-07-21  Eli Zaretskii  <eliz@gnu.org>
+
+        * dos-w32.el (find-buffer-file-type-coding-system): Support calls
+        where `(nth 1 command)' is a cons cell.  Doc fix.
+
+        * textmodes/po.el (po-find-charset): Doc fix.
+
 2006-07-21  Ken Manheimer  <ken.manheimer@gmail.com>
 
         * allout.el (allout-unprotected, allout-e-o-prefix-p)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 500ad5ff5fa..4afdfac2bf5 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -870,10 +870,14 @@ using `make-temp-file', and the generated name is returned."
                     (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