From 226e4119d9574e9a0f80b267e586b4c958659755 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 9 Mar 2001 05:59:56 +0000 Subject: [PATCH] Add category `j' for katakana-jisx0201. Fix syntaxes of katakana-jisx0201. --- lisp/international/characters.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 163e550973d..ea890448c4c 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -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") -- 2.39.5