* Use (use-region-p) instead of mark-active.