Mercurial > emacs
comparison src/coding.c @ 89739:293c9235be3f
(Fdefine_coding_system_internal): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 25 Jan 2004 07:44:22 +0000 |
| parents | 8acde12aba89 |
| children | 78c1fd14ed42 |
comparison
equal
deleted
inserted
replaced
| 89738:d00dd977bedf | 89739:293c9235be3f |
|---|---|
| 406 Lisp_Object Vtranslation_table_for_input; | 406 Lisp_Object Vtranslation_table_for_input; |
| 407 | 407 |
| 408 /* Two special coding systems. */ | 408 /* Two special coding systems. */ |
| 409 Lisp_Object Vsjis_coding_system; | 409 Lisp_Object Vsjis_coding_system; |
| 410 Lisp_Object Vbig5_coding_system; | 410 Lisp_Object Vbig5_coding_system; |
| 411 | |
| 412 | 411 |
| 413 static void record_conversion_result (struct coding_system *coding, | 412 static void record_conversion_result (struct coding_system *coding, |
| 414 enum coding_result_code result); | 413 enum coding_result_code result); |
| 415 static int detect_coding_utf_8 P_ ((struct coding_system *, | 414 static int detect_coding_utf_8 P_ ((struct coding_system *, |
| 416 struct coding_detection_info *info)); | 415 struct coding_detection_info *info)); |
| 7467 | 7466 |
| 7468 return list; | 7467 return list; |
| 7469 } | 7468 } |
| 7470 | 7469 |
| 7471 | 7470 |
| 7472 | |
| 7473 Lisp_Object | 7471 Lisp_Object |
| 7474 code_convert_region (start, end, coding_system, dst_object, encodep, norecord) | 7472 code_convert_region (start, end, coding_system, dst_object, encodep, norecord) |
| 7475 Lisp_Object start, end, coding_system, dst_object; | 7473 Lisp_Object start, end, coding_system, dst_object; |
| 7476 int encodep, norecord; | 7474 int encodep, norecord; |
| 7477 { | 7475 { |
| 8449 { | 8447 { |
| 8450 | 8448 |
| 8451 struct charset *charset; | 8449 struct charset *charset; |
| 8452 | 8450 |
| 8453 if (XINT (Flength (charset_list)) != 3 | 8451 if (XINT (Flength (charset_list)) != 3 |
| 8454 || XINT (Flength (charset_list)) != 4) | 8452 && XINT (Flength (charset_list)) != 4) |
| 8455 error ("There should be three or four charsets"); | 8453 error ("There should be three or four charsets"); |
| 8456 | 8454 |
| 8457 charset = CHARSET_FROM_ID (XINT (XCAR (charset_list))); | 8455 charset = CHARSET_FROM_ID (XINT (XCAR (charset_list))); |
| 8458 if (CHARSET_DIMENSION (charset) != 1) | 8456 if (CHARSET_DIMENSION (charset) != 1) |
| 8459 error ("Dimension of charset %s is not one", | 8457 error ("Dimension of charset %s is not one", |