Fix error on make update-mcat.

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 0d3598b..7c28205 100644 (file)
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -179,9 +179,10 @@
   (princ (mapconcat #'symbol-name (riece-examine-modules) " ")))
 
 (defun riece-update-mcat ()
-  (let ((modules (riece-examine-modules))
-       (pointer riece-mcat-modules)
-       files)
+  (let* ((srcdir (car command-line-args-left))
+        (modules (riece-examine-modules srcdir))
+        (pointer riece-mcat-modules)
+        files)
     (while pointer
       (setq modules (delq (car pointer) modules)
            pointer (cdr pointer)))

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ead7cae..787c608 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-12-11  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * COMPILE (riece-update-mcat): Fix "Wrong number of arguments"
+       on `riece-examine-modules'.
+       * Makefile.am: Add $(srcdir) to update-mcat target.
+
 2010-12-10  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-log.el (riece-log-make-file-name): Don't append

diff --git a/lisp/Makefile.am b/lisp/Makefile.am
index 6b6e272..8e996d7 100644 (file)
--- a/lisp/Makefile.am
+++ b/lisp/Makefile.am
@@ -66,4 +66,5 @@ compile-individually:
        done
 
 update-mcat:
-       $(EMACS) $(FLAGS) -l $(srcdir)/COMPILE -f riece-update-mcat
+       $(EMACS) $(FLAGS) -l $(srcdir)/COMPILE -f riece-update-mcat \
+               $(srcdir)