Change a category of one Japanese character.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index b5d627e2dc6..c7ec38e0d30 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -284,7 +284,8 @@
   (while (< row 127)
     (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
     (setq row (1+ row))))
-(let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B)))
+(modify-category-entry ?$B!<(B ?K)
+(let ((chars '(?$B!+(B ?$B!,(B)))
   (while chars
     (modify-category-entry (car chars) ?K)
     (modify-category-entry (car chars) ?H)