branch: externals/org-transclusion
commit a011ebe40a0eb2341c94bf40ba3ec1aefa60ce07
Author: gggion <[email protected]>
Commit: gggion <[email protected]>
fix: restore original fringe bitmap selection
* org-transclusion.el (org-transclusion--make-fringe-indicator): Use
empty-line bitmap for source fringe face, org-transclusion-fringe-bitmap
for transclusion fringe face.
Removed it by accident at first and forgot to add it back.
---
org-transclusion.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/org-transclusion.el b/org-transclusion.el
index ab24238621..e8366da555 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -1347,10 +1347,14 @@ terminal fringe (face property)."
(defun org-transclusion--make-fringe-indicator (face)
"Create fringe indicator string for FACE.
-Handles both graphical and terminal display modes."
+Handles both graphical and terminal display modes.
+Uses empty-line bitmap for source fringe, org-transclusion-fringe-bitmap
+for transclusion fringe to match original overlay-based appearance."
(if (display-graphic-p)
- (propertize "x" 'display
- `(left-fringe org-transclusion-fringe-bitmap ,face))
+ (let ((bitmap (if (eq face 'org-transclusion-source-fringe)
+ 'empty-line
+ 'org-transclusion-fringe-bitmap)))
+ (propertize "x" 'display `(left-fringe ,bitmap ,face)))
(propertize "| " 'face face)))
(defun org-transclusion--update-line-prefix (line-beg line-end prop-name
new-value)
