[elpa] externals/auto-overlays bcc73ad 12/93: Bug fix to do with updating exclusive overlays.

[Stefan Monnier]

branch: externals/auto-overlays
commit bcc73ad0c9f6dd989a4cf2aada5d3ad127359f70
Author: Toby Cubitt <toby-predictive@dr-qubit.org>
Commit: tsc25 <toby-predictive@dr-qubit.org>

    Bug fix to do with updating exclusive overlays.
---
 auto-overlays.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/auto-overlays.el b/auto-overlays.el
index 058ce1d..c3475ab 100644
--- a/auto-overlays.el
+++ b/auto-overlays.el
@@ -925,10 +925,14 @@ The FILE should be generated by 
`auto-overlay-save-overlays'."
                   (list (lambda (parent)
                           (null (overlay-get parent 'inactive)))
                         'parent)
-                  (list (lambda (pri new) (or (null pri) (< pri new)))
-                        'priority new-priority))
-            'within))  ; FIXME: this is necessary in some cases, but might
-                       ;        muck up other cases - check
+                  (list (lambda (set-id entry-id subentry-id new-pri)
+                          (let ((pri (cdr (assq
+                                           'priority
+                                           (auto-o-entry-props
+                                            set-id entry-id subentry-id)))))
+                            (or (null pri) (< pri new-pri))))
+                        '(set-id entry-id subentry-id)
+                        (list new-priority)))))
       ;; call appropriate suicide function for each match overlay in list
       (dolist (o overlay-list) (funcall (auto-o-suicide-function o) o)))