Remap org-shiftmetaright | org-shiftmetaleft to [shift-select-meta]left-word | [shift-select-meta]right-word]

Question

Could someone please give me a hand remapping org-shiftmetaright | org-shiftmetaleft to [shift-select-meta]left-word | [shift-select

Answer 1

If you just set (setq org-replace-disputed-keys t), org-mode will remap those conflicting keys. It is also preferable since you can still use Shift + Arrow keys in date selection.

Please see http://orgmode.org/manual/Conflicts.html for more information.

Answer 2

Believe it or not I wanted to do this also. I followed the above - I also re-bound those commands to the C- key:

(eval-after-load "org"
'(progn
 (define-key org-mode-map (kbd "<M-S-left>") nil)
 (define-key org-mode-map (kbd "<M-S-right>") nil)
 (define-key org-mode-map (kbd "<M-left>") nil)
 (define-key org-mode-map (kbd "<M-right>") nil)
 (define-key org-mode-map [C-S-right] 'org-shiftmetaright)
 (define-key org-mode-map [C-S-left] 'org-shiftmetaleft)
 (define-key org-mode-map [C-right] 'org-metaright)
 (define-key org-mode-map [C-left] 'org-metaleft)
 (define-key org-mode-map [C-S-return] 'org-insert-todo-heading)
 ))

Answer 3

As you just want to fall back to the default behaviour for these bindings, we can simply remove the org-mode overrides.

(eval-after-load "org"
  '(progn
     (define-key org-mode-map (kbd "<M-S-left>") nil)
     (define-key org-mode-map (kbd "<M-S-right>") nil)
     (define-key org-mode-map (kbd "<M-left>") nil)
     (define-key org-mode-map (kbd "<M-right>") nil)))