From ad45f6cd7f490e86ccc3b34c47da5afcc98c54a7 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 31 Jan 2013 10:44:15 +0100 Subject: [PATCH] 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. --- contrib/lisp/org-e-html.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) 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) -- 2.11.4.GIT