Mercurial > emacs

diff lisp/international/characters.el @ 36688:45b172fa5c17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ed8ea5cf198b
children 67b464da13ec
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")