branch: externals/auto-overlays
commit 622afa46edef05106af530da2f839053b7b8e90f
Author: Toby Cubitt <[email protected]>
Commit: tsc25 <[email protected]>
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))
