diff options
| -rw-r--r-- | generic/span-overlay.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/span-overlay.el b/generic/span-overlay.el index e626aefa..977399b2 100644 --- a/generic/span-overlay.el +++ b/generic/span-overlay.el @@ -162,7 +162,11 @@ elements = S0 S1 S2 .... [tl-seq.el]" (if (not (memq (car os) overlays)) (setq overlays (cons (car os) overlays))) (setq os (cdr os))) - overlays)) + ;; NB: 6.4 (PG 3.4) da: added this next reverse + ;; since somewhere order is being confused; + ;; PBP is selecting _largest_ region rather than + ;; smallest!? + (if overlays (nreverse overlays)))) ;; assumes that there are no repetitions in l or m (defun append-unique (l m) |