[Emacs-diffs] Changes to emacs/lisp/arc-mode.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/07/21 09:26:41

Index: arc-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/arc-mode.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- arc-mode.el 26 May 2006 04:47:36 -0000      1.76
+++ arc-mode.el 21 Jul 2006 09:26:41 -0000      1.77
@@ -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