Browse Source

Fix some more comments in export back-ends

Nicolas Goaziou 13 years ago
parent
commit
c84cda961f

+ 2 - 2
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

+ 2 - 5
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

+ 2 - 5
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

+ 2 - 5
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