I'm having trouble finding where the problem here is exactly. The result I'd like returned is a string that looks like
1. (n,adj-no) occupation 2. business
My function is here and it looks like something is supposed to be a list but isn't.
(defun japanese-get-definition (dictentry) "Get a definition from a dictionary entry." (let* (index 1) (save-match-data (and (string-match "/\\(.*?\\)$" dictentry) (setq definitions (split-string (match-string 1 dictentry) "/" t)) (dolist (definition definitions) (setq definition (concat (int-to-string index) ". " definition)) (setq index (+ index 1))) (mapconcat 'identity definitions "\n")) ) ) ) (japanese-get-definition "職業 [しょくぎょう] /(n,adj-no) occupation/business/")