Mercurial > hg > xemacs-beta

comparison src/text.c @ 3724:1fe680cefdb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
3723:a44f0c573e7a 3724:1fe680cefdb7
4998 return make_int (octet1); 4998 return make_int (octet1);
4999 else 4999 else
5000 invalid_constant ("Octet number must be 0 or 1", n); 5000 invalid_constant ("Octet number must be 0 or 1", n);
5001 } 5001 }
5002 5002
5003 #endif /* MULE */
5004
5003 DEFUN ("split-char", Fsplit_char, 1, 1, 0, /* 5005 DEFUN ("split-char", Fsplit_char, 1, 1, 0, /*
5004 Return list of charset and one or two position-codes of CHAR. 5006 Return list of charset and one or two position-codes of CHAR.
5005 */ 5007 */
5006 (character)) 5008 (character))
5007 { 5009 {
5014 GCPRO2 (charset, rc); 5016 GCPRO2 (charset, rc);
5015 CHECK_CHAR_COERCE_INT (character); 5017 CHECK_CHAR_COERCE_INT (character);
5016 5018
5017 BREAKUP_ICHAR (XCHAR (character), charset, c1, c2); 5019 BREAKUP_ICHAR (XCHAR (character), charset, c1, c2);
5018 5020
5019 if (XCHARSET_DIMENSION (Fget_charset (charset)) == 2) 5021 if (XCHARSET_DIMENSION (charset) == 2)
5020 { 5022 {
5021 rc = list3 (XCHARSET_NAME (charset), make_int (c1), make_int (c2)); 5023 rc = list3 (XCHARSET_NAME (charset), make_int (c1), make_int (c2));
5022 } 5024 }
5023 else 5025 else
5024 { 5026 {
5026 } 5028 }
5027 UNGCPRO; 5029 UNGCPRO;
5028 5030
5029 return rc; 5031 return rc;
5030 } 5032 }
5031
5032 #endif /* MULE */
5033 5033
5034 5034
5035 /************************************************************************/ 5035 /************************************************************************/
5036 /* composite character functions */ 5036 /* composite character functions */
5037 /************************************************************************/ 5037 /************************************************************************/
5126 5126
5127 void 5127 void
5128 syms_of_text (void) 5128 syms_of_text (void)
5129 { 5129 {
5130 DEFSUBR (Fmake_char); 5130 DEFSUBR (Fmake_char);
5131 DEFSUBR (Fsplit_char);
5131 5132
5132 #ifdef MULE 5133 #ifdef MULE
5133 DEFSUBR (Fchar_charset); 5134 DEFSUBR (Fchar_charset);
5134 DEFSUBR (Fchar_octet); 5135 DEFSUBR (Fchar_octet);
5135 DEFSUBR (Fsplit_char);
5136 5136
5137 #ifdef ENABLE_COMPOSITE_CHARS 5137 #ifdef ENABLE_COMPOSITE_CHARS
5138 DEFSUBR (Fmake_composite_char); 5138 DEFSUBR (Fmake_composite_char);
5139 DEFSUBR (Fcomposite_char_string); 5139 DEFSUBR (Fcomposite_char_string);
5140 #endif 5140 #endif