From: ueno <ueno>
Date: Mon, 22 Jan 2007 06:21:31 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-3_1_2~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58e549bece371be5ce8373de677ed99e659047f5;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index 3155b5c..5bfc62e 100644
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -87,7 +87,8 @@
 	    (delete-region (point) (progn (forward-sexp) (point))))
 	(set mcat-alist-symbol nil))
       (setq alist (mapcar (lambda (message)
-			    (or (assoc message (symbol-name mcat-alist-symbol))
+			    (or (assoc message
+				       (symbol-value mcat-alist-symbol))
 				(list message)))
 			  (riece-mcat-extract files)))
       (insert "(defconst " (symbol-name mcat-alist-symbol) "\n  '(")