* lisp/emulation/cua-base.el (cua--select-keymaps): Use region-active-p.