`eword-encode-phrase-to-rword-list'.
-(defun tm-eword::phrase-to-rwl (phrase)
+(defun eword-encode-phrase-to-rword-list (phrase)
(let (token type dest str)
(while phrase
(setq token (car phrase))
(let (token type dest str)
(while phrase
(setq token (car phrase))
(if (eq (car (car phrase)) 'spaces)
(setq phrase (cdr phrase))
)
(if (eq (car (car phrase)) 'spaces)
(setq phrase (cdr phrase))
)
- (setq dest (tm-eword::phrase-to-rwl phrase))
+ (setq dest (eword-encode-phrase-to-rword-list phrase))
(if dest
(setq dest (append dest '((" " nil nil))))
)
(if dest
(setq dest (append dest '((" " nil nil))))
)