diff options
Diffstat (limited to 'lisp/arc-mode.el')
| -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 |