[mule-ja:74] japanese category \cj not match

[ynyaaa]

矢木です。

japanese-jisx0213.2004-1 の一部の文字が \cj にマッチしません。

(let ((cs 'japanese-jisx0213.2004-1))
  (string-match "\\cj" (string (make-char cs 46 33)
                               (make-char cs 47 126)
                               (make-char cs 79 84)
                               (make-char cs 79 126)
                               (make-char cs 116 39)
                               (make-char cs 126 122)
                               (make-char cs 126 123)
                               (make-char cs 126 124))))
=>nil

これらは 2004年に追加された文字の一部です。

痩と繋の異体字は japanese-jisx0212 に含まれるので \cj にマッチします。

(let ((cs 'japanese-jisx0213\.2004-1))
  (list (string-match "\\cj" (string (make-char cs 126 125)))
        (string-match "\\cj" (string (make-char cs 126 126)))))
=>(0 0)

おわり