- (and kinsoku-ascii (char-in-category-p ch ?a))
- (and kinsoku-jis (char-in-category-p ch ?j))
- (and kinsoku-gb (char-in-category-p ch ?c))
- (and kinsoku-big5 (char-in-category-p ch ?t))))
- (char-in-category-p ch ?e)
+ (and kinsoku-ascii (char-in-category-p before ?a))
+ (and kinsoku-jis (or (char-in-category-p before ?j)
+ (and after
+ (char-in-category-p after ?j))))
+ (and kinsoku-gb (or (char-in-category-p before ?c)
+ (and after
+ (char-in-category-p after ?c))))
+ (and kinsoku-big5 (or (char-in-category-p before ?t)
+ (and after
+ (char-in-category-p after ?t))))))
+ (char-in-category-p before ?e)