Mercurial > emacs
changeset 17296:dc3f449803f6
Change a category of one Japanese character.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 05 Apr 1997 02:35:53 +0000 |
| parents | 34efd2073019 |
| children | 67b931bc2528 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Sat Apr 05 02:35:53 1997 +0000 +++ b/lisp/international/characters.el Sat Apr 05 02:35:53 1997 +0000 @@ -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)