diff options
| author | Kenichi Handa | 1997-02-27 08:01:34 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-02-27 08:01:34 +0000 |
| commit | 719c80be4339bc3ed564640b95e49c161c6b7dfb (patch) | |
| tree | 5bb6520a39fe2023351076a419f46a5e1442aa5d /src | |
| parent | b65dbda39090819a00f7bcce5f6321d876793645 (diff) | |
| download | emacs-719c80be4339bc3ed564640b95e49c161c6b7dfb.tar.gz emacs-719c80be4339bc3ed564640b95e49c161c6b7dfb.zip | |
(Finsert_file_contents, Fwrite_region): Do not perform
character code conversion if enable-multibyte-characters is nil.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/fileio.c b/src/fileio.c index c7c0111dbad..b925c18c41b 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -3059,7 +3059,9 @@ This does code conversion according to the value of\n\ | |||
| 3059 | /* Decide the coding-system of the file. */ | 3059 | /* Decide the coding-system of the file. */ |
| 3060 | { | 3060 | { |
| 3061 | Lisp_Object val = Vcoding_system_for_read; | 3061 | Lisp_Object val = Vcoding_system_for_read; |
| 3062 | if (NILP (val)) | 3062 | if (NILP (current_buffer->enable_multibyte_characters)) |
| 3063 | val = Qnil; | ||
| 3064 | else if (NILP (val)) | ||
| 3063 | { | 3065 | { |
| 3064 | Lisp_Object args[6], coding_systems; | 3066 | Lisp_Object args[6], coding_systems; |
| 3065 | 3067 | ||
| @@ -3622,7 +3624,7 @@ This does code conversion according to the value of\n\ | |||
| 3622 | { | 3624 | { |
| 3623 | Lisp_Object val; | 3625 | Lisp_Object val; |
| 3624 | 3626 | ||
| 3625 | if (auto_saving) | 3627 | if (auto_saving || NILP (current_buffer->enable_multibyte_characters)) |
| 3626 | val = Qnil; | 3628 | val = Qnil; |
| 3627 | else if (!NILP (Vcoding_system_for_write)) | 3629 | else if (!NILP (Vcoding_system_for_write)) |
| 3628 | val = Vcoding_system_for_write; | 3630 | val = Vcoding_system_for_write; |