Mercurial > emacs
comparison lisp/arc-mode.el @ 70946:f3c65e2e68b3
(archive-set-buffer-as-visiting-file): Call
find-operation-coding-system with (FILENAME . BUFFER).
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 26 May 2006 04:47:36 +0000 |
parents | ff708eaf43ab |
children | bf3518b64c99 a8190f7e546e |
comparison
equal
deleted
inserted
replaced
70945:1af74e601432 | 70946:f3c65e2e68b3 |
---|---|
874 ;; DOS/Windows systems which preserves the coding-system | 874 ;; DOS/Windows systems which preserves the coding-system |
875 ;; of existing files. We want it to act here as if the | 875 ;; of existing files. We want it to act here as if the |
876 ;; extracted file existed. | 876 ;; extracted file existed. |
877 (let ((file-name-handler-alist | 877 (let ((file-name-handler-alist |
878 '(("" . archive-file-name-handler)))) | 878 '(("" . archive-file-name-handler)))) |
879 (car (find-operation-coding-system 'insert-file-contents | 879 (car (find-operation-coding-system |
880 filename t)))))) | 880 'insert-file-contents |
881 (cons filename (current-buffer)) t)))))) | |
881 (if (and (not coding-system-for-read) | 882 (if (and (not coding-system-for-read) |
882 (not enable-multibyte-characters)) | 883 (not enable-multibyte-characters)) |
883 (setq coding | 884 (setq coding |
884 (coding-system-change-text-conversion coding 'raw-text))) | 885 (coding-system-change-text-conversion coding 'raw-text))) |
885 (if (and coding | 886 (if (and coding |