Mercurial > hg > xemacs-beta

comparison src/intl-win32.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 a8d8f419b459
children ba4677f54a05
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
49 #elif defined (MINGW) 49 #elif defined (MINGW)
50 int _setmbcp (int); 50 int _setmbcp (int);
51 int _getmbcp (void); 51 int _getmbcp (void);
52 #else 52 #else
53 # define NO_EXT_MULTIBYTE_FEATURES 53 # define NO_EXT_MULTIBYTE_FEATURES
54 #endif
55
56 #ifdef MULE
57 #define USED_IF_MULE(decl) decl
58 #else
59 #define USED_IF_MULE(decl) UNUSED (decl)
54 #endif 60 #endif
55 61
56 Lisp_Object Qmswindows_multibyte, Qmswindows_multibyte_to_unicode; 62 Lisp_Object Qmswindows_multibyte, Qmswindows_multibyte_to_unicode;
57 Lisp_Object Qmswindows_tstr, Qmswindows_unicode; 63 Lisp_Object Qmswindows_tstr, Qmswindows_unicode;
58 Lisp_Object Qmswindows_multibyte_system_default; 64 Lisp_Object Qmswindows_multibyte_system_default;
1602 #endif /* HAVE_MS_WINDOWS */ 1608 #endif /* HAVE_MS_WINDOWS */
1603 1609
1604 #else /* not MULE */ 1610 #else /* not MULE */
1605 1611
1606 int 1612 int
1607 mswindows_locale_to_code_page (LCID lcid) 1613 mswindows_locale_to_code_page (LCID UNUSED (lcid))
1608 { 1614 {
1609 return CP_ACP; 1615 return CP_ACP;
1610 } 1616 }
1611 1617
1612 #endif /* MULE */ 1618 #endif /* MULE */
1743 data->cp_type = MULTIBYTE_ANSI; 1749 data->cp_type = MULTIBYTE_ANSI;
1744 data->locale_type = MULTIBYTE_CURRENT; 1750 data->locale_type = MULTIBYTE_CURRENT;
1745 } 1751 }
1746 1752
1747 static Lisp_Object 1753 static Lisp_Object
1748 lcid_to_locale_mule_or_no (LCID lcid) 1754 lcid_to_locale_mule_or_no (LCID USED_IF_MULE (lcid))
1749 { 1755 {
1750 #ifdef MULE 1756 #ifdef MULE
1751 return lcid_to_locale (lcid); 1757 return lcid_to_locale (lcid);
1752 #else 1758 #else
1753 return Fcons (build_string ("NEUTRAL"), build_string ("DEFAULT")); 1759 return Fcons (build_string ("NEUTRAL"), build_string ("DEFAULT"));
1754 #endif 1760 #endif
1755 } 1761 }
1756 1762
1757 static int 1763 static int
1758 determine_code_page (Lisp_Object codesys) 1764 determine_code_page (Lisp_Object USED_IF_MULE (codesys))
1759 { 1765 {
1760 #ifdef MULE 1766 #ifdef MULE
1761 LCID locale; 1767 LCID locale;
1762 struct mswindows_multibyte_to_unicode_coding_system *data = 1768 struct mswindows_multibyte_to_unicode_coding_system *data =
1763 XCODING_SYSTEM_TYPE_DATA (codesys, mswindows_multibyte_to_unicode); 1769 XCODING_SYSTEM_TYPE_DATA (codesys, mswindows_multibyte_to_unicode);
1905 1911
1906 return Qunbound; 1912 return Qunbound;
1907 } 1913 }
1908 1914
1909 static void 1915 static void
1910 mswindows_multibyte_to_unicode_print (Lisp_Object cs, 1916 mswindows_multibyte_to_unicode_print (Lisp_Object cs, Lisp_Object printcharfun,
1911 Lisp_Object printcharfun, int escapeflag) 1917 int UNUSED (escapeflag))
1912 { 1918 {
1913 struct mswindows_multibyte_to_unicode_coding_system *data = 1919 struct mswindows_multibyte_to_unicode_coding_system *data =
1914 XCODING_SYSTEM_TYPE_DATA (cs, mswindows_multibyte_to_unicode); 1920 XCODING_SYSTEM_TYPE_DATA (cs, mswindows_multibyte_to_unicode);
1915 1921
1916 write_c_string (printcharfun, "("); 1922 write_c_string (printcharfun, "(");
2071 } 2077 }
2072 return orign; 2078 return orign;
2073 } 2079 }
2074 2080
2075 static enum source_sink_type 2081 static enum source_sink_type
2076 mswindows_multibyte_to_unicode_conversion_end_type (Lisp_Object codesys) 2082 mswindows_multibyte_to_unicode_conversion_end_type (Lisp_Object UNUSED (codesys))
2077 { 2083 {
2078 return DECODES_BYTE_TO_BYTE; 2084 return DECODES_BYTE_TO_BYTE;
2079 } 2085 }
2080 2086
2081 2087
2104 }; 2110 };
2105 2111
2106 DEFINE_CODING_SYSTEM_TYPE_WITH_DATA (mswindows_multibyte); 2112 DEFINE_CODING_SYSTEM_TYPE_WITH_DATA (mswindows_multibyte);
2107 2113
2108 static Bytecount 2114 static Bytecount
2109 mswindows_multibyte_convert (struct coding_stream *str, 2115 mswindows_multibyte_convert (struct coding_stream *UNUSED (str),
2110 const UExtbyte *src, 2116 const UExtbyte *UNUSED (src),
2111 unsigned_char_dynarr *dst, Bytecount n) 2117 unsigned_char_dynarr *UNUSED (dst), Bytecount n)
2112 { 2118 {
2113 Bytecount orign = n; 2119 Bytecount orign = n;
2114 /* should never be called; is preprocessed away in the 2120 /* should never be called; is preprocessed away in the
2115 canonicalize method */ 2121 canonicalize method */
2116 abort (); 2122 abort ();