diff --git a/contrib/lisp/org-e-ascii.el b/contrib/lisp/org-e-ascii.el index f4f6fa249..36198dd40 100644 --- a/contrib/lisp/org-e-ascii.el +++ b/contrib/lisp/org-e-ascii.el @@ -1448,8 +1448,8 @@ INFO is a plist holding contextual information." (let ((ref (org-element-property :path link))) (format (org-export-get-coderef-format ref desc) (org-export-resolve-coderef ref info)))) - ;; Do not apply a special syntax on radio links. Though, parse - ;; and transcode path to have a proper display of contents. + ;; Do not apply a special syntax on radio links. Though, use + ;; transcoded target's contents as output. ((string= type "radio") (let ((destination (org-export-resolve-radio-link link info))) (when destination diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el index a724df125..09ca4258d 100644 --- a/contrib/lisp/org-e-html.el +++ b/contrib/lisp/org-e-html.el @@ -2461,8 +2461,6 @@ INFO is a plist holding contextual information. See (setq raw-path (match-string 1 raw-path))) (if (file-name-absolute-p raw-path) (concat "file://" (expand-file-name raw-path)) - ;; TODO: Not implemented yet. Concat also: - ;; (org-export-directory :HTML info) (concat "file://" raw-path))) (t raw-path))) protocol) @@ -2472,9 +2470,8 @@ INFO is a plist holding contextual information. See (and org-e-html-inline-images (not desc))) (org-export-inline-image-p link org-e-html-inline-image-rules)) (org-e-html-link--inline-image link desc info)) - ;; Radioed target: Target's name is obtained from original raw - ;; link. Path is parsed and transcoded in order to have a proper - ;; display of the contents. + ;; Radio target: Transcode target's contents and use them as + ;; link's description. ((string= type "radio") (let ((destination (org-export-resolve-radio-link link info))) (when destination diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el index 7ebcfb71e..cea22cd86 100644 --- a/contrib/lisp/org-e-latex.el +++ b/contrib/lisp/org-e-latex.el @@ -1577,17 +1577,14 @@ INFO is a plist holding contextual information. See (setq raw-path (match-string 1 raw-path))) (if (file-name-absolute-p raw-path) (concat "file://" (expand-file-name raw-path)) - ;; TODO: Not implemented yet. Concat also: - ;; (org-export-directory :LaTeX info) (concat "file://" raw-path))) (t raw-path))) protocol) (cond ;; Image file. (imagep (org-e-latex-link--inline-image link info)) - ;; Radioed target: Target's name is obtained from original raw - ;; link. Path is parsed and transcoded in order to have a proper - ;; display of the contents. + ;; Radio link: Transcode target's contents and use them as link's + ;; description. ((string= type "radio") (let ((destination (org-export-resolve-radio-link link info))) (when destination diff --git a/contrib/lisp/org-e-odt.el b/contrib/lisp/org-e-odt.el index 12f81d6df..281c65d9f 100644 --- a/contrib/lisp/org-e-odt.el +++ b/contrib/lisp/org-e-odt.el @@ -3602,8 +3602,6 @@ INFO is a plist holding contextual information. See (setq raw-path (match-string 1 raw-path))) (if (file-name-absolute-p raw-path) (concat "file://" (expand-file-name raw-path)) - ;; TODO: Not implemented yet. Concat also: - ;; (org-export-directory :HTML info) (concat "file://" raw-path))) (t raw-path))) protocol) @@ -3612,9 +3610,8 @@ INFO is a plist holding contextual information. See ((and (not desc) (org-export-inline-image-p link org-e-odt-inline-image-rules)) (org-e-odt-link--inline-image link info)) - ;; Radioed target: Target's name is obtained from original raw - ;; link. Path is parsed and transcoded in order to have a proper - ;; display of the contents. + ;; Radio target: Transcode target's contents and use them as + ;; link's description. ((string= type "radio") (let ((destination (org-export-resolve-radio-link link info))) (when destination