branch: externals/org-transclusion
commit 1394e0f4f22e828c988f745d6e497c786fca37ec
Author: Noboru Ota <m...@nobiot.com>
Commit: Noboru Ota <m...@nobiot.com>
fix(make-from-link) allow (org-transclusion-make-from-link t)
You would not (org-transclusion-make-from-link '(4)) to emulate
'universal-argument' in Elisp calling a command.
Now (org-transclusion-make-from-link t) should work as expected.
---
org-transclusion.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/org-transclusion.el b/org-transclusion.el
index e0ff4a8e75..624e9beea5 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -363,7 +363,7 @@ transclusion keyword."
(let* ((context (org-element-lineage
(org-element-context)'(link) t))
(type (org-element-property :type context))
- (auto-transclude-p (if (not (equal arg '(4))) org-transclusion-mode
+ (auto-transclude-p (if (or (not arg) (numberp arg))
org-transclusion-mode
;; if `universal-argument' is passed,
;; reverse nil/t when
(if org-transclusion-mode nil t))))
