Mercurial > emacs
changeset 18538:d4c11d4de7f4
(Finsert_file_contents): Doc-string fixed. Call
Ffind_operation_coding_system.
(Fwrite_region): Call Ffind_operation_coding_system.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 02 Jul 1997 12:53:58 +0000 |
| parents | 6a726658dfa9 |
| children | 8c13c54d52c8 |
| files | src/fileio.c |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Wed Jul 02 12:53:57 1997 +0000 +++ b/src/fileio.c Wed Jul 02 12:53:58 1997 +0000 @@ -3015,8 +3015,9 @@ When REPLACE is non-nil, the value is the number of characters actually read,\n\ which is often less than the number of characters to be read.\n\ This does code conversion according to the value of\n\ - `coding-system-for-read' or `coding-system-alist', and sets the variable\n\ - `last-coding-system-used' to the coding system actually used.") + `coding-system-for-read' or `file-coding-system-alist',\n\ + and sets the variable `last-coding-system-used' to the coding system\n\ + actually used.") (filename, visit, beg, end, replace) Lisp_Object filename, visit, beg, end, replace; { @@ -3071,7 +3072,7 @@ args[0] = Qinsert_file_contents, args[1] = filename, args[2] = visit, args[3] = beg, args[4] = end, args[5] = replace; - coding_systems = Ffind_coding_system (6, args); + coding_systems = Ffind_operation_coding_system (6, args); val = CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil; } setup_coding_system (Fcheck_coding_system (val), &coding); @@ -3818,7 +3819,7 @@ args[0] = Qwrite_region, args[1] = start, args[2] = end, args[3] = filename, args[4] = append, args[5] = visit, args[6] = lockname; - coding_systems = Ffind_coding_system (7, args); + coding_systems = Ffind_operation_coding_system (7, args); val = (CONSP (coding_systems) ? XCONS (coding_systems)->cdr : current_buffer->buffer_file_coding_system);