窓使いの憂鬱は Windows 上のキーバインドを主に emacs ライクなキーバインドにするためのソフト。
Windows Vista では普通には動作しないらしく（Windows の昨日の一部を制限される代わりに使用することは可能らしい）、次にPCを買い換えるときは Windows 卒業な予感・・・。

設定：
1. HOME HHKL2 Emacs （Happy Hacking Keyboard Lite2 で使用するとき用）
   -DUSE109;-DHHKBLite2
3. HOME Let’s note CF-Y2 Emacs （Let’s note CF-Y2 で使用するとき用）
   -DUSE109;-DLetsNoteCFY2

設定ファイル：（環境変数 HOME に指定したディレクトリ直下に以下の３つのファイルを配置）
1. .mayu
2. .emacs.mayu
3. .emacsedit.mayu

以下、設定ファイルの内容をそのまま引用。
emacsedit.mayu はデフォルトのままかも。
※一部うまくいっていない設定もあった気がします。

普通の設定（と思うこと）以外でやってること
• 無変換を Ctrl に割り当て
• 変換を Ctrl に割り当て
• 半角/全角を Alt に割り当て
• カタカナを Alt に割り当て
• 左Alt を Windowsキー に割り当て
• 右Alt を Applicationキー に割り当て
• ;（セミコロン）を Enter キーに割り当て
• Ctrl-;（Ctrl + セミコロン）を ;(セミコロン) に割り当て
• C-i を Tab キーに割り当て
• C-g を ESC キーに割り当て
• C-d を Del キーに割り当て
• C-h を Backspace キーに割り当て
• emacs の elscreen ライクな C-z でタブ関係の処理をする設定
• などなど・・・

.mayu

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 窓使いの憂鬱 - dot.mayu
# Copyright (C) 1999-2005, TAGA Nayuta 
#

# まずキーボード定義を読み込む
if ( USE104 )
  include "104.mayu"		# 104 キーボード設定
  if ( USE109on104 )
    include "109on104.mayu"	# 104 キーボードを 109 キーボード風に
  endif
  if ( USEDVORAK )
    include "dvorak.mayu"	# DVORAK
  endif
else
  include "109.mayu"		# 109 キーボード設定
  if ( USE104on109 )
    include "104on109.mayu"	# 109 キーボードを 104 キーボード風に
  endif
  if ( USEDVORAK )
    include "contrib\DVORAKon109.mayu"	# DVORAK
  endif
endif

include ".emacs.mayu"		# Emacs ライクなさまざまな設定

keymap Global

# このファイルをホームディレクトリにコピーしてから、
# 以下に自分の好みのキーバインディングを設定するとよい。
# このファイル自体を変更しないこと。

mod control += 無変換       # 無変換 を LControl に
key *無変換 = *LControl     #       〃
mod control += 変換         # 変換を を LControl に
key *変換   = *LControl     #       〃
mod alt       += ひらがな   # ひらがな を LAlt に
key *ひらがな = *LAlt       #      〃

if ( HHKBLite2 )
  mod alt        -= RAlt       # RAlt を 右クリックメニューの出るやつに
  key *RAlt      = *APPS       #      〃
  mod alt        += 半角/全角  # 半角/全角 を LAlt に
  key *半角/全角 = *LAlt       #      〃
 #mod alt        -= LAlt       # LAlt を 半角/全角 に
 #key *LAlt      = *半角/全角  #      〃
  mod alt        -= LAlt       # LAlt を Win に
  mod win        += LAlt       #      〃
  key *LAlt      = *LWin       #      〃
  mod win        -= LWin       # LWin を Alt に
  mod alt        += LWin       #      〃
  key *LWin      = *LAlt       #      〃
  key Escape     = &Default    # Escape を元に戻す
endif

if ( LetsNoteCFY2 )
  key *半角/全角  = *Esc       # 半角/全角を Esc に
  #key *Esc       = *半角/全角 # Esc はそのまま
  key *Escape     = *Escape    # Escape を元に戻す
endif

key *IC-SemiColon      = Enter       # セミコロン を Enter に
key *IC-C-~S-SemiColon = SemiColon   # Ctrlを押しながらだとセミコロンに;
#key *IC-Colon          = Tab         # コロン を Tab に;
#key *IC-C-~S-Colon     = Colon       # Ctrlを押しながらだとコロンに
key *IC-C-~S-I          = Tab        # Ctrlを押しながらだとTabに

.emacs.mayu

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 窓使いの憂鬱 - default.mayu
# Copyright (C) 1999-2005, TAGA Nayuta 
#

if ( !KBD109 ) and ( !KBD104 )
  include "109.mayu"
endif
if ( KBD104 )
#  def alias ↑	= Up
#  def alias ↓	= Down
#  def alias ←	= Left
#  def alias →	= Right
  def alias Yen	= BackSlash
endif

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# キーシーケンス
#

keyseq $WindowClose = A-F4

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Global キーマップ
#

keymap Global
 key *IC-C-Yen		= $ToggleIME		# IME ON/OFF をするキーの指定
 key C-S-M     C-A-M	= Applications		# アプリケーションキー
 key C-S-L     C-A-L	= &WindowLower		# ウィンドウを一番下へ
 key C-S-R     C-A-R	= &WindowRaise		# ウィンドウを一番上へ
#key C-S-R     C-A-R	= &WindowToggleTopMost &Wait(200) &WindowToggleTopMost
 key C-S-Z     C-A-Z	= &WindowMaximize	# ウィンドウの最大化 (IE全画面)
 key C-S-I     C-A-I	= &WindowMinimize	# ウィンドウの最小化
 key C-S-X     C-A-X	= &WindowVMaximize	# ウィンドウの縦最大化
 key C-S-C     C-A-C	= &WindowHMaximize	# ウィンドウの横最大化
 key C-S-Left  C-A-Left	= &WindowMove(-16, 0)	# ウィンドウの移動
 key C-S-Right C-A-Right= &WindowMove(16, 0)	#	〃
 key C-S-Up    C-A-Up	= &WindowMove(0, -16)	#	〃
 key C-S-Down  C-A-Down	= &WindowMove(0, 16)	#	〃
 key C-S-A-Left		= &WindowMove(-1, 0)	#	〃
 key C-S-A-Right	= &WindowMove(1, 0)	#	〃
 key C-S-A-Up		= &WindowMove(0, -1)	#	〃
 key C-S-A-Down		= &WindowMove(0, 1)	#	〃
 key W-Left		= &MouseMove(-16, 0)	# マウスの移動
 key W-Right		= &MouseMove(16, 0)	#	〃
 key W-Up		= &MouseMove(0, -16)	#	〃
 key W-Down		= &MouseMove(0, 16)	#	〃
 key W-A-C-Left		= &MouseMove(-1, 0)	#	〃
 key W-A-C-Right	= &MouseMove(1, 0)	#	〃
 key W-A-C-Up		= &MouseMove(0, -1)	#	〃
 key W-A-C-Down		= &MouseMove(0, 1)	#	〃
 key C-A-A		= &WindowClingToLeft	# ウィンドウを左に寄せる
 key C-A-E		= &WindowClingToRight	# ウィンドウを右に寄せる
 key C-A-P		= &WindowClingToTop	# ウィンドウを上に寄せる
 key C-A-N		= &WindowClingToBottom	# ウィンドウを下に寄せる
 key C-A-V		= &WindowMoveVisibly	# ウィンドウを見える位置へ移動
 key C-S-K     C-A-K	= $WindowClose		# ウィンドウを閉じる
