[elpa] externals/org d2986be076: lisp/org-lint.el (org-lint-named-result): Improve accuracy and message

[ELPA Syncer]

branch: externals/org
commit d2986be076127590c05bd467e79e5791c9815f1d
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org-lint.el (org-lint-named-result): Improve accuracy and message
    
    Reported-by: gerard.vermeulen@posteo.net
    Link: https://orgmode.org/list/b3dc0bd4368f3db0c7afe136d9f9ca97@posteo.net
---
 lisp/org-lint.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 893e504d33..4d2a55d156 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -1362,10 +1362,17 @@ Use \"export %s\" instead"
 (defun org-lint-named-result (ast)
   (org-element-map ast org-element-all-elements
     (lambda (el)
-      (when (and (org-element-property :results el)
-                 (org-element-property :name el))
-        (list (org-element-begin el)
-              "#+name: in results of evaluation will be replaced by 
re-evaluating the src block.  Use #+name in the block instead.")))))
+      (when-let* ((result (org-element-property :results el))
+                  (result-name (org-element-property :name el))
+                  (origin-block
+                   (if (org-string-nw-p (car result))
+                       (condition-case _
+                           (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)
+          (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)))))))
 
 (defun org-lint-spurious-colons (ast)
   (org-element-map ast '(headline inlinetask)