Это не решение, но к вашему сведению ...
Я заметил, что эта переменная, упомянутая в справке для cua-mode
cua-highlight-region-shift-only is a variable defined in `cua-base.el'.
*If non-nil, only highlight region if marked with S-<move>.
When this is non-nil, CUA toggles `transient-mark-mode' on when the region
is marked using shifted movement keys, and off when the mark is cleared.
But when the mark was set using M-x cua-set-mark, Transient Mark mode
is not turned on.
cua-mode
, делает это:
(setq shift-select-mode nil)
(setq transient-mark-mode (and cua-mode
(if cua-highlight-region-shift-only
(not cua--explicit-region-start)
t))))