branch: externals/org
commit 264b4973aadffb7fd775b30909e6ea6718a262e0
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-lint-named-result: Fix false positives
* lisp/org-lint.el (org-lint-named-result): Check whether :exports is
already "results" or "both" when the value can be resolved statically
and do not report the warning then.
Reported-by: William Denton <will...@williamdenton.org>
Link:
https://orgmode.org/list/E0-CBQd4zzDN5Stl-X6S0cmgDPw1UPD84vpkx8xWBHyoABwhvQcwKlsNkvs5bwM6vAksq5f210ZZuePxLeIVl-fa1yrpu9KE9ABaM8WVFV4=@williamdenton.org
---
lisp/org-lint.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index fddf885eb4..2c4d2a91e8 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -1410,7 +1410,10 @@ Use \"export %s\" instead"
(org-export-resolve-link (car result) `(:parse-tree
,ast))
(org-link-broken nil))
(org-export-get-previous-element el nil))))
- (when (org-element-type-p origin-block 'src-block)
+ (when (and (org-element-type-p origin-block 'src-block)
+ (pcase-let ((`(,_ ,_ ,args . ,_)
+ (org-babel-get-src-block-info 'light
origin-block)))
+ (not (member (alist-get :exports args) '("results"
"both")))))
(list (org-element-begin el)
(format "Links to \"%s\" will not be valid during export
unless the parent source block has :exports results or both" result-name)))))))
