From 58e549bece371be5ce8373de677ed99e659047f5 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 22 Jan 2007 06:21:31 +0000 Subject: [PATCH] Fixed. --- lisp/riece-mcat.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 '(") -- 1.7.10.4