diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-04-05 02:35:53 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-04-05 02:35:53 +0000 |
| commit | 210dede6168681aa100b8849c5abecb85290dd8c (patch) | |
| tree | 1f9dfb3695643523df846f177b19b7ef5b9aecb5 /lisp/international/characters.el | |
| parent | b55b51290c562dd22eb6fc39a62c255e979b30b1 (diff) | |
| download | emacs-210dede6168681aa100b8849c5abecb85290dd8c.tar.gz | |
Change a category of one Japanese character.
Diffstat (limited to 'lisp/international/characters.el')
| -rw-r--r-- | lisp/international/characters.el | 3 |
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) |