(map:enter-fullwidth-mode): Don't shift.

(map:exit-fullwidth-mode, map:enter-single-fullwidth-mode):
Likewise.
(state:init): Add `shift' to the branch action of
exit-fullwidth-mode.

diff --git a/MIM/cjk-util.mim b/MIM/cjk-util.mim
index c2a55f4..3bf2cc2 100644 (file)
--- a/MIM/cjk-util.mim
+++ b/MIM/cjk-util.mim
@@ -69,17 +69,17 @@ is inserted, then the mode is turned off.
   ((Korean_Won) ?￦))
 
  (enter-fullwidth-mode
-  (">>" (shift fullwidth-mode)))
+  (">>"))
  (exit-fullwidth-mode
-  ("<<" (shift t)))
+  ("<<"))
  (enter-single-fullwidth-mode
-  ("Z" (shift single-fullwidth-mode))))
+  ("Z")))
 
 (state
  (fullwidth-mode
   "Ａ"
   (fullwidth (commit))
-  (exit-fullwidth-mode)
+  (exit-fullwidth-mode (shift t))
   (nil (unhandle)))
 
  (single-fullwidth-mode