#key C-S-T		= &WindowToggleTopMost	# 最前面トグル
 key C-S-D		= &WindowIdentify &MayuDialog(Log, SHOW)
						# ウィンドウの素性を調べる
 key C-S-H		= &WindowSetAlpha(70)	# ウィンドウの半透明化
 key C-S-A-H		= &WindowSetAlpha(-1)	# 半透明化全て解除
 key C-S-U		= &WindowRedraw		# ウィンドウの再描画
 key C-S-S		= &LoadSetting &HelpMessage(Mayu, "再読込完了") # 設定ファイルの読み込み
 key C-S-F1		= &InvestigateCommand	# WM_COMMAND の調査
 if ( ! EmacsMove/ShiftSelection )
   key C-S-A   C-S-B	= &WindowClingToLeft	# ウィンドウを左に寄せる
   key C-S-F   C-S-E	= &WindowClingToRight	# ウィンドウを右に寄せる
   key C-S-P		= &WindowClingToTop	# ウィンドウを上に寄せる
   key C-S-N		= &WindowClingToBottom	# ウィンドウを下に寄せる
   key C-S-V		= &WindowMoveVisibly	# ウィンドウを見える位置へ移動
 endif
 key W-N		= &Sync &WindowMonitorTo(current, 1) # ディスプレイを切り替える
# WinDeskWide
 key W-_1		= &Sync C-S-A-Q  # WinDeskWide の仮想デスクトップ１に移動（WinDeskWideのホットキー要設定）
 key W-_2		= &Sync C-S-A-W  # WinDeskWide の仮想デスクトップ２に移動（WinDeskWideのホットキー要設定）
 if ( HHKBLite2 )
   key W-F1		= &Sync C-S-A-Q  # WinDeskWide の仮想デスクトップ１に移動（WinDeskWideのホットキー要設定）
   key W-F2		= &Sync C-S-A-W  # WinDeskWide の仮想デスクトップ２に移動（WinDeskWideのホットキー要設定）
 endif
 key W-Q		= &Sync C-S-A-_1 # WinDeskWide の仮想デスクトップ１に送る（WinDeskWideのホットキー要設定）
 key W-W		= &Sync C-S-A-_2 # WinDeskWide の仮想デスクトップ２に送る（WinDeskWideのホットキー要設定）
 key W-Z		= &Sync C-S-A-Z  # WinDeskWide の仮想デスクトップを循環　（WinDeskWideのホットキー要設定）

#key W-E = &ShellExecute("open", "D:\\Program Files\\xf11-3\\XF.exe","/m",, ShowNormal)

 if ( KBD109 ) and ( ! KBD104on109 )
   key *半角/全角	= *Esc			# Esc と半角/全角の入れ替え
   key *Esc		= *半角/全角		#	〃
 endif

 if ( !HHKBLite2 )
   if ( KBD109 )
     mod control += 英数				# 英数を Control に
     key *英数		= *LControl		#	〃
   else
     mod control += CapsLock			# CapsLock を Control に
     key *CapsLock	= *LControl		#	〃
   endif
 endif

 key C-Yen		= 半角/全角             # 変換
 key C-ReverseSolidus	= 半角/全角             # 変換

 if ( GANA )
   if ( KBD109 )
     mod alt += !!無変換			# 無変換を Alt に
     key *無変換	= *無変換		#	〃
     key A-無変換	= 無変換		#	〃
     key IC-A-K		= 無変換		# IME で変換中の A-K は無変換
     key *IC-変換	= $ToggleIME		# IME ON/OFF をするキーの指定
   endif
   key *ScrollLock	= $CapsLock		# ScrollLock を CapsLock に
#   key C-↑		= C-A-S-↑		# for VD
   key C-Up		= C-A-S-Up		# for VD
#   key C-↓		= C-A-S-↓		#	〃
   key C-Down		= C-A-S-Down		#	〃
#   key C-←		= C-A-S-←		#	〃
   key C-Left		= C-A-S-Left		#	〃
#   key C-→		= C-A-S-→		#	〃
   key C-Right		= C-A-S-Right		#	〃
   key C-S-Y		= &WindowResizeTo(0, -64) &WindowMoveVisibly \
			  &Wait(100) &WindowClingToBottom
 endif

keymap2 GlobalEscape : Global = &KeymapParent
 event prefixed		= &HelpMessage("Global", "ESC-")
 event before-key-down	= &HelpMessage
 key M-C-G		= &Ignore

keymap Global
 if ( MAP-ESCAPE-TO-META )
   key Escape		= &Prefix(GlobalEscape) &EditNextModifier(M-)
   if ( KBD109 ) and ( ! KBD104on109 )
     key 半角/全角	= &Prefix(GlobalEscape) &EditNextModifier(M-)
   endif
 endif

 # for AntiFreeze
 key A-C-W-Home = &Default

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 全て(ではないがだいたい)デフォルトのキーマップの定義
#

keymap	KeymapDefault = &Default
 if ( KBD109 )
   mod control += 英数				# 英数を Control に
   key *英数		= *LControl		#	〃
 else
   mod control += CapsLock			# CapsLock を Control に
   key *CapsLock	= *LControl		#	〃
 endif
 if ( GANA )
   if ( KBD109 )
     mod alt += !!無変換			# 無変換を Alt に
     key *無変換	= *無変換		#	〃
     key A-無変換	= 無変換		#	〃
     key IC-A-K		= 無変換		# IME で変換中の A-K は無変換
   endif
 endif

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# コントロールの設定
#

include	".emacsedit.mayu"

#window	EditControl	/:(Edit|TEdit|RichEdit(20[AW])?)$/ : EmacsEdit
window	EditControl	/:(Edit|TEdit|RichEdit(20[AW])?|Scintilla)$/ : EmacsEdit
window	SysListView32	/:SysListView32$/ : EmacsMove
window	SysTreeView32	/:SysTreeView32$/ : EmacsMove
window	ComboBox	/:ComboBox(:Edit)?$/ : EmacsEdit
 key M-N M-P		= A-Down		# ドロップダウンメニューを開く

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Windows の一般的設定
#

 keyseq $WM_VSCROLL/SB_PAGEUP		= &PostMessage(ToItself, 277, 2, 0)
 keyseq $WM_VSCROLL/SB_PAGEDOWN		= &PostMessage(ToItself, 277, 3, 0)

keymap2	GeneralC-X : EmacsC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-W		= LAlt F A		# 名前を付けて保存(A)...
 key C-F		= C-O			# 開く(O)...
 key C			= C-N			# 新規作成(N)
 key K			= C-W			# 閉じる
 key C-C		= LAlt F X		# 終了(X)
# key C-C		= A-Q			# 終了(X)
# key C-C		= $WindowClose		# 終了(X)

