(concord-kanbun-corpus-insert-morpheme): Support word-subclass3.

diff --git a/concord-kanbun-dump.el b/concord-kanbun-dump.el
index 12642b8..5866807 100644 (file)
--- a/concord-kanbun-dump.el
+++ b/concord-kanbun-dump.el
@@ -18,12 +18,13 @@
              (concord-object-get (car canonical-form) '=name)
            entry))
     (insert
-     (format "%s\t%s,%s,%s,%s,*,*,%s,%s,%s,%s\n"
+     (format "%s\t%s,%s,%s,%s,%s,*,%s,%s,%s,%s\n"
             (or entry "*")
             (or (car word-class) "*")
             (or (nth 1 word-class) "*")
             (or (nth 2 word-class) "*")
             (or (nth 3 word-class) "*")
+            (or (nth 4 word-class) "*")
             (or canonical-form "*")
             ja-form ja-kana ja-conj-type))))