diff options
| author | Miles Bader <miles@gnu.org> | 2006-08-03 11:45:23 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-08-03 11:45:23 +0000 |
| commit | e2b97060142842813b657144787cef3e6e743967 (patch) | |
| tree | d7f76853b585d08837d3321504a759919c5fbb42 /lisp/arc-mode.el | |
| parent | a8fa10a629c86144c90b8b0e58f99581c4e82aba (diff) | |
| parent | 9b7fa2975f40b82e94dadd13c049ff67ef0ef449 (diff) | |
| download | emacs-e2b97060142842813b657144787cef3e6e743967.tar.gz | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 357-381)
- Merge from gnus--rel--5.10
- Update from CVS
- Merge from erc--emacs--21
* gnus--rel--5.10 (patch 116-122)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98
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 2db56d0450a..8af412174f4 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -892,10 +892,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 |