## ダイアログボックス .........................................................

window	DialogBox	/:#32770:/ : Global
 key C-G		= Escape

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# MDI 上のウィンドウの設定
#

keymap2 MDI-WindowOperation : Global
 key C-S-L     C-A-L	= &WindowLower(MDI)		# ウィンドウを一番下へ
 key C-S-R     C-A-R	= &WindowRaise(MDI)		# ウィンドウを一番上へ
 key C-S-Z     C-A-Z	= &WindowMaximize(MDI)		# ウィンドウの最大化
 key C-S-I     C-A-I	= &WindowMinimize(MDI)		# ウィンドウの最小化
 key C-S-X     C-A-X	= &WindowVMaximize(MDI)		# ウィンドウの縦最大化
 key C-S-C     C-A-C	= &WindowHMaximize(MDI)		# ウィンドウの横最大化
 key C-S-Left  C-A-Left	= &WindowMove(-16, 0, MDI)	# ウィンドウの移動
 key C-S-Right C-A-Right= &WindowMove(16, 0, MDI)	#	〃
 key C-S-Up    C-A-Up	= &WindowMove(0, -16, MDI)	#	〃
 key C-S-Down  C-A-Down	= &WindowMove(0, 16, MDI)	#	〃
 key C-S-A-Left		= &WindowMove(-1, 0, MDI)	#	〃
 key C-S-A-Right	= &WindowMove(1, 0, MDI)	#	〃
 key C-S-A-Up		= &WindowMove(0, -1, MDI)	#	〃
 key C-S-A-Down		= &WindowMove(0, 1, MDI)	#	〃
 key C-S-A C-S-B C-A-A	= &WindowClingToLeft(MDI)	# ウィンドウ左に寄せる
 key C-S-E C-S-F C-A-E	= &WindowClingToRight(MDI)	# ウィンドウ右に寄せる
 key C-S-P     C-A-P	= &WindowClingToTop(MDI)	# ウィンドウ上に寄せる
 key C-S-N     C-A-N	= &WindowClingToBottom(MDI)	# ウィンドウ下に寄せる
 key C-S-V     C-A-V	= &WindowMoveVisibly(MDI)	# ウィンドウ見える位置
 key C-S-K     C-A-K	= C-F4				# ウィンドウを閉じる

window	MDI	/:MDIClient:/ : Global
 key C-S-Q	C-A-Q	= &Prefix(MDI-WindowOperation)

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 各アプリケーションの設定
#

## 窓使いの憂鬱 ...............................................................
## http://mayu.sourceforge.net

# 仮想キー調査ウィンドウでは全てデフォルト
window	MayuInvestigate /mayu\.exe:#32770:mayuFocus$/ : KeymapDefault

# ログウィンドウ Esc で閉じられるように
window	MayuLog ( /mayu\.exe:#32770:Button/ \
		&& /ログ - 窓使いの憂鬱/ ) : Global
 key C-G		= $WindowClose
 key Esc		= $WindowClose

## Console ....................................................................

 keyseq $ConsoleWindowClass/copy	= &PostMessage(ToItself, 274, 65520, 0)
 keyseq $ConsoleWindowClass/paste	= &PostMessage(ToItself, 274, 65521, 0)
 keyseq $ConsoleWindowClass/region	= &PostMessage(ToItself, 274, 65522, 0)
 keyseq $ConsoleWindowClass/scroll	= &PostMessage(ToItself, 274, 65523, 0)
 keyseq $ConsoleWindowClass/search	= &PostMessage(ToItself, 274, 65524, 0)
 keyseq $ConsoleWindowClass/select-all	= &PostMessage(ToItself, 274, 65525, 0)

#window  ConsoleWindowClass /^ConsoleWindowClass$/ : Global
window  ConsoleWindowClass /^ConsoleWindowClass$/ : EmacsEdit
 key C-S-K     C-A-K	= A-Space C		# ウィンドウを閉じる
 key S-Insert		= $ConsoleWindowClass/paste
 key S-Prior		= $WM_VSCROLL/SB_PAGEUP
 key S-Next		= $WM_VSCROLL/SB_PAGEDOWN
 key S-~NL-Num9		= $WM_VSCROLL/SB_PAGEUP
 key S-~NL-Num3		= $WM_VSCROLL/SB_PAGEDOWN

## Explorer, Internet Explorer ................................................

 keyseq $Explorer/show-folder-bar = &PostMessage(ToMainWindow, 273, 41525, 0)

window	ExplorerList /EXPLORER.*:SHELLDLL_DefView:.*SysListView32$/ : SysListView32
 key S-R		= F2			# 名前の変更
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化
 key M-E		= $Explorer/show-folder-bar # フォルダを表示

window	ExplorerTree /EXPLORER.*:BaseBar:.*SysTreeView32$/ : SysTreeView32
 key S-R		= F2			# 名前の変更
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化
 key M-E		= $Explorer/show-folder-bar # フォルダを表示

window	ExplorerRightClickMenu /Explorer.*:MENU$/ : EmacsMove

window	InternetExplorer /:Internet Explorer_Server$/ : EmacsEdit
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化

window	MicrosoftJava	/:Microsoft VM For Java\(TM\) Host Window Class:/ \
	: EmacsEdit

## Emacs ......................................................................
## http://www.gnu.org/software/emacs/windows/ntemacs.html

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

window	Meadow	/:Meadow$/ : Emacsen
 key IC-M-X		= $ToggleIME M-X
window	MULE	/:MULE$/ : Emacsen
window	Emacs	/:Emacs$/ : Emacsen

## Notepad ....................................................................

 keyseq $Notepad/new		= &PostMessage(ToParentWindow, 273, 9, 0)
 keyseq $Notepad/open		= &PostMessage(ToParentWindow, 273, 10, 0)
 keyseq $Notepad/save-as	= &PostMessage(ToParentWindow, 273, 1, 0)

keymap2	NotepadC-X : GeneralC-X
 event prefixed		= &HelpMessage("メモ帳 C-x-", \
	"C-x C-s\t上書き保存\r\n"	\
	"C-x C-f\t開く\t\r\n"		\
	"C-x k\t\t新規作成\r\n"		\
	"C-x C-c\t終了")
 event before-key-down	= &HelpMessage
 key C-S		= C-S	#$Notepad/save-as	# 上書き保存(S)
 key C-F		= C-O	#$Notepad/open		# 開く(O)...
 key C			= C-N	#$Notepad/new		# 新規作成(N)
 key K			= $WindowClose	#C-W		# 閉じる
 key C-C		= $WindowClose	# メモ帳の終了(X)

window	Notepad /:Notepad:Edit$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(NotepadC-X)
 key C-S		= F3			# 検索(F)...
 key M-J		= C-G			# 行へ移動

## ASTEC-X ....................................................................
## http://www.astec.co.jp/

 keyseq $ASTEC-X/copy-to-x	= &PostMessage(ToItself, 274, 16, 0)

window	ASTEC-X /:ASTEC-X$/ : Global
 key C-Yen		= &Default
 key *IC-IL-C-Yen	= $ToggleIME		# IMEがオンならばIMEをオフ

