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