(defun riece-mcat-extract-from-form (form)
(if (and form (listp form) (listp (cdr form)))
- (if (eq (car form) 'riece-mcat)
+ (if (and (= (length form) 2)
+ (eq (car form) 'riece-mcat)
+ (stringp (car (cdr form))))
(cdr form)
(delq nil (apply #'nconc
(mapcar #'riece-mcat-extract-from-form form))))))
(insert "))")
(save-buffer))))
-(defconst riece-mcat-description "Translate messages")
+(defconst riece-mcat-description "Translate messages.")
(defun riece-mcat-insinuate ()
(set-language-info "Japanese" 'riece-mcat-feature 'riece-mcat-japanese))