From: ueno <ueno>
Date: Mon, 22 Jan 2007 05:51:48 +0000 (+0000)
Subject: * riece-mcat.el (riece-mcat-extract): Abolished ALIST arg.
X-Git-Tag: riece-3_1_2~25
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=commitdiff_plain;h=f4f08e7573b3a34a97adf75ae571a23a4d9af956

* riece-mcat.el (riece-mcat-extract): Abolished ALIST arg.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1022413..240cc84 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-22  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-mcat.el (riece-mcat-extract): Abolished ALIST arg.
+
 2007-01-19  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-options.el (riece-addons): Insinuate riece-mcat by default.
diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index 78affd8..a11bb2a 100644
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -44,9 +44,9 @@
 	(delq nil (apply #'nconc
 			 (mapcar #'riece-mcat-extract-from-form form))))))
 
-(defun riece-mcat-extract (files alist)
+(defun riece-mcat-extract (files)
   (save-excursion
-    (let (message-list)
+    (let (message-list alist)
       (while files
 	(with-temp-buffer
 	  (insert-file-contents (car files))
@@ -85,7 +85,7 @@
 	      (eval (read (current-buffer))))
 	    (delete-region (point) (progn (forward-sexp) (point))))
 	(set mcat-alist-symbol nil))
-      (setq alist (riece-mcat-extract files (symbol-value mcat-alist-symbol)))
+      (setq alist (riece-mcat-extract files))
       (insert "(defconst " (symbol-name mcat-alist-symbol) "\n  '(")
       (while alist
 	(insert "(" (pp-to-string (car (car alist))) " . "