summaryrefslogtreecommitdiff
path: root/lisp/arc-mode.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2006-06-07 18:05:10 +0000
committerMiles Bader <miles@gnu.org>2006-06-07 18:05:10 +0000
commitb883cdb2fefa8ea9c3b0d82eba7a9ee792f871bb (patch)
treede3804210a8cd955e0d3b9abc15679480930bc82 /lisp/arc-mode.el
parent885b7d0991bd4b4b8f4bd1d3cd21c18a697bbce2 (diff)
parent26c9afc3239e18b03537faaea33e3e82e28099e6 (diff)
downloademacs-b883cdb2fefa8ea9c3b0d82eba7a9ee792f871bb.tar.gz
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 285-296) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: admin/FOR-RELEASE: Update refcard section. * gnus--rel--5.10 (patch 102-104) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-64
Diffstat (limited to 'lisp/arc-mode.el')
-rw-r--r--lisp/arc-mode.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 5b08182b7ee..2db56d0450a 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -898,8 +898,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