From: Bastien Guerry <bzg@altern.org>
Date: Thu, 31 Jan 2013 09:44:15 +0000 (+0100)
Subject: org-e-html.el (org-e-html-link): Don't add attributes to the link when they are alrea... 
X-Git-Tag: release_8.0-pre~473
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/ad45f6cd7f490e86ccc3b34c47da5afcc98c54a7

org-e-html.el (org-e-html-link): Don't add attributes to the link when they are already part of the link description

* org-e-html.el (org-e-html-link): Don't add attributes to the
link when they are already part of the link description.
---

diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el
index ab46e2a0b..c08f25bf7 100644
--- a/contrib/lisp/org-e-html.el
+++ b/contrib/lisp/org-e-html.el
@@ -2141,15 +2141,17 @@ INFO is a plist holding contextual information.  See
 		 (if (not (file-name-absolute-p raw-path)) raw-path
 		   (concat "file://" (expand-file-name raw-path))))
 		(t raw-path)))
-	 ;; Extract attributes from parent's paragraph.
-	 (attributes
-	  (let ((attr (mapconcat
-		       'identity
-		       (org-element-property
-			:attr_html (org-export-get-parent-element link))
-		       " ")))
-	    (if attr (concat " " attr) "")))
-	 protocol)
+	 attributes protocol)
+    ;; Extract attributes from parent's paragraph.
+    (and (setq attributes
+	       (mapconcat
+		'identity
+		(let ((att (org-element-property
+			    :attr_html (org-export-get-parent-element link))))
+		  (unless (and desc (string-match (regexp-quote (car att)) desc)) att))
+		" "))
+	 (setq attributes (concat " " attributes)))
+
     (cond
      ;; Image file.
      ((and (or (eq t org-e-html-inline-images)