X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=cbits%2FWCsubst.c;h=a3695049aae15fe357ba248b609e5f168847187c;hb=30464c0cb915c2ae900909568fa8677bba341e45;hp=18752b966395144b04408257fefb5cf22197d32e;hpb=1e076454862442966918e6b1b9095e43eab7c770;p=haskell-directory.git

diff --git a/cbits/WCsubst.c b/cbits/WCsubst.c
index 18752b9..a369504 100644
--- a/cbits/WCsubst.c
+++ b/cbits/WCsubst.c
@@ -3000,7 +3000,7 @@ static const struct _charblock_ spacechars[]={
 
 static const struct _convrule_ nullrule={0,NUMCAT_CN,0,0,0,0};
 
-int blkcmp(const void *vk,const void *vb)
+static int blkcmp(const void *vk,const void *vb)
 {
 	const struct _charblock_ *key,*cur;
 	key=vk;
@@ -3065,12 +3065,16 @@ int p(int c) \
 */
 
 unipred(u_iswcntrl,GENCAT_CC)
-unipred(u_iswprint,~(GENCAT_ZL|GENCAT_ZP|GENCAT_CC|GENCAT_CF|GENCAT_CS|GENCAT_CO))
+unipred(u_iswprint, \
+(GENCAT_MC | GENCAT_NO | GENCAT_SK | GENCAT_ME | GENCAT_ND | \
+  GENCAT_PO | GENCAT_LT | GENCAT_PC | GENCAT_SM | GENCAT_ZS | \
+  GENCAT_LU | GENCAT_PD | GENCAT_SO | GENCAT_PE | GENCAT_PF | \
+  GENCAT_PS | GENCAT_SC | GENCAT_LL | GENCAT_LM | GENCAT_PI | \
+  GENCAT_NL | GENCAT_MN | GENCAT_LO))
 unipred_s(u_iswspace,GENCAT_ZS)
 unipred(u_iswupper,(GENCAT_LU|GENCAT_LT))
 unipred(u_iswlower,GENCAT_LL)
 unipred(u_iswalpha,(GENCAT_LL|GENCAT_LU|GENCAT_LT|GENCAT_LM|GENCAT_LO))
-unipred(u_iswdigit,GENCAT_ND)
 
 unipred(u_iswalnum,(GENCAT_LT|GENCAT_LU|GENCAT_LL|GENCAT_LM|GENCAT_LO|
 		    GENCAT_MC|GENCAT_ME|GENCAT_MN|