summaryrefslogtreecommitdiff
path: root/lisp/jka-compr.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-12-21 02:26:48 +0000
committerRichard M. Stallman <rms@gnu.org>1997-12-21 02:26:48 +0000
commitbab0036837b17b611b6a5e9ef5e40f6abf8c3546 (patch)
tree093f42528e311429fce821853ee0066e0bae041d /lisp/jka-compr.el
parenta59b172a766598760cb37881bca1c480dd597d1f (diff)
downloademacs-bab0036837b17b611b6a5e9ef5e40f6abf8c3546.tar.gz
(jka-compr-insert-file-contents):
If enable-multibyte-characters is nil, decode as raw-text.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r--lisp/jka-compr.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 58453869f92..f66b84291c2 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -504,6 +504,10 @@ There should be no more than seven characters after the final `/'."
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)
+ 'raw-text)
(let ((tail file-coding-system-alist)
(newfile
(jka-compr-byte-compiler-base-file-name file))