How to disable org-metaleft in org capture?

Question

The combination of org capture, org-metaleft (bound to S-LEFT), and refiling can mess up an org file. Here is an example:

• Start a new heading with quick capture, say *** new. This heading is refiled depending on your quick capture template, say ** Miscellaneous.
• Press S-LEFT twice, which is bound to org-metaleft and which I often use to go back a word instead of M-b. The heading *** new becomes * new and all the next level 2 headings will become children of this new heading.
• Refile with C-c C-w, say to * Today. The heading becomes ** new and carries all the children with it to the new location.

The problem with this behavior is that it is completely hidden, unlike in the main buffer where I would see it happening. So I think org-metaleft should be disabled in org capture.

Why is it enabled, and how to turn it off?

Answer 1

Following @lawlist's comments, C-h k <M-LEFT> on an org-capture buffer shows that the key is bound through org-mode-map. I overrode the keybinding of M-LEFT to a function that checks if the current buffer is an Org-capture buffer:

(defun my-org-is-buffer-org-capture()
  "Checks if the current buffer is an org-capture buffer."
  (string-match-p (regexp-quote "CAPTURE-") (buffer-name)))

(defun my-org-metaleft (&optional arg)
  "Wrapper function for org-metaleft, except in org-capture buffers where it calls backward-word."
  (interactive)
  (if (my-org-is-buffer-org-capture)
      (backward-word)
    (org-metaleft arg)))

(defun my-org-metaright (&optional arg)
  "Wrapper function for org-metaright, except in org-capture buffers where it calls forward-word."
  (interactive)
  (if (is-buffer-org-capture)
      (forward-word)
    (org-metaright arg)))

;; Disable org-metaleft and org-metaright in org-capture buffers
(define-key org-mode-map (kbd "<M-left>") 'my-org-metaleft)
(define-key org-mode-map (kbd "<M-right>") 'my-org-metaright)