update.
[chise/ids.git] / ids-read.el
index 646f3c3..6322c09 100644 (file)
                 ((string-match "U[-+]\\([0-9A-F]+\\)" chs)
                  (decode-char 'ucs
                               (string-to-int (match-string 1 chs) 16)))
-                ((string-match "M-\\([0-9]+\\)" chs)
+                ((string-match "M-\\([0-9]+\\)\\([^'\"]\\|$\\)" chs)
                  (decode-char 'ideograph-daikanwa
                               (string-to-int (match-string 1 chs))))
-                ((string-match "CB-\\([0-9]+\\)" chs)
+                ((string-match "CB\\([0-9]+\\)" chs)
                  (decode-char 'ideograph-cbeta
                               (string-to-int (match-string 1 chs))))
                 ))