branch: master
commit 1606351377d44de88bcfcb162ba4901a4a56d609
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
new-var on-screen-overlay-priority
Use it instead of hardcoding a value
---
on-screen.el | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/on-screen.el b/on-screen.el
index 9592f8e..b7f5934 100644
--- a/on-screen.el
+++ b/on-screen.el
@@ -211,6 +211,9 @@ a non-nil value may make scrolling stuttering on slow
computers."
;;; Other variables
+(defvar on-screen-overlay-priority 9999
+ "Priority for all on-screen overlays.")
+
(defvar on-screen-initialized-p nil
"Whether we have already added stuff to the hooks.")
@@ -491,7 +494,7 @@ This should normally go to `window-scroll-functions'."
overlays (delq nil overlays))
(dolist (ov overlays)
(overlay-put ov 'window win) ; display only in selected window
- (overlay-put ov 'priority 9999))
+ (overlay-put ov 'priority on-screen-overlay-priority))
(when (memq on-screen-highlight-method '(shadow line))
(dolist (ov overlays)
(overlay-put ov 'face (on-screen-get-shadow-face win))))
