+;;; Setting word boundary.
+
+(unless (featurep 'utf-2000)
+(setq word-combining-categories
+ '((?l . ?l)))
+)
+
+(setq word-separating-categories ; (2-byte character sets)
+ '((?A . ?K) ; Alpha numeric - Katakana
+ (?A . ?C) ; Alpha numeric - Chinese
+ (?H . ?A) ; Hiragana - Alpha numeric
+ (?H . ?K) ; Hiragana - Katakana
+ (?H . ?C) ; Hiragana - Chinese
+ (?K . ?A) ; Katakana - Alpha numeric
+ (?K . ?C) ; Katakana - Chinese
+ (?C . ?A) ; Chinese - Alpha numeric
+ (?C . ?K) ; Chinese - Katakana
+ ))
+
+(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)))
+
+