-(defun mlh-hangul ()
- (forward-char -1)
- (skip-chars-backward "a-zEO-RTW,.[]")
- (mlh-backward-henkan)
- (setq beg (point))
- (setq inhibit-henkan nil)
- (goto-char end-marker)
- (forward-char -2)
- (let (its-current-map its-current-language)
- (its-select-hangul t)
- (its-translate-region-internal beg (point)))
- (delete-region (point) end-marker)
- (if (null henkan-begin)
- (setq henkan-begin beg)))
-
-(defun mlh-zhongwen ()
- (forward-char -1)
- (skip-chars-backward "a-z0-4 ,.[]")
- (mlh-backward-henkan)
- (setq beg (point))
- (setq inhibit-henkan nil)
- (goto-char end-marker)
- (forward-char -2)
- (let (its-current-map its-current-language)
- (its-select-pinyin-cn t)
- (its-translate-region-internal beg (point)))
- (delete-region (point) end-marker)
- (if (null henkan-begin)
- (setq henkan-begin beg)))
-
-(defun mlh-zhongwen-tw ()
- (forward-char -1)
- (skip-chars-backward "a-z0-4,.[]")
- (mlh-backward-henkan)
- (setq beg (point))
- (setq inhibit-henkan nil)
- (goto-char end-marker)
- (forward-char -2)
- (let (its-current-map its-current-language)
- (its-select-pinyin-tw t)
- (its-translate-region-internal beg (point)))
- (delete-region (point) end-marker)
- (if (null henkan-begin)
- (setq henkan-begin beg)))
-