## Becky! Internet Mail .......................................................
## http://www.rimarts.co.jp/index-j.html

window BeckyInternetMail /Rebecca\.exe:BeckyComposeFrameClass:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)

window BeckyInternetMail2 /B2\.exe:Becky2ComposeFrame:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)

## Microsoft Power Point ......................................................

keymap2	PowerPointC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)

window	PowerPoint /POWERPNT\.EXE:.*:(paneClassDC|REComboBox20W|RichEdit20W)$/\
			: EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(PowerPointC-X)

window	PowerPoint2 /POWERPNT\.EXE:PP9FrameClass.*/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(PowerPointC-X)

## Microsoft Visual Basic 6.0 .................................................

window	VisualBasic /vb6\.exe:.*:VbaWindow$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)

## Microsoft Word .............................................................

window	Word /WINWORD\.EXE:.*:_WwG$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)

## Microsoft Excel ............................................................

keymap2	ExcelC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)
 key C-S		= C-S                   # 保存(S)
 key C-W		= A-F A                 # 名前を付けて保存(A)

keymap2	ExcelC-C : Global
 key C-C		= F9                    # 再計算

window	Excel /EXCEL\.EXE:XLMAIN:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(ExcelC-X)
 if ( !ZXCV ) key C-C	= &Prefix(ExcelC-C)
 key C-S-Up             = &Default
 key C-S-Down           = &Default
 key C-S-Left           = &Default
 key C-S-Right          = &Default
 key C-S-S              = C-F
 key M-S-*_5            = C-H

## Microsoft Excel VBA ........................................................

keymap2	ExcelVBAC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)
 key C-S		= C-S                   # 保存(S)
 key C-W		= A-F A                 # 名前を付けて保存(A)

keymap2	ExcelVBAC-C : Global
 key C-C		= A-D L			# コンパイル

window  ExcelVBA /EXCEL\.EXE:wndclass/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(ExcelVBAC-X)
 if ( !ZXCV ) key C-C	= &Prefix(ExcelVBAC-C)
 key C-S-S              = C-F
 key M-S-*_5            = C-H
 #key M-J		= C-G			# 行へ移動
 key M-Slash		= C-Space		# Parameter Info

## Microsoft Pinball ..........................................................

window MSPinball /PINBALL\.EXE:1c7c22a0-9576-11ce-bf80-444553540000$/ : Global
 key A-Enter		= F4

## Netscape Navigator .........................................................
## http://www.netscape.com/

window	NetscapeNavigator /Netscape\.exe:/ : Global
 key C-H		= BackSpace		# BackSpace
 key C-S		= C-F			# 検索

## Mozilla ....................................................................
## http://www.mozilla.org/

window	Mozilla /:MozillaWindowClass$/ : EmacsEdit

## Personal Dictionary ........................................................
## http://member.nifty.ne.jp/TaN/

window	PersonalDictionary /PDICW32\.EXE:PDICW:ComboBox:Edit/ : EmacsEdit
 key C-K		= S-End S-Delete	# 行末まで削除
 key C-Y		= S-Insert		# PASTE

## Real Player ................................................................
## http://www.real.com/

window RealPlayer /realplay.exe:PNGUIClass/ : Global
 key A-Enter		= LAlt V Z F
 key C-R		= C-P

## TeraTerm ...................................................................
## http://hp.vector.co.jp/authors/VA002416/

window	TeraTerm /TTermPRO\.exe:VTWin32$/ : Global
 key C-Slash		= C-S-HyphenMinus	# C-_ を入力
 key S-Prior		= C-Prior		# スクロール
 key S-Next		= C-Next		# スクロール
 key IC-M-X    IL-M-X	= $ToggleIME M-X	# for emacs
 if ( KBD109 )
   key C-S-ReverseSolidus = C-S-HyphenMinus	# C-_ を入力
 endif

## Xyzzy ......................................................................
## http://www.jsdlab.co.jp/~kamei/

window Xyzzy /xyzzy\.exe:/ : Global
 key C-S-K     C-A-K	= C-X C-C		# ウィンドウを閉じる

## Windows Media Player .......................................................

window WindowsMediaPlayer /mplayer2.*:(Media Player 2|VideoRenderer)/ : Global
 key C-A		= Space		# Play
 key C-R		= Space		# Play
 key C-P		= Space		# Pause
 key C-S		= Period	# Stop

## Windows Mine Sweeper .......................................................

window WindowsMineSweeper /winmine.exe:マインスイーパ$/ : Global
 key D-Z		= &VK(RButton)
 key U-Z		= &Ignore
 key D-X		= &VK(MButton)
 key U-X		= &Ignore
 key D-C		= &VK(LButton)
 key U-C		= &Ignore
 key Q			= F2
 key Num1		= &MouseMove(-16,  16)
 key Num2		= &MouseMove(  0,  16)
 key Num3		= &MouseMove( 16,  16)
 key Num4		= &MouseMove(-16,   0)
 key Num6		= &MouseMove( 16,   0)
 key Num7		= &MouseMove(-16, -16)
 key Num8		= &MouseMove(  0, -16)
 key Num9		= &MouseMove( 16, -16)

## Acrobat Reader .............................................................
## http://www.adobe.co.jp/support/custsupport/library/acrwin.html

window AcrobatReader /AcroRd32.exe:.*:MDIClient:/ : EmacsMove
 key Space		= PageDown
 key BS			= PageUp

## Edmax ......................................................................
## http://www.bekkoame.ne.jp/~t.mzaki/

window EdMax-edit /edmax\.exe:.*Afx:400000:b:0:1900010:0$/ : EmacsEdit

## VisualBasic ................................................................

window VBTextBox /:ThunderRT6FormDC:(ThunderRT6TextBox|RichTextWndClass)$/ \
	: EmacsEdit

## StarOffice/StarSuite/OpenOffice ............................................

window StarOffice /soffice\.exe:SALFRAME$/ : EmacsEdit

## Opera ......................................................................

window	Opera /Opera\.exe:/ : EmacsEdit

## MetaEditor .................................................................

keymap2	MetaEditorC-X : GeneralC-X
 #event prefixed		= &HelpMessage("MetaEditor C-x-", \
 #	"C-x C-s\t上書き保存\r\n"	\
 #	"C-x C-f\t開く\t\r\n"		\
 #	"C-x k\t\t新規作成\r\n"		\
 #	"C-x C-c\t終了")
 #event before-key-down	= &HelpMessage
 key C-S		= C-S			# 上書き保存(S)
 key C-W		= A-F A			# Save As
 key C-F		= C-O			# 開く(O)...
 key C			= C-N			# 新規作成(N)
 key K			= C-W			# 閉じる
 key C-C		= $WindowClose		# MetaEditorの終了(X)
 key H			= C-A			# 全て選択
 key T			= C-T			# Toolbox
 key N			= C-D			# Navigator

keymap2	MetaEditorC-C : Global
 key C-C		= F5			# コンパイル

