diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2002-07-16 17:14:15 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2002-07-16 17:14:15 +0000 |
commit | 8fdc63623ee555b8f11238ff66f3ba23617165e8 (patch) | |
tree | 7dec2332dd607c646b7900aff8fab08b661140d8 /generic | |
parent | 0486bb2d44e7e6fd3385b7e7358d7c4512dbebeb (diff) |
Dodgy patch to fix selection ordering of overlays. PBP works in Emacs now.
Diffstat (limited to 'generic')
-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) |