branch: externals/org-modern commit 9bbe591c585104dbcd6131733b8ac5418d743622 Author: JD Smith <93749+jdtsm...@users.noreply.github.com> Commit: JD Smith <93749+jdtsm...@users.noreply.github.com>
Store set-line-properties function def on load --- org-modern-indent.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/org-modern-indent.el b/org-modern-indent.el index 7ced8215b2..722f918e9e 100644 --- a/org-modern-indent.el +++ b/org-modern-indent.el @@ -97,16 +97,17 @@ with a box guide unicode character." (org-modern-indent--add-props change-beg change-end line extra-pad))) (forward-line)) -(defvar org-modern-indent-set-line-properties--orig nil) +(defvar org-modern-indent-set-line-properties--orig + (symbol-function 'org-indent-set-line-properties) + "Original `org-indent-set-line-properties' function.") + (define-minor-mode org-modern-indent-mode "Org-modern with org-indent" :global nil :group 'org-modern (if org-modern-indent-mode (progn - (setq org-modern-indent-set-line-properties--orig - (symbol-function 'org-indent-set-line-properties) - org-modern-indent-begin + (setq org-modern-indent-begin (propertize "╭" 'face 'org-meta-line) org-modern-indent-guide (propertize "│" 'face 'org-meta-line)