window	MetaEditor /:MetaQuotes::MetaEditor/ : EmacsEdit
 key C-X		= &Prefix(MetaEditorC-X)
 key C-C		= &Prefix(MetaEditorC-C)
 key C-S		= C-F			# 検索(F)...
 key M-S-*_5		= C-H			# 置換
 key M-J		= C-G			# 行へ移動
 key M-Slash		= C-S-Space		# Parameter Info

## Firefox ....................................................................

keymap2	FirefoxC-X-5
 key B			= C-N			# 新しいWindowを開く

keymap2	FirefoxC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key C			= C-T			# タブを開く
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)
#key G			= C-K			# Web 検索バーを選択
 key G			= C-L			# ロケーションバーを選択
 key C-V		= F5			# 再読込
 key D			= C-J			# ダウンロード
 key _5			= &Prefix(FirefoxC-X-5)

keymap2	FirefoxC-Z
 key C			= C-T			# 新しいタブを開く
 key K			= C-W			# タブを閉じる
 key N			= C-PageDown		# 右のタブへ
 key P			= C-PageUp		# 左のタブへ
 key _0			= C-_1
 key _1			= C-_2
 key _2			= C-_3
 key _3			= C-_4
 key _4			= C-_5
 key _5			= C-_6
 key _6			= C-_7
 key _7			= C-_8

keymap2 FirefoxM-X
 key G			= C-L			# ロケーションバーを選択

window	Firefox /:MozillaUIWindowClass:/ : EmacsEdit
 key C-X		= &Prefix(FirefoxC-X)
 key C-Z		= &Prefix(FirefoxC-Z)
#key M-X		= &Prefix(FirefoxM-X)
 key M-X		= F9						# iswitchb-tabs
 key C-S		= &Toggle(Lock0, on) C-F			# 検索(F)...
 key C-R		= &Toggle(Lock0, on) C-F			# 検索(F)...
#key L0-Space		= M-N		     				# 次を検索
 key L0-C-S		= M-N		     				# 次を検索
 key L0-C-R		= M-P		     				# 前を検索
 key L0-C-G		= &Toggle(Lock0, off) &KeymapParent
 key L0-Enter		= &Toggle(Lock0, off) &KeymapParent
 key M-N		= C-Down					# 次の検索エンジンを選択
 key M-P		= C-Up						# 前の検索エンジンを選択

## eclipse ....................................................................

keymap2	EclipseC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)

 key H			= C-A			# 全て選択

keymap2	EclipseC-C
 key C-C		= C-M-X			# 実行
 key C-D		= C-M-D			# デバッグ

keymap2	EclipseC-Z
 key K			= C-W			# タブを閉じる

window	Eclipse /eclipse\.exe:SWT_Window0:/ : EmacsEdit
 key C-X		= &Prefix(EclipseC-X)
 key C-Z		= &Prefix(EclipseC-Z)
 key C-S		= C-J			# Incremental Find Next
 key C-R		= C-S-J			# Incremental Find Previous
 key C-S-F		= C-F6			# 次のViewへ
 key C-S-B		= C-S-F6		# 前のViewへ
 key C-S-N		= C-F7			# 右のエディタへ
 key C-S-P		= C-S-F7		# 左のエディタへ

## Skype ......................................................................

keymap2	SkypeC-X : GeneralC-X
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)
 key H			= C-A			# 全て選択

window	Skype /\\Skype\.exe:/ : EmacsEdit
 key C-X		= &Prefix(SkypeC-X)

## Paint ......................................................................

keymap2	PaintC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)
 key H			= C-A			# 全て選択
#key U			= C-Z			# Undo

window	Paint /mspaint\.exe:MSPaintApp:/ : EmacsEdit
 key C-X      		= &Prefix(SkypeC-X)
 key M-W		= C-C			# コピー
 key C-W		= C-X			# 切り取り
 key C-Y		= C-V			# 貼り付け

## ePSXe ......................................................................

window	ePSXe /ePSXe.exe:EPSXj/
 key j      		= Down
 key k			= Up
 key h			= Left
 key l			= Right
 key F1			= F1
 key F3			= F3

## Launchy ....................................................................

#window Launchy /Launchy.exe:QWidget/ : EmacsEdit
window Launchy /Launchy.exe:Q/ : EmacsEdit

## Poderosa ...................................................................
# オプション設定を変更
# 操作
#    左Altキーの用途 [メニューとショートカット] → [Metaキー]
#    右Altキーの用途 [メニューとショートカット] → [Metaキー]
#    BackSpaceキーで0x7Fを送信 [未チェック] → [チェック]
# コマンド
#    接続 Telnet/SSH接続 [Alt+N] → [Ctrl+Shift+T]
#    ウィンドウ 閉じる   [Alt-W] → [Ctrl+Shift+W]
#    タブのリネーム      []      → [Ctrl+Shift+R]

keymap2	PoderosaC-Z
 #event prefixed		= &HelpMessage("Poderosa C-Z", \
 #	"C-z c\t新規Telnet/SSH接続\r\n"	\
 #	"")
 #event before-key-down	= &HelpMessage
 key C			= C-S-T			# 新規Telnet/SSH接続
 key K			= C-S-W			# タブを閉じる
 key R			= C-S-R			# タブをリネーム

window	Poderosa /Poderosa\.exe:/ : Global
 key C-Z		= &Prefix(PoderosaC-Z)
 key C-H		= BackSpace

## CravingExplorer ............................................................

keymap2	CravingExplorerC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key C-C		= $WindowClose		# 終了(X)
 key G			= C-L			# ロケーションバーを選択
 key C-V		= F5			# 再読込
 key D			= C-J			# ダウンロード

window	CravingExplorer /CravingExplorer.exe:/ : EmacsEdit
 key C-X		= &Prefix(CravingExplorerC-X)
 key C-J		= &Default		# コメントの改行

## WinMerge ...................................................................

keymap2	WinMergeC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key C-C		= $WindowClose		# 終了(X)
 key C-V		= F5			# 再読込

window	WinMerge /WinMergeU.exe:/ : EmacsEdit
 key C-X		= &Prefix(WinMergeC-X)
 key M-P                = M-Up
 key M-N                = M-Down
 key M-F                = M-Right
 key M-B                = M-Left

## Meadow .....................................................................

window	Meadow /Meadow.exe:MEADOW/
 key IC-C-P             = Up
 key IC-C-N             = Down
 key IC-C-F             = Right
 key IC-C-B             = Left
 key IC-C-A             = Home
 key IC-C-E             = End   # Dictionary
 key IC-C-G             = Esc

## FFFTP ......................................................................

window	FFFTP /FFTP.exe:FFFTPWin:/ : EmacsEdit
 key M-P                = C-U     # Upload
 key M-N                = C-D     # Download
 key C-M-P              = C-S-U   # Mirroring Upload
 key C-M-N              = C-S-D   # Mirroring Download

## TaskClip....................................................................

window	TaskClip-tsclpstg /tsclpstg.exe:/ : EmacsEdit
window	TaskClip-tsclp    /tsclp.exe:/    : EmacsEdit

## Adobe Reader ...............................................................

window	AdobeReader /AcroRd32\.exe:/ : EmacsEdit
 key P              = Up
 key N              = Down
 key B              = Up
 key F              = Down
 key Q              = $WindowClose

