X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=dump-tables.el;h=dc1e6850209caeefe77671922bfa9e63dfd49cf6;hb=865efbad8a3a4d24ea7f8ed44bce3d7188c78019;hp=eed1f81e71bb0a1d765d843cbb6b770c64e2bde7;hpb=d48e992943356fbf16ddf97475eedbd3ab29eeb0;p=chise%2Ftomoyo-tools.git

diff --git a/dump-tables.el b/dump-tables.el
index eed1f81..dc1e685 100644
--- a/dump-tables.el
+++ b/dump-tables.el
@@ -223,7 +223,7 @@
 	    (cond ((integerp md)
 		   (insert (format " D%05d.0\n" md)))
 		  ((eq (car md) 'ho)
-		   (insert (format " DHO%03d\n" (nth 1 md))))
+		   (insert (format " DHo%03d\n" (nth 1 md))))
 		  (md
 		   (insert (format " D%05d.%d\n" (car md)(nth 1 md))))
 		  (t
@@ -249,7 +249,7 @@
 	    (cond ((integerp md)
 		   (insert (format " D%05d.0\n" md)))
 		  ((eq (car md) 'ho)
-		   (insert (format " DHO%03d\n" (nth 1 md))))
+		   (insert (format " DHo%03d\n" (nth 1 md))))
 		  (md
 		   (insert (format " D%05d.%d\n" (car md)(nth 1 md))))
 		  (t