[elpa] master 1606351 12/50: new-var on-screen-overlay-priority

[Michael Heerdegen]

branch: master
commit 1606351377d44de88bcfcb162ba4901a4a56d609
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>

    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))))