Mercurial > emacs
changeset 36688:45b172fa5c17
Add category `j' for katakana-jisx0201. Fix syntaxes of
katakana-jisx0201.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 09 Mar 2001 05:59:56 +0000 |
| parents | f3a0e22e9d9f |
| children | 5d5232ba2b2e |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Fri Mar 09 05:58:44 2001 +0000 +++ b/lisp/international/characters.el Fri Mar 09 05:59:56 2001 +0000 @@ -371,6 +371,7 @@ ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212) (modify-category-entry (make-char 'katakana-jisx0201) ?k) +(modify-category-entry (make-char 'katakana-jisx0201) ?j) (modify-category-entry (make-char 'latin-jisx0201) ?r) (modify-category-entry (make-char 'japanese-jisx0208) ?j) (modify-category-entry (make-char 'japanese-jisx0212) ?j) @@ -428,11 +429,14 @@ ;; JISX0201-Kana (modify-syntax-entry (make-char 'katakana-jisx0201) "w") -(let ((chars '(?(I!(B ?(I"(B ?(I#(B ?(I$(B ?(I%(B))) +(let ((chars '(?(I!(B ?(I$(B ?(I%(B))) (while chars (modify-syntax-entry (car chars) ".") (setq chars (cdr chars)))) +(modify-syntax-entry ?\(I"(B "((I#(B") +(modify-syntax-entry ?\(I#(B "((I"(B") + ;; Korean character set (KSC5601) (modify-syntax-entry (make-char 'korean-ksc5601) "w")