From 210dede6168681aa100b8849c5abecb85290dd8c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 5 Apr 1997 02:35:53 +0000 Subject: [PATCH] Change a category of one Japanese character. --- lisp/international/characters.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 '(?ー ?゛ ?゜))) +(modify-category-entry ?ー ?K) +(let ((chars '(?゛ ?゜))) (while chars (modify-category-entry (car chars) ?K) (modify-category-entry (car chars) ?H) -- 2.39.2