Mercurial > hg > xemacs-beta
comparison src/file-coding.c @ 3302:3d54e5f2dfb0
[xemacs-hg @ 2006-03-26 13:05:14 by stephent]
Make {en,de}code-coding-region interactive commands.
<877j6hnyuj.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Sun, 26 Mar 2006 13:05:17 +0000 |
| parents | d674024a8674 |
| children | e13aec8357bb |
comparison
equal
deleted
inserted
replaced
| 3301:abb6e10c1d05 | 3302:3d54e5f2dfb0 |
|---|---|
| 2286 Lstream_delete (XLSTREAM (lb_outstream)); | 2286 Lstream_delete (XLSTREAM (lb_outstream)); |
| 2287 return make_int (retlen); | 2287 return make_int (retlen); |
| 2288 } | 2288 } |
| 2289 } | 2289 } |
| 2290 | 2290 |
| 2291 DEFUN ("decode-coding-region", Fdecode_coding_region, 3, 4, 0, /* | 2291 DEFUN ("decode-coding-region", Fdecode_coding_region, 3, 4, |
| 2292 "*r\nzDecode from coding system: \ni", /* | |
| 2292 Decode the text between START and END which is encoded in CODING-SYSTEM. | 2293 Decode the text between START and END which is encoded in CODING-SYSTEM. |
| 2293 This is useful if you've read in encoded text from a file without decoding | 2294 This is useful if you've read in encoded text from a file without decoding |
| 2294 it (e.g. you read in a JIS-formatted file but used the `binary' or | 2295 it (e.g. you read in a JIS-formatted file but used the `binary' or |
| 2295 `no-conversion' coding system, so that it shows up as "^[$B!<!+^[(B"). | 2296 `no-conversion' coding system, so that it shows up as "^[$B!<!+^[(B"). |
| 2296 Return length of decoded text. | 2297 Return length of decoded text. |
| 2297 BUFFER defaults to the current buffer if unspecified. | 2298 BUFFER defaults to the current buffer if unspecified, and when interactive. |
| 2298 */ | 2299 */ |
| 2299 (start, end, coding_system, buffer)) | 2300 (start, end, coding_system, buffer)) |
| 2300 { | 2301 { |
| 2301 return encode_decode_coding_region (start, end, coding_system, buffer, | 2302 return encode_decode_coding_region (start, end, coding_system, buffer, |
| 2302 CODING_DECODE); | 2303 CODING_DECODE); |
| 2303 } | 2304 } |
| 2304 | 2305 |
| 2305 DEFUN ("encode-coding-region", Fencode_coding_region, 3, 4, 0, /* | 2306 DEFUN ("encode-coding-region", Fencode_coding_region, 3, 4, |
| 2307 "*r\nzEncode to coding system: \ni", /* | |
| 2306 Encode the text between START and END using CODING-SYSTEM. | 2308 Encode the text between START and END using CODING-SYSTEM. |
| 2307 This will, for example, convert Japanese characters into stuff such as | 2309 This will, for example, convert Japanese characters into stuff such as |
| 2308 "^[$B!<!+^[(B" if you use the JIS encoding. Return length of encoded | 2310 "^[$B!<!+^[(B" if you use the JIS encoding. Return length of encoded text. |
| 2309 text. BUFFER defaults to the current buffer if unspecified. | 2311 BUFFER defaults to the current buffer if unspecified, and when interactive. |
| 2310 */ | 2312 */ |
| 2311 (start, end, coding_system, buffer)) | 2313 (start, end, coding_system, buffer)) |
| 2312 { | 2314 { |
| 2313 return encode_decode_coding_region (start, end, coding_system, buffer, | 2315 return encode_decode_coding_region (start, end, coding_system, buffer, |
| 2314 CODING_ENCODE); | 2316 CODING_ENCODE); |
