From 44b2d1c9f1ce6a9d3f289b8cf7e600085debcf29 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 4 Apr 2009 09:31:10 +0000 Subject: [PATCH] (Fmake_charset): Add DOC-string of 'iso-ir and '=>iso-ir. (Fcharset_property): Regard '=>iso-ir as same as `iso_ir. --- src/mule-charset.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/mule-charset.c b/src/mule-charset.c index cff909a..d8b9630 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -1634,6 +1634,8 @@ character set. Recognized properties are: is passed the octets of the character, with the high bit cleared and set depending upon whether the value of the 'graphic property is 0 or 1. +'iso-ir ISO-IR number (for representative coded-charset). +'=>iso-ir [UTF-2000 only] Corresponding ISO-IR number. 'mother [UTF-2000 only] Base coded-charset. 'code-min [UTF-2000 only] Minimum code-point of a base coded-charset. 'code-max [UTF-2000 only] Maximum code-point of a base coded-charset. @@ -2086,7 +2088,8 @@ Recognized properties are those listed in `make-charset', as well as return CHARSETP (obj) ? XCHARSET_NAME (obj) : obj; } #ifdef UTF2000 - if (EQ (prop, Qiso_ir)) + if (EQ (prop, Qiso_ir)|| + EQ (prop, Qto_iso_ir)) { if ( CHARSET_ISO_IR (cs) > 0 ) return make_int (CHARSET_ISO_IR (cs)); -- 1.7.10.4