From 7dafbe3ab91e838803a84ab388bca03ff985e312 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Wed, 1 May 2019 00:39:54 +0100 Subject: 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 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)))) -- cgit v1.2.1