Mercurial > hg > xemacs-beta
diff src/text.c @ 3724:1fe680cefdb7
[xemacs-hg @ 2006-12-06 21:28:47 by aidan]
lisp/ChangeLog addition:
2006-12-04 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (what-cursor-position):
For non-ASCII characters, give details on what a character maps to
in Unicode, and its Mule charsets and codes, instead of simply its
integer code point in this XEmacs.
src/ChangeLog addition:
2006-12-04 Aidan Kehoe <kehoea@parhasard.net>
* text.c (Fsplit_char):
Make split-char available on non-Mule builds, taking out a
superfluous call to get-charset to make that possible.
| author | aidan |
|---|---|
| date | Wed, 06 Dec 2006 21:28:54 +0000 |
| parents | f6cd5fe9bf4c |
| children | c098c0d9125f |
line wrap: on
line diff
--- a/src/text.c Tue Dec 05 22:51:25 2006 +0000 +++ b/src/text.c Wed Dec 06 21:28:54 2006 +0000 @@ -5000,6 +5000,8 @@ invalid_constant ("Octet number must be 0 or 1", n); } +#endif /* MULE */ + DEFUN ("split-char", Fsplit_char, 1, 1, 0, /* Return list of charset and one or two position-codes of CHAR. */ @@ -5016,7 +5018,7 @@ BREAKUP_ICHAR (XCHAR (character), charset, c1, c2); - if (XCHARSET_DIMENSION (Fget_charset (charset)) == 2) + if (XCHARSET_DIMENSION (charset) == 2) { rc = list3 (XCHARSET_NAME (charset), make_int (c1), make_int (c2)); } @@ -5029,8 +5031,6 @@ return rc; } -#endif /* MULE */ - /************************************************************************/ /* composite character functions */ @@ -5128,11 +5128,11 @@ syms_of_text (void) { DEFSUBR (Fmake_char); + DEFSUBR (Fsplit_char); #ifdef MULE DEFSUBR (Fchar_charset); DEFSUBR (Fchar_octet); - DEFSUBR (Fsplit_char); #ifdef ENABLE_COMPOSITE_CHARS DEFSUBR (Fmake_composite_char);