コナミコマンド

emacs ネタ

お知らせ:「コナミコマンド」を実装しました | N-Styles
コナミコマンドなつかしい。ではEmacsで。以下の式をevalしてから↑↑→→←→←→BAしてごらん。あ、実行後は元に戻るので安心してくれｗ

(progn
  (setq old-up-binding (key-binding [up]))
  (global-set-key (kbd "<up>") nil)
  (global-set-key (kbd "<up> <up> <down> <down> <left> <right> <left> <right> b a")
                  (lambda () (interactive)
                    (message "Konami!")
                    (global-set-key (kbd "<up>") old-up-binding)
                    )))