[nongnu] elpa/treesit-fold 2d175b74ad 375/417: chore: Expose overlay's priority

[ELPA Syncer]

branch: elpa/treesit-fold
commit 2d175b74ad701d96d34eed2b4ea743c734ba6e19
Author: JenChieh <jcs090218@gmail.com>
Commit: JenChieh <jcs090218@gmail.com>

    chore: Expose overlay's priority
---
 ts-fold-indicators.el | 2 +-
 ts-fold.el            | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ts-fold-indicators.el b/ts-fold-indicators.el
index becc9c26d9..314fe1806d 100644
--- a/ts-fold-indicators.el
+++ b/ts-fold-indicators.el
@@ -41,7 +41,7 @@
   :group 'ts-fold)
 
 (defcustom ts-fold-indicators-priority 30
-  "Indicators fringe priority."
+  "Indicators overlay's priority."
   :type 'integer
   :group 'ts-fold)
 
diff --git a/ts-fold.el b/ts-fold.el
index c905138e2e..d804669fa4 100644
--- a/ts-fold.el
+++ b/ts-fold.el
@@ -176,6 +176,11 @@ For example, Lua, Ruby, etc."
   :type 'string
   :group 'ts-fold)
 
+(defcustom ts-fold-priority 30
+  "Fold range overlay's priority."
+  :type 'integer
+  :group 'ts-fold)
+
 (defface ts-fold-replacement-face
   '((t :foreground "#808080" :box (:line-width -1 :style pressed-button)))
   "Face used to display the fold replacement text."
@@ -325,6 +330,7 @@ This function is borrowed from `tree-sitter-node-at-point'."
            (end (cdr range))
            (ov (make-overlay beg end)))
       (overlay-put ov 'creator 'ts-fold)
+      (overlay-put ov 'priority ts-fold-priority)
       (overlay-put ov 'invisible 'ts-fold)
       (overlay-put ov 'display (or (and ts-fold-summary-show
                                         (ts-fold-summary--get 
(buffer-substring beg end)))