Mercurial > emacs
diff lisp/arc-mode.el @ 72054:bf3518b64c99
(archive-set-buffer-as-visiting-file): Comment fix.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 21 Jul 2006 09:26:41 +0000 |
| parents | f3c65e2e68b3 |
| children | ddcbd2c1b70d 858cb33ae39d |
line wrap: on
line diff
--- 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