## TortoiseSVN ................................................................

window	TortoiseSVN /TortoiseProc.exe:/ : EmacsEdit

## CraftDrop ..................................................................

window	CraftDrop /cdrop\.exe:/ : EmacsEdit

## Launchy ....................................................................

# AutoHotkey でする
#
# keymap control- : Global
# mod ctrl -= LCtrl
# key D-LCtrl  = W-Space  # Win-Space で Launchy が起動するようにしておく
#
# keymap Global
# #mod ctrl -= LCtrl
# #mod ctrl += !!LCtrl
# mod !!ctrl
# key C-LCtrl  = &Prefix(control-,false)

## Inkscape ...................................................................

window Inkscape /inkscape.exe:gdkWindowToplevel/ : Global

window Inkscape-Layer (/inkscape.exe:gdkWindowToplevel/ && /\(Shift\+Ctrl\+L\)/) : EmacsEdit

window Inkscape-XMLEditor (/inkscape.exe:gdkWindowToplevel/ && /\(Shift\+Ctrl\+X\)/) : EmacsEdit

## MFA ........................................................................

window MFA /MFA.exe:MCIWndClass/ : EmacsEdit

## しゃべるんです .............................................................

window Shaberundesu /Shaberundesu.exe:WindowsForms10/ : EmacsEdit

## 電子かたりべプレーヤー .....................................................

window E-kataribe /E-kataribe\\Player.*SunAwtFrame/ : EmacsEdit

.emacsedit.mayu

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 窓使いの憂鬱 - emacsedit.mayu
# Copyright (C) 1999-2005, TAGA Nayuta 
#

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Emacs 風移動コマンド
#

keymap	EmacsMove : Global
 key *IC-Home		= C-Home		# 文頭
 key *IC-End		= C-End			# 文末
 key *IC-C-Space	= &Undefined		# Mark
 key *IC-C-A		= Home			# 行頭
 key *IC-C-B		= Left			# ←
 key *IC-M-B		= C-Left		# ←(単語)
 key *IC-C-E		= End			# 行末
 key *IC-C-F		= Right			# →
 key *IC-M-F		= C-Right		# →(単語)
 key *IC-C-G		= Escape		# CANCEL
 key *IC-C-L		= &WindowRedraw &Recenter # 再描画
 key *IC-C-N		= Down			# ↓
 key *IC-C-P		= Up			# ↑
 key *IC-C-Q		= &Prefix(KeymapDefault) # mayu に左右されないキー入力
 key *IC-C-S		= C-F			# 検索
 if ( !ZXCV ) key C-V	= Next			# 次頁
 key *IC-M-V		= Prior			# 前頁
 key *IC-S-Home		= S-C-Home		# 文頭(選択)
 key *IC-S-End		= S-C-End		# 文末(選択)
 key *IC-S-M-Comma	= C-Home		# 文頭
 key *IC-S-M-Period	= C-End			# 文末

 if ( EmacsMove/ShiftSelection )
   key S-C-A		= S-Home		# 行頭(選択)
   key S-C-B		= S-Left		# ←(選択)
   key S-C-E		= S-End			# 行末(選択)
   key S-C-F		= S-Right		# →(選択)
   key S-C-N		= S-Down		# ↓(選択)
   key S-C-P		= S-Up			# ↑(選択)
   key S-C-V		= S-Next		# 次頁(選択)
   key S-M-V		= S-Prior		# 前頁(選択)
 endif

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Emacs 風編集コマンド
#

 keyseq	$EmacsEdit/kill-word		= S-C-Right C-X
 keyseq	$EmacsEdit/backward-kill-word	= S-C-Left C-X
 keyseq	$EmacsEdit/transpose-chars	= S-Right C-X Left C-V Right
 keyseq	$EmacsEdit/upcase-word		= S-C-Right C-C *&Sync \
					  &ClipboardUpcaseWord C-V
 keyseq	$EmacsEdit/downcase-word	= S-C-Right C-C *&Sync \
					  &ClipboardDowncaseWord C-V
 keyseq	$EmacsEdit/kill-line		= &EmacsEditKillLineFunc S-End C-X \
			&Sync &EmacsEditKillLinePred((Delete), (Return Left))
 keyseq	$EmacsMark/cancel		= Left Right

keymap	EmacsEdit : EmacsMove
keymap2	EmacsMark : EmacsEdit = $EmacsMark/cancel &KeymapWindow
keymap2 EmacsMarkEscape : EmacsMark = &KeymapParent

keymap2	EmacsC-X : EmacsEdit
 event prefixed		= &HelpMessage("EmacsEdit C-x-", "C-x u\tundo")
 event before-key-down	= &HelpMessage
 key *U			= C-Z					# UNDO

keymap2 EmacsC-U0_9C-U : Global \
		= &Repeat((&KeymapWindow), 100) &HelpMessage &Variable(0, 0)
 key C-G	= &HelpMessage &Variable(0, 0) &Ignore

keymap2 EmacsC-U0_9 : EmacsC-U0_9C-U
 event prefixed		= &HelpVariable("繰り返し")
 key _0 Num0		= &Variable(10, 0) &Prefix(EmacsC-U0_9)
 key _1 Num1		= &Variable(10, 1) &Prefix(EmacsC-U0_9)
 key _2 Num2		= &Variable(10, 2) &Prefix(EmacsC-U0_9)
 key _3 Num3		= &Variable(10, 3) &Prefix(EmacsC-U0_9)
 key _4 Num4		= &Variable(10, 4) &Prefix(EmacsC-U0_9)
 key _5 Num5		= &Variable(10, 5) &Prefix(EmacsC-U0_9)
 key _6 Num6		= &Variable(10, 6) &Prefix(EmacsC-U0_9)
 key _7 Num7		= &Variable(10, 7) &Prefix(EmacsC-U0_9)
 key _8 Num8		= &Variable(10, 8) &Prefix(EmacsC-U0_9)
 key _9 Num9		= &Variable(10, 9) &Prefix(EmacsC-U0_9)
 key C-U		= &Prefix(EmacsC-U0_9C-U)

keymap2 EmacsC-U : EmacsC-U0_9C-U
 event prefixed		= &HelpVariable("繰り返し")
 key _0 Num0		= &Variable(0, 0) &Prefix(EmacsC-U0_9)
 key _1 Num1		= &Variable(0, 1) &Prefix(EmacsC-U0_9)
 key _2 Num2		= &Variable(0, 2) &Prefix(EmacsC-U0_9)
 key _3 Num3		= &Variable(0, 3) &Prefix(EmacsC-U0_9)
 key _4 Num4		= &Variable(0, 4) &Prefix(EmacsC-U0_9)
 key _5 Num5		= &Variable(0, 5) &Prefix(EmacsC-U0_9)
 key _6 Num6		= &Variable(0, 6) &Prefix(EmacsC-U0_9)
 key _7 Num7		= &Variable(0, 7) &Prefix(EmacsC-U0_9)
 key _8 Num8		= &Variable(0, 8) &Prefix(EmacsC-U0_9)
 key _9 Num9		= &Variable(0, 9) &Prefix(EmacsC-U0_9)
 key C-U		= &Variable(4, 0) &Prefix(EmacsC-U)

