bug#11191: C-x C-x does not activate the selection anymore with cua-selection-mode

[Kim Storm]

On 04/09/2012 04:16 PM, Dan Nicolaescu wrote:
> You might want to do something different for cua-mode vs
> cua-selection-mode (where C-x C-x has no other problems).

You are right -- maybe this version suits all:

(defun cua-exchange-point-and-mark (arg)
  "Exchanges point and mark.

Don't activate the mark if `cua-enable-cua-keys` is non-nil.
Just activate the mark if a prefix argument is given.

See also `exchange-point-and-mark'."
  (interactive "P")
  (if cua-enable-cua-keys
      (if arg
      (setq mark-active t)
    (let (mark-active)
      (exchange-point-and-mark)
      (if cua--rectangle
          (cua--rectangle-corner 0))))
    (exchange-point-and-mark arg)))

Would someone pls. commit this change.
Here is a change log entry:

     * emulation/cua-base.el (cua-exchange-point-and-mark):
     Fallback to exchange-point-and-mark when cua-enable-cua-keys is nil.

Then you can also close bug #6199

Thanks
Kim