workaround.mayu

def key E0RightShift E0RShift		= E0-0x36
mod shift += E0RShift
key *E0RShift = *LShift

if ( KBD109 )
  def key E0半角/全角 E0漢字 E0Kanji	= E0-0x29 # 半角/全角 漢字
  def key E0英数 E0Eisuu		= E0-0x3a # 英数 CapsLock 漢字番号
  def key E0ひらがな E0Hiragana		= E0-0x70 # ひらがな カタカナ ローマ字

  if ( KBD104on109 )
    def subst ~S-*E0半角/全角		= $GRAVE_ACCENT
    def subst  S-*E0半角/全角		= $TILDE
    def subst  A-E0半角/全角		= $ToggleIME
    def subst    *E0ひらがな		= *Space
    def subst    *E0英数		= S-*英数
  endif
endif

keymap Global
 if ( KBD109 ) and ( ! KBD104on109 )
   key *E0半角/全角	= *Esc			# Esc と半角/全角の入れ替え
 endif
 if ( KBD109 )
   mod control += E0英数			# 英数を Control に
   key *E0英数		= *LControl		#	〃
 endif

keymap	KeymapDefault = &Default
 if ( KBD109 )
   mod control += E0英数			# 英数を Control に
   key *E0英数		= *LControl		#	〃
 endif

keymap Emacsen : Global
 if ( MAP-ESCAPE-TO-META )			# ESC が M- になるのを阻止する
   if ( KBD109 ) and ( ! KBD104on109 )
     key *E0半角/全角	= *Esc
   endif
 endif

keymap2	EmacsMark
 if ( MAP-ESCAPE-TO-META )
   if ( KBD109 ) and ( ! KBD104on109 )
     key E0半角/全角	= &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
   endif
 endif