keymap	EmacsEdit
 key C-Space		= &Prefix(EmacsMark)			# Mark
 key M-BackSpace	= $EmacsEdit/backward-kill-word		# BS(単語)
 key C-D		= Delete				# 削除
 key M-D		= $EmacsEdit/kill-word			# 削除(単語)
 key C-H		= BackSpace				# BS
 key C-J		= Return				# RETURN
 key C-K		= $EmacsEdit/kill-line			# 行末まで削除
 key C-M		= Return				# RETURN
 key C-O		= Return Left				# 一行増やす
 if ( !GANA ) key C-T	= $EmacsEdit/transpose-chars		# 文字入れ替え
 key C-W		= C-X					# CUT
 key M-W		= C-C					# COPY
 key C-U		= &Variable(0, 4) &Prefix(EmacsC-U)
 if ( !ZXCV ) key C-X	= &Prefix(EmacsC-X)
 key C-Y		= C-V					# PASTE
 key C-Slash		= C-Z					# UNDO
 key M-U		= $EmacsEdit/upcase-word		# 大文字
 key M-L		= $EmacsEdit/downcase-word		# 小文字

keymap2	EmacsMark
 key M-S-IL-Comma	= S-C-Home	&Prefix(EmacsMark)	# 文頭
 key M-S-IL-FullStop	= S-C-End	&Prefix(EmacsMark)	# 文末
 key Home		= S-C-Home	&Prefix(EmacsMark)	# 文頭
 key End		= S-C-End	&Prefix(EmacsMark)	# 文末
 key C-A		= S-Home	&Prefix(EmacsMark)	# 行頭
 key C-B		= S-Left	&Prefix(EmacsMark)	# ←
 key M-B		= S-C-Left	&Prefix(EmacsMark)	# ←(単語)
 key C-E		= S-End		&Prefix(EmacsMark)	# 行末
 key C-F		= S-Right	&Prefix(EmacsMark)	# →
 key M-F		= S-C-Right	&Prefix(EmacsMark)	# →(単語)
 key C-G		= $EmacsMark/cancel &Undefined		# キャンセル
 key C-N		= S-Down	&Prefix(EmacsMark)	# ↓
 key C-P		= S-Up		&Prefix(EmacsMark)	# ↑
 if ( !ZXCV ) key C-V	= S-Next	&Prefix(EmacsMark)	# 次頁
 key M-V		= S-Prior	&Prefix(EmacsMark)	# 前頁
 key C-W		= C-X Left Right			# CUT
 key M-W		= C-C Left Right			# COPY
 key S-M-Comma		= S-C-Home	&Prefix(EmacsMark)	# 文頭
 key S-M-Period		= S-C-End	&Prefix(EmacsMark)	# 文末
 key Left		= S-Left	&Prefix(EmacsMark)	# ←
 key Up			= S-Up		&Prefix(EmacsMark)	# ↑
 key Right		= S-Right	&Prefix(EmacsMark)	# →
 key Down		= S-Down	&Prefix(EmacsMark)	# ↓
 if ( MAP-ESCAPE-TO-META )
   key Escape		= &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
   if ( KBD109 ) and ( ! KBD104on109 )
     key 半角/全角	= &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
   endif
 endif

keymap2 EmacsMarkEscape
 event prefixed		= &HelpMessage("EmacsMark ESC-", " ")
 event before-key-down	= &HelpMessage
 key M-C-G		= &Ignore

調べてみると、*Message* バッファに次のエラーが。（数値の部分はその時々で変わる）
Error in pre-command-hook: (args-out-of-range 41 63)

ウチちの環境でこのエラーを再現する方法：

1. emacs を起動。 (elscreen, iswitchb, mcomplete が使える状態)
2. C-z b *Message* と入力しようとする
3. [No match] [No match] … と出て、全くバッファ名にマッチしなくなる
4. *Message* バッファに Error in pre-command-hook: (args-out-of-range 41 63) が出てる
5. *Message* [No match] [No match] [No match] [No match] とかいう名前のバッファが新規作成される

ちなみに、 C-x b などでバッファを選ぶと問題ない。 C-z b の時だけ。

原因究明：
pre-command-hook とか言われても、どの hook がダメなのかさっぱりだったので、いろいろ追っかけて、elscreen と mcomplete の連携がうまくいってないことが判明。
ずっと、iswitchb が原因と思って iswitchb.el をデバッグしてたのに・・・。

mcomplete.el の 1093 行目付近の以下の箇所を修正。
修正前：

(mapcar #'(lambda (f) (put f 'mcomplete-mode '(:mode off)))
        '(iswitchb-buffer iswitchb-buffer-other-window
          iswitchb-display-buffer iswitchb-buffer-other-frame

          ido-find-file ido-find-alternate-file ido-write-file
          ido-insert-file ido-switch-buffer ido-insert-buffer
          ido-kill-buffer ido-find-file-other-window
          ido-find-file-other-window ido-switch-buffer-other-window
          ido-display-buffer ido-find-file-other-frame
          ido-switch-buffer-other-frame))

修正後：

(mapcar #'(lambda (f) (put f 'mcomplete-mode '(:mode off)))
        '(iswitchb-buffer iswitchb-buffer-other-window
          iswitchb-display-buffer iswitchb-buffer-other-frame

          ido-find-file ido-find-alternate-file ido-write-file
          ido-insert-file ido-switch-buffer ido-insert-buffer
          ido-kill-buffer ido-find-file-other-window
          ido-find-file-other-window ido-switch-buffer-other-window
          ido-display-buffer ido-find-file-other-frame
          ido-switch-buffer-other-frame

          elscreen-find-and-goto-by-buffer
          ))

どうやら、mcomplete は、 iswitchb とかと競合しないように気を遣っているようだけど、elscreen は眼中になかったらしい。

↓の様なインデントをサポートするように改造。

$a = array(
    'aaaa' => 1,
    'bbbb' => 2,
);

あと、もともと入っていた template という、ウィザード形式の入力支援が苦手だったので、全部その処理をしているところをばっさり削除。
便利な入力支援は yasnippet を使うことにする方がいいかも。
http://code.google.com/p/yasnippet/

• php-mode.el (2008/04/30)
• 過去の php-mode.el

Happy Hacking Keyboard Lite2 を使い始めて、手首を浮かすことがだいぶ少なくなったので、手首が腱鞘炎っぽくなることがほぼ無くなった。

それでも今度は、Emacs 使いの所為か左手小指にかなり負荷がかかっていて、
一日の終わりに頭よりも目よりも先に、左小指が一番最初にガタが来る症状に悩まされたあげく、自分なりの解決策にたどり着いた。

解決策：一番丈夫なのにスペースキーくらいしか叩いてない親指に働いてもらう

↑の画像のようにキーを入れ替える。

• 半角/全角 → 左Alt
• 無変換 → 左Control
• 変換 → 右Control
• カタカナ/ひらがな → 右Alt
• 左Alt → メニュー
• ;（セミコロン） → Enter
• Ctrl+;（Ctrlを押しながら;） → ;（セミコロン）

