branch: externals/mmm-mode commit 552d7401c96f756bd55c205c60df2532bf65c919 Author: Dmitry Gutov <dgu...@yandex.ru> Commit: Dmitry Gutov <dgu...@yandex.ru>
mmm-sort-overlays: Sort by nesting when no priorities And we stopped setting priority in mmm-make-region some time ago --- mmm-region.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/mmm-region.el b/mmm-region.el index 8b8d8bd..a8238eb 100644 --- a/mmm-region.el +++ b/mmm-region.el @@ -146,10 +146,16 @@ attention is paid to stickiness." (min stop (point-max)))))) (defun mmm-sort-overlays (overlays) - "Sort OVERLAYS in order of decreasing priority." + "Sort OVERLAYS in order of decreasing priority or nesting." (sort (copy-sequence overlays) - (lambda (x y) (> (or (overlay-get x 'priority) 0) - (or (overlay-get y 'priority) 0))))) + (lambda (x y) + (let ((prio-x (overlay-get x 'priority)) + (prio-y (overlay-get y 'priority))) + (if (or prio-x prio-y) + (> (or prio-x 0) + (or prio-y 0)) + (> (overlay-start x) + (overlay-start y))))))) ;;}}} ;;{{{ Current Submode