From 4849ea187ec4e782b737ae41803b26b64b31f585 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 24 Feb 2009 09:08:18 +0000 Subject: [PATCH] emacs: Beat up org-mode so it stops stealing valuable keys. Move Org-mode-specific commands off of keys M- and S-. --- emacs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/emacs b/emacs index 40d4b0f..97277d1 100644 --- a/emacs +++ b/emacs @@ -387,6 +387,21 @@ (global-set-key [vertical-scroll-bar C-mouse-1] #'(lambda () (interactive))) +(defun mdw-clobber-org-mode-map () + (dolist (key '([S-up] [S-down] [S-left] [S-right] + [?\e left] [?\e right] + [M-left] [M-right])) + (define-key org-mode-map key nil)) + (define-key org-mode-map [?\C-c left] 'org-shiftleft) + (define-key org-mode-map [?\C-c right] 'org-shiftright) + (define-key org-mode-map [?\C-c up] 'org-shiftup) + (define-key org-mode-map [?\C-c down] 'org-shiftdown) + (define-key org-mode-map [C-left] 'org-metaleft) + (define-key org-mode-map [C-right] 'org-metaright) + (define-key org-mode-map [C-up] 'org-metaup) + (define-key org-mode-map [C-down] 'org-metadown)) +(add-hook 'org-mode-hook 'mdw-clobber-org-mode-map) + ;; --- Recognising types of files --- (setq auto-mode-alist -- 2.11.0