キーの入れ替えには「窓使いの憂鬱」というソフトを使用。
このソフトはかなり便利で、いろんなソフトで Emacs ライクなキーバインドを使える。

窓使いの憂鬱の設定ファイル .mayu に以下を追加。

mod control += 無変換       # 無変換 を LControl に
key *無変換 = *LControl     #       〃
mod control += 変換         # 変換を を LControl に
key *変換   = *LControl     #       〃
mod alt       += ひらがな   # ひらがな を LAlt に
key *ひらがな = *LAlt       #      〃

if ( HHKBLite2 )
  mod alt        -= RAlt       # RAlt を 右クリックメニューの出るやつに
  key *RAlt      = *APPS       #      〃
  mod alt        += 半角/全角  # 半角/全角 を LAlt に
  key *半角/全角 = *LAlt       #      〃
  key Escape     = &Default    # Escape を元に戻す
endif

if ( LetsNoteCFY2 )
  key *半角/全角  = *Esc       # 半角/全角を Esc に
  #key *Esc       = *半角/全角 # Esc はそのまま
  key *Escape     = *Escape    # Escape を元に戻す
endif

key *IC-SemiColon      = Enter       # セミコロン を Enter に
key *IC-C-~S-SemiColon = SemiColon   # Ctrlを押しながらだとセミコロンに;
#key *IC-C-~S-I          = Tab        # Ctrlを押しながらだとTabに

↑の設定では、デスクトップの HHKBLite2 と、Laptop の Let’s note CF-Y2 で同じ設定を共有できるように、
デスクトップで使用する場合は、シンボルに HHKBLite2 を、
Laptop で使用する場合は、シンボルに LetsNoteCFY2 を定義して切り分けるようにしてある。

これで、Control キーを押しっぱなし、Alt キーを押しっぱなしといったことがほとんど親指の仕事になったので、
左小指への負担はだいぶ軽減された。相当酷使しない限り今のところ平気。

あとは、さらに小指の負担が減るように、 Ctrl+i で Tab になるようにしてある。

「窓使いの憂鬱」を使い始めて、何も Happy Hacking Keyboard Lite2 じゃなくても、
同じくらいか、もう少し小さめのキーを押しやすいキーボードがあればそれでいい気がしてきた・・・。
英語版キーボードも、スペースキーの周りにもっとキーがいっぱいあればな・・・。

関連：キーボード（Happy Hacking Keyboard Lite2）

今現在、デスクトップＰＣ用のキーボードで Happy Hacking Keyboard Lite2 の日本語配列を使用中。（キーを入れ替えて使用）
選んだ理由は、使い始めた当時、Happy Hacking Keyboard は使いやすいと噂で聞いていたのと、
Happy Hacking Keyboard Professional が英語配列しかなくて、しかも高かったので、 HHKB Lite2 を選択。

その当時の事情で、他のキーボードも触ることがよくあって、日本語配列←→英語配列を行き来するのが大変そうだったのも理由の一つ。
今となっては、日本語配列にして正解だったと思う。一番下の段にいっぱいキーがあるし。

好きな点：
• キーボードがちょうどいいくらいに小さいので、総てのキーに指が簡単に届く
• 日本語配列だからノートＰＣとか、人のＰＣのキーボードを触っても困りにくい
• 日本語配列なので最下段に余計なキーがあって好きに使える（後述）
• 日本語配列なのでちゃんとカーソルキーが付いてる（やっぱりカーソルキーは要る）
• デフォルトで、左Control キーが使いやすい a に左にある

きらいな点：
• Enter キーが大きすぎる
• F1 ～ F12 を独立させてほしい（Fn+最上段のキーでF1～F12は使いにくい）

改善されたらいいと思う点：
• 最近、スペースキーの押し心地が悪い気がするのでそれ(2008/04/13 追記)
• 音がカチャカチャうるさい(2008/04/13 追記)
• キーがもっともっと弱い力で押せればいいのに(2008/04/13 追記)
• きらいな点や、改善されたらいいと思う点とかをクリアしたキーボードがどこかからか発売されればいいのに(2008/04/13 追記)

Happy Hacking Keyboard Professional2 に日本語配列があれば買うのにな・・・。

つづく。

• PFU Happy Hacking Keyboard Lite2 日本語配列/白/USB PD-KB210W/U
• PFU Happy Hacking Keyboard Lite2 日本語配列/黒/USB PD-KB210B/U
• PFU Happy Hacking Keyboard Lite2 日本語配列かな無刻印/白/USB PD-KB220W/U
• PFU Happy Hacking Keyboard Lite2 日本語配列かな無刻印/黒/USB PD-KB220B/U

CraftDrop というコマンドラインからファイルを、起動中のプログラムへファイルをドラッグ＆ドロップするプログラムを使用する。
cdrop.exe, cdropopt.exe, cdrop.dat(←cdrop.exeを初回起動時に作成される) を PATH の通ったところにコピー。
（めんどかったので、meadow/bin に放り込んだ）

.emacs に↓を追加:

;; dired で "c" でファイルを CraftDrop 送り
(add-hook 'dired-mode-hook
          (lambda ()
            (local-set-key "c" 'dired-exec-craftdrop)))
(defun dired-exec-craftdrop ()
  "In dired, execute CraftDrop"
  (interactive)
  (craftdrop (dired-get-filename)))
;; 現在の行のファイルを craftdrop 送りにする
(define-process-argument-editing "/cdrop\\.exe$"
  (lambda (x)
    (general-process-argument-editing-function x nil nil nil)))
(defun craftdrop (&optional fname)
  (interactive)
  (if (not (file-exists-p fname))
      (message "%s can't open." fname)
    (setq fname (unix-to-dos-filename fname))
    (let ((w32-start-process-show-window t))
      (apply (function start-process)
             "cdrop" nil "cdrop.exe" (list fname)))))

C-x d で dired を起動して、何かファイルにカーソルを合わせた状態で c を押すと、そのファイルを CraftDrop 送りにできる。

CraftDrop をまだ、ちゃんと使ってないので、このコードが活きてくるのか不明・・・。

参考にしたサイト:

• 検索結果
• 25.3.7 dired から関連付けられたソフトで開く

php-mode.el ver 0.0.4 と php-mode.el var 1.2.0を混ぜて少し修正。

meadow で動作確認。

site-lisp に php-mode.el　をコピーして、
.emacs に以下の行を追加。

(autoload 'php-mode "php-mode" "PHP mode" t)

(setq auto-mode-alist
      (cons '("\\.\\(php\\|php5\\|inc\\)$" . php-mode) auto-mode-alist))
(add-hook 'php-mode-hook '(lambda ()
			    (setq php-intelligent-tab nil)
			    (setq intelligent-tab nil)
			    (setq indent-tabs-mode t)
			    (setq c-basic-offset 4)
			    (setq tab-width 4)
			    ) t)

• php-mode.el 2008/03/01
• php-mode.el ※追記 2008/03/18 ちょっと修正版
• php-mode.el ※追記 2008/04/24 # のコメントはないことにして、コメント内で#以降の色がおかしくなるのを修正。
• 新しい php-mode.el (2008/04/30)