mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(jka-compr-insert-file-contents): Read a process

Browse Source 
output without decoding.  Decode the result by
decode-coding-region-as-inserted-from-file.
This commit is contained in:
Kenichi Handa 2003-01-22 02:33:55 +00:00
parent f29387e80b
commit f54a716805
1 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/jka-compr.el
View File

@ -527,20 +527,7 @@ There should be no more than seven characters after the final `/'."
(local-copy
(jka-compr-run-real-handler 'file-local-copy (list filename)))
local-file
size start
(coding-system-for-read
(or coding-system-for-read
;; If multibyte characters are disabled,
;; don't do that conversion.
(and (null enable-multibyte-characters)
(or (auto-coding-alist-lookup
(jka-compr-byte-compiler-base-file-name file))
'raw-text))
(let ((coding (find-operation-coding-system
'insert-file-contents
(jka-compr-byte-compiler-base-file-name file))))
(and (consp coding) (car coding)))
'undecided)) )
size start)
(setq local-file (or local-copy filename))
@ -558,7 +545,7 @@ There should be no more than seven characters after the final `/'."
(condition-case error-code
(progn
(let ((coding-system-for-read 'no-conversion))
(if replace
(goto-char (point-min)))
(setq start (point))
@ -606,6 +593,11 @@ There should be no more than seven characters after the final `/'."
(file-exists-p local-copy)
(delete-file local-copy)))
(decode-region-as-inserted-from-file
(point) (+ (point) size)
(jka-compr-byte-compiler-base-file-name file)
visit beg end replace)
(and
visit
(progn