X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=egg-mlh.el;h=588e9dbe3ceeef9728579061181c714efb53d6b3;hb=30fa76b5f7df969575b5e31c81f0c29557951d5e;hp=ee7ffcad0317081cc478a9aa0e94679b0c2b899f;hpb=050d3888c6f1c173ba3be512dcaf7c66f4da7eca;p=elisp%2Fegg.git

diff --git a/egg-mlh.el b/egg-mlh.el
index ee7ffca..588e9db 100644
--- a/egg-mlh.el
+++ b/egg-mlh.el
@@ -39,7 +39,6 @@ Or else, execute command that space-bar invokes usually."
   (interactive)
   (let ((henkan-begin nil)
         (inhibit-henkan t))
-    (its-select-hiragana)    ;; force to Japanese
     (mlh-backward-henkan)
     (if henkan-begin
         (if (or inhibit-henkan (= henkan-begin (point)))
@@ -47,6 +46,7 @@ Or else, execute command that space-bar invokes usually."
           (progn
             (message "Converting...")
             (sit-for 0)
+	    (put-text-property henkan-begin (point) 'its-lang "Japanese")
 	    (egg-convert-region henkan-begin (point))
             (message "") ))
       (setq this-command 'self-insert-command)
@@ -91,7 +91,7 @@ Or else, execute command that space-bar invokes usually."
     (?q . mlh-quit)
 ;    (?r . mlh-)
     (?s . mlh-small-letter)
-    (?t . mlh-zhongwen-tw)
+;    (?t . mlh-)
     (?u . mlh-kanji)
 ;    (?v . mlh-)
     (?w . mlh-white-space)
@@ -444,7 +444,7 @@ CHAR.  MNEMONIC             CONVERSION SCHEME
   (setq beg (point))
   (goto-char end-marker)
   (forward-char -1)
-  (its-translate-region-internal beg (point))
+  (its-translate-region beg (point))
   (delete-region (point) end-marker)
   (if (null henkan-begin)
       (setq henkan-begin beg)))
@@ -456,7 +456,7 @@ CHAR.  MNEMONIC             CONVERSION SCHEME
   (setq beg (point))
   (goto-char end-marker)
   (forward-char -2)
-  (its-translate-region-internal beg (point))
+  (its-translate-region beg (point))
   (delete-region (point) end-marker)
   (setq henkan-begin (point)))
 
@@ -478,7 +478,7 @@ CHAR.  MNEMONIC             CONVERSION SCHEME
   (setq beg (point))
   (goto-char end-marker)
   (forward-char -2)
-  (its-translate-region-internal beg (point))
+  (its-translate-region beg (point))
   (insert (mlh-hira-to-kata
 	   (prog1
 	       (buffer-substring beg (point))
@@ -507,50 +507,5 @@ CHAR.  MNEMONIC             CONVERSION SCHEME
       (setq i (+ i 3)))
     result))
 
-(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)))
-
 (provide 'egg-mlh)
 ;;; egg-mlh.el ends here.