Make C-S-up handle shift selection under Org-Mode

Question

When shift-select-mode is on (Emacs' default), C-S-up in text mode selects the previous paragraph.

This does not work under Org-Mode, where C-S-up gets translated into C-up, which is mapped to org-backward-paragraph and just moves up, but does not select the paragraph.

The question is how to enable shift selection for C-S-up.

The solution here is not ideal, as it relies on backward-paragraph (instead of org-backward-paragraph), which does not work well with several Org-mode constructs (e.g., doesn't treat bullet points as paragraphs).

PS: I'm using org-support-shift-select and org-replace-disputed keys, like this:

(setq org-support-shift-select t
      org-replace-disputed-keys t)
(setq org-disputed-keys
      '(
        ([(shift left)]          . [(meta -)])         ; change status (todo/closed/done)
        ([(shift right)]         . [(meta =)])         ;
        ([(shift up)]            . [(control meta -)]) ; change priority
        ([(shift down)]          . [(control meta =)]) ;
        ([(control shift right)] . [(meta +)])         ; status of group
        ([(control shift left)]  . [(meta _)])         ;
        ([(control shift up)]    . [(control meta +)]) ; change clock logs
        ([(control shift down)]  . [(control meta _)]) ;
        ))

Answer 1

Based on clues from lawlist's comments, reading around the area of "Key Sequence Input" in the elisp info file, and an explanation of defadvice that even I can understand, here, I added this to my .emacs:

(defadvice org-backward-paragraph
    (before set-up-shift-select-backward-paragraph activate)
  (interactive "^"))
(defadvice org-forward-paragraph
    (before set-up-shift-select-forward-paragraph activate)
  (interactive "^"))

This gives a similar effect to using C-S-up and C-S-down in text-mode. The difference that I see is where point winds up.

This code causes calls to org-backward-paragraph and org-forward-paragraph to first call interactive with the magic character ^, which means to set up shift-select.

I am also using org-replace-disputed-keys, but that didn't help with paragraphs.