diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-05-26 04:47:36 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-05-26 04:47:36 +0000 |
| commit | e0b582b8e1a36463483c76f85c43fd6bf2579885 (patch) | |
| tree | 5d64f2cd08686a82dad4ba97944592cd11454279 | |
| parent | b87f5fcce9c1ad51f188b5c2fe17be5979b5010e (diff) | |
| download | emacs-e0b582b8e1a36463483c76f85c43fd6bf2579885.tar.gz | |
(archive-set-buffer-as-visiting-file): Call
find-operation-coding-system with (FILENAME . BUFFER).
| -rw-r--r-- | lisp/arc-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 0b016b981e2..500ad5ff5fa 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -876,8 +876,9 @@ using `make-temp-file', and the generated name is returned." ;; extracted file existed. (let ((file-name-handler-alist '(("" . archive-file-name-handler)))) - (car (find-operation-coding-system 'insert-file-contents - filename t)))))) + (car (find-operation-coding-system + 'insert-file-contents + (cons filename (current-buffer)) t)))))) (if (and (not coding-system-for-read) (not enable-multibyte-characters)) (setq coding |