From d2986be076127590c05bd467e79e5791c9815f1d Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 24 Jan 2024 16:47:20 +0100 Subject: [PATCH] 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 893e504d3..4d2a55d15 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)