mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 04:50:55 -07:00
Code Issues Projects Releases Wiki Activity

Minor region-noncontiguous-p simplification

Browse source 
* lisp/simple.el (region-noncontiguous-p): Don't needlessly traverse
region-bounds.
This commit is contained in:
Basil L. Contovounesios 2019-05-01 00:39:54 +01:00
parent 910d170771
commit 7dafbe3ab9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

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