summaryrefslogtreecommitdiff
path: root/lisp/simple.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/simple.el')
-rw-r--r--lisp/simple.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 5660f6574f4..acea1f9ddc1 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5612,7 +5612,7 @@ see `region-noncontiguous-p' and `extract-rectangle-bounds'."
"Return non-nil if the region contains several pieces.
An example is a rectangular region handled as a list of
separate contiguous regions for each line."
- (> (length (region-bounds)) 1))
+ (cdr (region-bounds)))
(defvar redisplay-unhighlight-region-function
(lambda (rol) (when (overlayp rol) (delete-overlay rol))))