(defun riece-mcat-extract (files)
(save-excursion
- (let (message-list)
+ (let (message-list pointer)
(while files
(with-temp-buffer
(insert-file-contents (car files))
(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 '(")