diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2019-05-01 00:39:54 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2019-05-01 00:39:54 +0100 |
| commit | 7dafbe3ab91e838803a84ab388bca03ff985e312 (patch) | |
| tree | 8637296c281795b40b0b637cce202d0278473147 | |
| parent | 910d170771ac74ab76d6dcb2dda3f3167e01b705 (diff) | |
| download | emacs-7dafbe3ab91e838803a84ab388bca03ff985e312.tar.gz | |
Minor region-noncontiguous-p simplification
* lisp/simple.el (region-noncontiguous-p): Don't needlessly traverse
region-bounds.
| -rw-r--r-- | lisp/simple.el | 2 |
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)))) |