[Emacs-diffs] master 7dafbe3: Minor region-noncontiguous-p simplification

[Basil L. Contovounesios]

branch: master
commit 7dafbe3ab91e838803a84ab388bca03ff985e312
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    Minor region-noncontiguous-p simplification
    
    * lisp/simple.el (region-noncontiguous-p): Don't needlessly traverse
    region-bounds.
---
 lisp/simple.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 5660f65..acea1f9 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))))