+(when (featurep 'utf-2000)
+ (setq word-separating-categories
+ (list*
+ '(?l . ?K) ; Latin - Katakana
+ '(?l . ?C) ; Latin - Chinese
+ '(?H . ?l) ; Hiragana - Latin
+ '(?K . ?l) ; Katakana - Latin
+ '(?C . ?l) ; Chinese - Latin
+ word-separating-categories)))
+
+