Bug with cua-mode & org-support-shift-select

[Ivan Vanyushkin <vanav@vanav.com.ua>]

Hello.

I want to use C-x/C-c/C-v and Shift-arrows selection with org-mode.

GNU Emacs 23.1.50.1, org-mode 6.34, .emacs:
(cua-mode 1)
(setq org-support-shift-select t)

If this two options are on, then Shift key selection with arrow keys 
doesn't work: no selection, just cursor movements. According to 
http://orgmode.org/manual/Conflicts.html I think that org-mode should 
support CUA. If not, what can you suggest for correct support of 
C-x/C-c/C-v + org-support-shift-select?

As far as I can say, the reason of problem is there:

In org.el:
(defun org-call-for-shift-select (cmd)
   (let ((this-command-keys-shift-translated t))
     (call-interactively cmd)))

Called like this: (org-call-for-shift-select 'forward-char)

In cua-base.el Shift key is detected like this:
     (memq 'shift (event-modifiers
               (aref (this-single-command-raw-keys) 0)))
binded as pre-command-hook.

So, I think, Shift key is just not detected by CUA, and need a way to 
set it's flag. Sorry, I don't know emacs lisp.

Thank you for your suggestions.

-- 
Ivan Vanyushkin - Vanav.
http://vanav.com.ua
mailto:Vanav@vanav.com.ua
Jabber/GTalk: Vanav@vanav.com.ua
ICQ: 190644448
Yahoo: Vanav_I
MSN: Vanav@vanav.com.ua