branch: elpa/treesit-fold
commit 2d175b74ad701d96d34eed2b4ea743c734ba6e19
Author: JenChieh <[email protected]>
Commit: JenChieh <[email protected]>
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)))
