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

katakana-jisx0201.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 163e550973ddbb8d3a2553d83b31803b90c79a5b..ea890448c4c78bc6643276a7ecaf6850b1fac662 100644 (file)
--- 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 '(?\e(I!\e(B ?\e(I"\e(B ?\e(I#\e(B ?\e(I$\e(B ?\e(I%\e(B)))
+(let ((chars '(?\e(I!\e(B ?\e(I$\e(B ?\e(I%\e(B)))
   (while chars
     (modify-syntax-entry (car chars) ".")
     (setq chars (cdr chars))))
 
+(modify-syntax-entry ?\\e(I"\e(B "(\e(I#\e(B")
+(modify-syntax-entry ?\\e(I#\e(B "(\e(I"\e(B")
+
 ;; Korean character set (KSC5601)
 
 (modify-syntax-entry (make-char 'korean-ksc5601) "w")