From dd060d9db784a75ddd363b2d906ad0c69920e8dc Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sat, 7 Apr 2012 01:22:53 +0900
Subject: [PATCH] ignore cursor keys

---
 emacs.el | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/emacs.el b/emacs.el
index 14ac716..30c04b4 100644
--- a/emacs.el
+++ b/emacs.el
@@ -454,18 +454,11 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 (global-set-key (kbd "C-<left>") 'scroll-down)
 (global-set-key (kbd "C-<right>") 'scroll-up)
 (global-set-key (kbd "<select>") 'previous-line-mark)
-(define-key ctl-x-map (kbd "M-x") 'execute-extended-command)
-(define-key ctl-x-map (kbd "M-:") 'eval-expression)
+(define-key ctl-x-map (kbd "ESC x") 'execute-extended-command)
+(define-key ctl-x-map (kbd "ESC :") 'eval-expression)
 
 ;; C-h and DEL
-(global-set-key (kbd "C-h") (kbd "DEL"))
-;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify)
-;; (global-set-key (kbd "DEL") help-map)
-;; (global-set-key (kbd "C-h") (lambda ()
-;;                               (interactive)
-;;                               (call-interactively (key-binding (kbd "DEL")))))
-;; (keyboard-translate ?\^h ?\^?) ; scimにはC-hを送りたい
-;; (keyboard-translate ?\b ?\^h)          ; dont translate backspace
+;(global-set-key (kbd "C-h") (kbd "DEL"))
 
 (global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
 (global-set-key (kbd "C-o")
@@ -477,12 +470,21 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
                 )
 (global-set-key (kbd "C-k") 'kill-whole-line)
 (global-set-key (kbd "M-k") 'my-copy-whole-line)
-;; (global-set-key "\C-z" 'undo) ; undo is C-/
+;; (global-set-key "\C-z" 'undo) ; undo is M-u
 (global-set-key (kbd "M-u") 'undo)
 (global-set-key (kbd "C-r") 'query-replace-regexp)
 (global-set-key (kbd "C-s") 'isearch-forward-regexp)
 (global-set-key (kbd "M-i") (kbd "ESC TAB"))
 
+'(and (dllib-if-unfound "drill-instructor"
+                       "https://raw.github.com/k1LoW/emacs-drill-instructor/master/drill-instructor.el"
+                       t)
+     (require 'drill-instructor nil t)
+     (setq drill-instructor-global t))
+(mapc (lambda (key)
+        (global-set-key (read-kbd-macro key) 'ignore))
+      '("<up>" "<down>" "<right>" "<left>"))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; gmail