Mercurial > hg > xemacs-beta

comparison src/mule-charset.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 558f606b08ae
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
455 CHARSET_DOC_STRING (cs) = doc; 455 CHARSET_DOC_STRING (cs) = doc;
456 CHARSET_REGISTRY (cs) = reg; 456 CHARSET_REGISTRY (cs) = reg;
457 CHARSET_CCL_PROGRAM (cs) = Qnil; 457 CHARSET_CCL_PROGRAM (cs) = Qnil;
458 CHARSET_REVERSE_DIRECTION_CHARSET (cs) = Qnil; 458 CHARSET_REVERSE_DIRECTION_CHARSET (cs) = Qnil;
459 459
460 CHARSET_DIMENSION (cs) = (CHARSET_TYPE (cs) == CHARSET_TYPE_94 ||
461 CHARSET_TYPE (cs) == CHARSET_TYPE_96) ? 1 : 2;
462 CHARSET_CHARS (cs) = (CHARSET_TYPE (cs) == CHARSET_TYPE_94 ||
463 CHARSET_TYPE (cs) == CHARSET_TYPE_94X94) ? 94 : 96;
464
460 if (final) 465 if (final)
461 { 466 {
462 /* some charsets do not have final characters. This includes 467 /* some charsets do not have final characters. This includes
463 ASCII, Control-1, Composite, and the two faux private 468 ASCII, Control-1, Composite, and the two faux private
464 charsets. */ 469 charsets. */
763 if (!NILP (ccl_program)) 768 if (!NILP (ccl_program))
764 XCHARSET_CCL_PROGRAM (charset) = ccl_program; 769 XCHARSET_CCL_PROGRAM (charset) = ccl_program;
765 return charset; 770 return charset;
766 } 771 }
767 772
768 DEFUN ("make-reverse-direction-charset", 773 DEFUN ("make-reverse-direction-charset", Fmake_reverse_direction_charset,
769 Fmake_reverse_direction_charset, 2, 2, 0, /* 774 2, 2, 0, /*
770 Make a charset equivalent to CHARSET but which goes in the opposite direction. 775 Make a charset equivalent to CHARSET but which goes in the opposite direction.
771 NEW-NAME is the name of the new charset. Return the new charset. 776 NEW-NAME is the name of the new charset. Return the new charset.
772 */ 777 */
773 (charset, new_name)) 778 (charset, new_name))
774 { 779 {
812 } 817 }
813 818
814 /* #### The defsubr for this is commented out at the moment but no 819 /* #### The defsubr for this is commented out at the moment but no
815 reason why is given. */ 820 reason why is given. */
816 #if 0 821 #if 0
817 DEFUN ("charset-reverse-direction-charset", 822 DEFUN ("charset-reverse-direction-charset", Fcharset_reverse_direction_charset,
818 Fcharset_reverse_direction_charset, 1, 1, 0, /* 823 1, 1, 0, /*
819 Return the reverse-direction charset parallel to CHARSET, if any. 824 Return the reverse-direction charset parallel to CHARSET, if any.
820 This is the charset with the same properties (in particular, the same 825 This is the charset with the same properties (in particular, the same
821 dimension, number of characters per dimension, and final byte) as 826 dimension, number of characters per dimension, and final byte) as
822 CHARSET but whose characters are displayed in the opposite direction. 827 CHARSET but whose characters are displayed in the opposite direction.
823 */ 828 */