* lisp/simple.el (region-active-p): Check there's a mark.