From: Kenichi Handa <handa@m17n.org>
Date: Fri, 9 Mar 2001 05:59:56 +0000 (+0000)
Subject: Add category `j' for katakana-jisx0201.  Fix syntaxes of
X-Git-Tag: emacs-pretest-21.0.100~100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=226e4119d9574e9a0f80b267e586b4c958659755;p=emacs.git

Add category `j' for katakana-jisx0201.  Fix syntaxes of
katakana-jisx0201.
---

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")