Mercurial > hg > xemacs-beta

comparison src/mule-charset.c @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 8e84bee8ddd0
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
945 if (EQ (prop, Qdirection)) 945 if (EQ (prop, Qdirection))
946 return CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? Ql2r : Qr2l; 946 return CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? Ql2r : Qr2l;
947 if (EQ (prop, Qreverse_direction_charset)) 947 if (EQ (prop, Qreverse_direction_charset))
948 { 948 {
949 Lisp_Object obj = CHARSET_REVERSE_DIRECTION_CHARSET (cs); 949 Lisp_Object obj = CHARSET_REVERSE_DIRECTION_CHARSET (cs);
950 if (NILP (obj)) 950 /* #### Is this translation OK? If so, error checking sufficient? */
951 return Qnil; 951 return CHARSETP (obj) ? XCHARSET_NAME (obj) : obj;
952 else
953 return XCHARSET_NAME (obj);
954 } 952 }
955 signal_simple_error ("Unrecognized charset property name", prop); 953 signal_simple_error ("Unrecognized charset property name", prop);
956 return Qnil; /* not reached */ 954 return Qnil; /* not reached */
957 } 955 }
958 956