diff options
Diffstat (limited to 'lisp/obsolete/lucid.el')
| -rw-r--r-- | lisp/obsolete/lucid.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/obsolete/lucid.el b/lisp/obsolete/lucid.el index d3cb3f135d8..15f80652809 100644 --- a/lisp/obsolete/lucid.el +++ b/lisp/obsolete/lucid.el @@ -125,7 +125,7 @@ This is an XEmacs compatibility function." (defun extent-at (pos &optional object property before) (with-current-buffer (or object (current-buffer)) - (let ((overlays (overlays-at pos))) + (let ((overlays (overlays-at pos 'sorted))) (when property (let (filtered) (while overlays @@ -133,14 +133,6 @@ This is an XEmacs compatibility function." (setq filtered (cons (car overlays) filtered))) (setq overlays (cdr overlays))) (setq overlays filtered))) - (setq overlays - (sort overlays - (function (lambda (o1 o2) - (let ((p1 (or (overlay-get o1 'priority) 0)) - (p2 (or (overlay-get o2 'priority) 0))) - (or (> p1 p2) - (and (= p1 p2) - (> (overlay-start o1) (overlay-start o2))))))))) (if before (nth 1 (memq before overlays)) (car overlays))))) |