Mercurial > hg > xemacs-beta

comparison src/text.c @ 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
1173 partial characters into DST. */ 1173 partial characters into DST. */
1174 1174
1175 Bytecount 1175 Bytecount
1176 copy_text_between_formats (const Ibyte *src, Bytecount srclen, 1176 copy_text_between_formats (const Ibyte *src, Bytecount srclen,
1177 Internal_Format srcfmt, 1177 Internal_Format srcfmt,
1178 Lisp_Object srcobj, 1178 Lisp_Object USED_IF_MULE (srcobj),
1179 Ibyte *dst, Bytecount dstlen, 1179 Ibyte *dst, Bytecount dstlen,
1180 Internal_Format dstfmt, 1180 Internal_Format dstfmt,
1181 Lisp_Object dstobj, 1181 Lisp_Object USED_IF_MULE (dstobj),
1182 Bytecount *src_used) 1182 Bytecount *src_used)
1183 { 1183 {
1184 if (srcfmt == dstfmt && 1184 if (srcfmt == dstfmt &&
1185 objects_have_same_internal_representation (srcobj, dstobj)) 1185 objects_have_same_internal_representation (srcobj, dstobj))
1186 { 1186 {
1268 /************************************************************************/ 1268 /************************************************************************/
1269 /* charset properties of strings */ 1269 /* charset properties of strings */
1270 /************************************************************************/ 1270 /************************************************************************/
1271 1271
1272 void 1272 void
1273 find_charsets_in_ibyte_string (unsigned char *charsets, const Ibyte *str, 1273 find_charsets_in_ibyte_string (unsigned char *charsets,
1274 Bytecount len) 1274 const Ibyte *USED_IF_MULE (str),
1275 Bytecount USED_IF_MULE (len))
1275 { 1276 {
1276 #ifndef MULE 1277 #ifndef MULE
1277 /* Telescope this. */ 1278 /* Telescope this. */
1278 charsets[0] = 1; 1279 charsets[0] = 1;
1279 #else 1280 #else
1295 } 1296 }
1296 #endif 1297 #endif
1297 } 1298 }
1298 1299
1299 void 1300 void
1300 find_charsets_in_ichar_string (unsigned char *charsets, const Ichar *str, 1301 find_charsets_in_ichar_string (unsigned char *charsets,
1301 Charcount len) 1302 const Ichar *USED_IF_MULE (str),
1303 Charcount USED_IF_MULE (len))
1302 { 1304 {
1303 #ifndef MULE 1305 #ifndef MULE
1304 /* Telescope this. */ 1306 /* Telescope this. */
1305 charsets[0] = 1; 1307 charsets[0] = 1;
1306 #else 1308 #else
1341 1343
1342 return cols; 1344 return cols;
1343 } 1345 }
1344 1346
1345 int 1347 int
1346 ichar_string_displayed_columns (const Ichar *str, Charcount len) 1348 ichar_string_displayed_columns (const Ichar *USED_IF_MULE (str), Charcount len)
1347 { 1349 {
1348 #ifdef MULE 1350 #ifdef MULE
1349 int cols = 0; 1351 int cols = 0;
1350 int i; 1352 int i;
1351 1353
1357 return len; 1359 return len;
1358 #endif 1360 #endif
1359 } 1361 }
1360 1362
1361 Charcount 1363 Charcount
1362 ibyte_string_nonascii_chars (const Ibyte *str, Bytecount len) 1364 ibyte_string_nonascii_chars (const Ibyte *USED_IF_MULE (str),
1365 Bytecount USED_IF_MULE (len))
1363 { 1366 {
1364 #ifdef MULE 1367 #ifdef MULE
1365 const Ibyte *end = str + len; 1368 const Ibyte *end = str + len;
1366 Charcount retval = 0; 1369 Charcount retval = 0;
1367 1370
3646 else -- ARG1 is coerced to be between 0 and 255, and then the high 3649 else -- ARG1 is coerced to be between 0 and 255, and then the high
3647 bit is set. 3650 bit is set.
3648 3651
3649 `int-to-char of the resulting ARG1' is returned, and ARG2 is always ignored. 3652 `int-to-char of the resulting ARG1' is returned, and ARG2 is always ignored.
3650 */ 3653 */
3651 (charset, arg1, arg2)) 3654 (charset, arg1, USED_IF_MULE (arg2)))
3652 { 3655 {
3653 #ifdef MULE 3656 #ifdef MULE
3654 Lisp_Charset *cs; 3657 Lisp_Charset *cs;
3655 int a1, a2; 3658 int a1, a2;
3656 int lowlim, highlim; 3659 int lowlim, highlim;