mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(archive-set-buffer-as-visiting-file): Call

Browse Source 
find-operation-coding-system with (FILENAME . BUFFER).
This commit is contained in:
Kenichi Handa 2006-05-26 04:47:36 +00:00
parent b87f5fcce9
commit e0b582b8e1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/arc-mode.el
View File

@ -876,8 +876,9 @@ using `make-temp-file', and the generated name is returned."
;; extracted file existed. ;; extracted file existed.
(let ((file-name-handler-alist (let ((file-name-handler-alist
'(("" . archive-file-name-handler)))) '(("" . archive-file-name-handler))))
(car (find-operation-coding-system 'insert-file-contents (car (find-operation-coding-system
filename t)))))) 'insert-file-contents
(cons filename (current-buffer)) t))))))
(if (and (not coding-system-for-read) (if (and (not coding-system-for-read)
(not enable-multibyte-characters)) (not enable-multibyte-characters))
(setq coding (setq coding