[elpa] externals/auto-overlays 622afa4 13/93: Another very similar bug fix to do with updating exclusive overlays.

[Stefan Monnier]

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

    Another very similar bug fix to do with updating exclusive overlays.
---
 auto-overlays.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/auto-overlays.el b/auto-overlays.el
index c3475ab..f0483f9 100644
--- a/auto-overlays.el
+++ b/auto-overlays.el
@@ -962,8 +962,14 @@ The FILE should be generated by 
`auto-overlay-save-overlays'."
             (list '(identity auto-overlay-match)
                   (list 'eq 'set-id set-id)
                   '(null parent)
-                  (list (lambda (pri new) (or (null new) (>= pri new)))
-                        'priority new-priority))))
+                  (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 new-pri) (>= pri new-pri))))
+                        '(set-id entry-id subentry-id)
+                        (list new-priority)))))
       ;; call appropriate parse function for each match overlay in list
       (dolist (o-match overlay-list)
        (when (not (auto-o-within-exclusive-p o-match))