From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Tue, 30 Apr 2019 23:39:54 +0000 (+0100)
Subject: Minor region-noncontiguous-p simplification
X-Git-Tag: emacs-27.0.90~3031
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dafbe3ab91e838803a84ab388bca03ff985e312;p=emacs.git

Minor region-noncontiguous-p simplification

* lisp/simple.el (region-noncontiguous-p): Don't needlessly traverse
region-bounds.
---

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))))