From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 13 Sep 2013 00:15:27 +0000 (+0900)
Subject: (concord-kanbun-corpus-insert-morpheme): Support word-subclass3.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f6393299fa3b2c75fc933022323110e1bdd7f7d;p=chise%2Fconcord-kanbun.git

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

diff --git a/concord-kanbun-dump.el b/concord-kanbun-dump.el
index 12642b8..5866807 100644
--- 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))))