Browse Source

ignore cursor keys

pull/1/head
10sr 12 years ago
parent
commit
dd060d9db7
1 changed files with 13 additions and 11 deletions
  1. +13
    -11
      emacs.el

+ 13
- 11
emacs.el View File

@@ -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



Loading…
Cancel
Save