diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-07-21 09:27:17 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-07-21 09:27:17 +0000 |
| commit | e9fe3513c97ed16b9003dd0af4433fb724a1928b (patch) | |
| tree | 2f2b776309a74f4685aee58f8f51dde1c887c0fa /lisp/arc-mode.el | |
| parent | b3658160cbed48a465336430cd2bc237b43f8284 (diff) | |
| download | emacs-e9fe3513c97ed16b9003dd0af4433fb724a1928b.tar.gz | |
(archive-set-buffer-as-visiting-file): Comment fix.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 12 |
1 files changed, 8 insertions, 4 deletions
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 |