X-Git-Url: http://git.chise.org/gitweb/?p=m17n%2Fm17n-docs.git;a=blobdiff_plain;f=utils%2Fmokuji.el;h=ab21c7baf601053a371772fc0ed27181430083eb;hp=767c4db9ae0a3388dcc9a70b5bc21d0addb9f639;hb=05ad027e1e160eed03842a3fa80a1a021f386b14;hpb=791ee4f505f0328a52902216afb5e794a3721048

diff --git a/utils/mokuji.el b/utils/mokuji.el
index 767c4db..ab21c7b 100644
--- a/utils/mokuji.el
+++ b/utils/mokuji.el
@@ -1,14 +1,13 @@
 (require 'un-define)
 
-(defconst latex-dir
-  (format "%s/latex" (nth 2 command-line-args-left)))
+(defconst latex-dir (file-name-directory (nth 2 command-line-args-left)))
 
 (defun parse-toc ()
   (let ((sections nil)
 	section-type
 	title pos current-section current-subsection)
     (save-excursion
-      (find-file (expand-file-name "m17nlib.toc" latex-dir))
+      (find-file (expand-file-name "m17n-lib.toc" latex-dir))
       (while (re-search-forward "{\\(sub\\)*section}" nil t)
 	(goto-char (1+ (match-beginning 0)))
 	(setq section-type (intern (buffer-substring