Mercurial > hg > xemacs-beta

comparison src/mule-charset.c @ 392:1f50e6fe4f3f r21-2-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents 8626e4521993
children 6719134a07c2
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
106 /* Qdoc_string, Qdimension, Qchars defined in general.c */ 106 /* Qdoc_string, Qdimension, Qchars defined in general.c */
107 Lisp_Object Qregistry, Qfinal, Qgraphic; 107 Lisp_Object Qregistry, Qfinal, Qgraphic;
108 Lisp_Object Qdirection; 108 Lisp_Object Qdirection;
109 Lisp_Object Qreverse_direction_charset; 109 Lisp_Object Qreverse_direction_charset;
110 Lisp_Object Qccl_program; 110 Lisp_Object Qccl_program;
111 Lisp_Object Qleading_byte;
111 112
112 Lisp_Object Qascii, Qcontrol_1, 113 Lisp_Object Qascii, Qcontrol_1,
113 114
114 Qlatin_iso8859_1, 115 Qlatin_iso8859_1,
115 Qlatin_iso8859_2, 116 Qlatin_iso8859_2,
920 if (EQ (prop, Qgraphic)) return make_int (CHARSET_GRAPHIC (cs)); 921 if (EQ (prop, Qgraphic)) return make_int (CHARSET_GRAPHIC (cs));
921 if (EQ (prop, Qfinal)) return make_char (CHARSET_FINAL (cs)); 922 if (EQ (prop, Qfinal)) return make_char (CHARSET_FINAL (cs));
922 if (EQ (prop, Qchars)) return make_int (CHARSET_CHARS (cs)); 923 if (EQ (prop, Qchars)) return make_int (CHARSET_CHARS (cs));
923 if (EQ (prop, Qregistry)) return CHARSET_REGISTRY (cs); 924 if (EQ (prop, Qregistry)) return CHARSET_REGISTRY (cs);
924 if (EQ (prop, Qccl_program)) return CHARSET_CCL_PROGRAM (cs); 925 if (EQ (prop, Qccl_program)) return CHARSET_CCL_PROGRAM (cs);
926 if (EQ (prop, Qleading_byte)) return make_char (CHARSET_LEADING_BYTE (cs));
925 if (EQ (prop, Qdirection)) 927 if (EQ (prop, Qdirection))
926 return CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? Ql2r : Qr2l; 928 return CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? Ql2r : Qr2l;
927 if (EQ (prop, Qreverse_direction_charset)) 929 if (EQ (prop, Qreverse_direction_charset))
928 { 930 {
929 Lisp_Object obj = CHARSET_REVERSE_DIRECTION_CHARSET (cs); 931 Lisp_Object obj = CHARSET_REVERSE_DIRECTION_CHARSET (cs);
1171 defsymbol (&Qfinal, "final"); 1173 defsymbol (&Qfinal, "final");
1172 defsymbol (&Qgraphic, "graphic"); 1174 defsymbol (&Qgraphic, "graphic");
1173 defsymbol (&Qdirection, "direction"); 1175 defsymbol (&Qdirection, "direction");
1174 defsymbol (&Qreverse_direction_charset, "reverse-direction-charset"); 1176 defsymbol (&Qreverse_direction_charset, "reverse-direction-charset");
1175 defsymbol (&Qccl_program, "ccl-program"); 1177 defsymbol (&Qccl_program, "ccl-program");
1178 defsymbol (&Qleading_byte, "leading-byte");
1176 1179
1177 defsymbol (&Ql2r, "l2r"); 1180 defsymbol (&Ql2r, "l2r");
1178 defsymbol (&Qr2l, "r2l"); 1181 defsymbol (&Qr2l, "r2l");
1179 1182
1180 /* Charsets, compatible with Emacs/Mule 19.33-delta 1183 /* Charsets, compatible with Emacs/Mule 19.33-delta