Mercurial > hg > xemacs-beta

comparison src/unicode.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 1e5b7843dfa0
children ba4677f54a05
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
2296 return XCODING_SYSTEM_UNICODE_NEED_BOM (coding_system) ? Qt : Qnil; 2296 return XCODING_SYSTEM_UNICODE_NEED_BOM (coding_system) ? Qt : Qnil;
2297 return Qunbound; 2297 return Qunbound;
2298 } 2298 }
2299 2299
2300 static void 2300 static void
2301 unicode_print (Lisp_Object cs, Lisp_Object printcharfun, int escapeflag) 2301 unicode_print (Lisp_Object cs, Lisp_Object printcharfun,
2302 int UNUSED (escapeflag))
2302 { 2303 {
2303 write_fmt_string_lisp (printcharfun, "(%s", 1, unicode_getprop (cs, Qtype)); 2304 write_fmt_string_lisp (printcharfun, "(%s", 1, unicode_getprop (cs, Qtype));
2304 if (XCODING_SYSTEM_UNICODE_LITTLE_ENDIAN (cs)) 2305 if (XCODING_SYSTEM_UNICODE_LITTLE_ENDIAN (cs))
2305 write_c_string (printcharfun, ", little-endian"); 2306 write_c_string (printcharfun, ", little-endian");
2306 if (XCODING_SYSTEM_UNICODE_NEED_BOM (cs)) 2307 if (XCODING_SYSTEM_UNICODE_NEED_BOM (cs))
2307 write_c_string (printcharfun, ", need-bom"); 2308 write_c_string (printcharfun, ", need-bom");
2308 write_c_string (printcharfun, ")"); 2309 write_c_string (printcharfun, ")");
2309 } 2310 }
2310 2311
2311 int 2312 int
2312 dfc_coding_system_is_unicode (Lisp_Object codesys) 2313 dfc_coding_system_is_unicode (
2314 #ifdef WIN32_ANY
2315 Lisp_Object codesys
2316 #else
2317 Lisp_Object UNUSED (codesys)
2318 #endif
2319 )
2313 { 2320 {
2314 #ifdef WIN32_ANY 2321 #ifdef WIN32_ANY
2315 codesys = Fget_coding_system (codesys); 2322 codesys = Fget_coding_system (codesys);
2316 return (EQ (XCODING_SYSTEM_TYPE (codesys), Qunicode) && 2323 return (EQ (XCODING_SYSTEM_TYPE (codesys), Qunicode) &&
2317 XCODING_SYSTEM_UNICODE_TYPE (codesys) == UNICODE_UTF_16 && 2324 XCODING_SYSTEM_UNICODE_TYPE (codesys) == UNICODE_UTF_16 &&