[elpa] master 65952e3 53/63: Allow customizing overlay priority

[Noam Postavsky]

branch: master
commit 65952e30547754eb5ed11750f0cd736095fd6700
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Allow customizing overlay priority
    
    * yasnippet.el (yas-overlay-priority): New custom option.
    (yas--make-control-overlay, yas--make-move-active-field-overlay): Use
    it.
---
 yasnippet.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/yasnippet.el b/yasnippet.el
index 798e49e..69f7381 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -526,6 +526,12 @@ conditions.
     (const :tag "Disable all snippet expansion" nil)
     sexp))
 
+(defcustom yas-overlay-priority 100
+  "Priority to use for yasnippets overlays.
+This is useful to control whether snippet navigation bindings
+override bindings from other packages (e.g., `company-mode')."
+  :type 'integer)
+
 
 ;;; Internal variables
 
@@ -3500,7 +3506,7 @@ holds the keymap."
                                nil
                                t)))
     (overlay-put overlay 'keymap yas-keymap)
-    (overlay-put overlay 'priority 100)
+    (overlay-put overlay 'priority yas-overlay-priority)
     (overlay-put overlay 'yas--snippet snippet)
     overlay))
 
@@ -3556,7 +3562,7 @@ Move the overlay, or create it if it does not exit."
           (make-overlay (yas--field-start field)
                         (yas--field-end field)
                         nil nil t))
-    (overlay-put yas--active-field-overlay 'priority 100)
+    (overlay-put yas--active-field-overlay 'priority yas-overlay-priority)
     (overlay-put yas--active-field-overlay 'face 'yas-field-highlight-face)
     (overlay-put yas--active-field-overlay 'yas--snippet snippet)
     (overlay-put yas--active-field-overlay 'modification-hooks 
'(yas--on-field-overlay-modification))