Mercurial > hg > xemacs-beta

comparison src/text.h @ 2333:ba4677f54a05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-10-14 17:26:18 by james] More unused parameter fixes.
author james
date Thu, 14 Oct 2004 17:26:25 +0000
parents 04bc9d2f42c7
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2332:29a88fa7050c 2333:ba4677f54a05
751 (ptr, 1, fmt). 751 (ptr, 1, fmt).
752 */ 752 */
753 753
754 DECLARE_INLINE_HEADER ( 754 DECLARE_INLINE_HEADER (
755 Bytecount 755 Bytecount
756 itext_ichar_len_fmt (const Ibyte *ptr, Internal_Format fmt) 756 itext_ichar_len_fmt (const Ibyte *USED_IF_MULE_OR_CHECK_TEXT (ptr),
757 Internal_Format fmt)
757 ) 758 )
758 { 759 {
759 switch (fmt) 760 switch (fmt)
760 { 761 {
761 case FORMAT_DEFAULT: 762 case FORMAT_DEFAULT:
1120 void resize_string (Lisp_Object s, Bytecount pos, Bytecount delta); 1121 void resize_string (Lisp_Object s, Bytecount pos, Bytecount delta);
1121 1122
1122 /* Convert a byte index into a string into a char index. */ 1123 /* Convert a byte index into a string into a char index. */
1123 DECLARE_INLINE_HEADER ( 1124 DECLARE_INLINE_HEADER (
1124 Charcount 1125 Charcount
1125 string_index_byte_to_char (Lisp_Object s, Bytecount idx) 1126 string_index_byte_to_char (Lisp_Object USED_IF_MULE_OR_CHECK_TEXT (s),
1127 Bytecount idx)
1126 ) 1128 )
1127 { 1129 {
1128 Charcount retval; 1130 Charcount retval;
1129 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, idx); 1131 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, idx);
1130 #ifdef MULE 1132 #ifdef MULE
1147 } 1149 }
1148 1150
1149 /* Convert a char index into a string into a byte index. */ 1151 /* Convert a char index into a string into a byte index. */
1150 DECLARE_INLINE_HEADER ( 1152 DECLARE_INLINE_HEADER (
1151 Bytecount 1153 Bytecount
1152 string_index_char_to_byte (Lisp_Object s, Charcount idx) 1154 string_index_char_to_byte (Lisp_Object USED_IF_MULE_OR_CHECK_TEXT (s),
1155 Charcount idx)
1153 ) 1156 )
1154 { 1157 {
1155 Bytecount retval; 1158 Bytecount retval;
1156 ASSERT_VALID_CHAR_STRING_INDEX_UNSAFE (s, idx); 1159 ASSERT_VALID_CHAR_STRING_INDEX_UNSAFE (s, idx);
1157 #ifdef MULE 1160 #ifdef MULE
1174 1177
1175 /* Convert a substring length (starting at byte offset OFF) from bytes to 1178 /* Convert a substring length (starting at byte offset OFF) from bytes to
1176 chars. */ 1179 chars. */
1177 DECLARE_INLINE_HEADER ( 1180 DECLARE_INLINE_HEADER (
1178 Charcount 1181 Charcount
1179 string_offset_byte_to_char_len (Lisp_Object s, Bytecount off, Bytecount len) 1182 string_offset_byte_to_char_len (Lisp_Object USED_IF_MULE_OR_CHECK_TEXT (s),
1183 Bytecount USED_IF_MULE_OR_CHECK_TEXT (off),
1184 Bytecount len)
1180 ) 1185 )
1181 { 1186 {
1182 Charcount retval; 1187 Charcount retval;
1183 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, off); 1188 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, off);
1184 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, off + len); 1189 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, off + len);
1203 1208
1204 /* Convert a substring length (starting at byte offset OFF) from chars to 1209 /* Convert a substring length (starting at byte offset OFF) from chars to
1205 bytes. */ 1210 bytes. */
1206 DECLARE_INLINE_HEADER ( 1211 DECLARE_INLINE_HEADER (
1207 Bytecount 1212 Bytecount
1208 string_offset_char_to_byte_len (Lisp_Object s, Bytecount off, Charcount len) 1213 string_offset_char_to_byte_len (Lisp_Object USED_IF_MULE_OR_CHECK_TEXT (s),
1214 Bytecount USED_IF_MULE_OR_CHECK_TEXT (off),
1215 Charcount len)
1209 ) 1216 )
1210 { 1217 {
1211 Bytecount retval; 1218 Bytecount retval;
1212 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, off); 1219 ASSERT_VALID_BYTE_STRING_INDEX_UNSAFE (s, off);
1213 #ifdef MULE 1220 #ifdef MULE