new-var on-screen-overlay-priority

Use it instead of hardcoding a value

diff --git a/on-screen.el b/on-screen.el
index 9592f8e2d9f91e37bdcea66c923c51bcc103c6b4..b7f5934053545359ab5bd628b3d79fbb9ffdea3e 100644 (file)
--- 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))))