"
(if org-par-open "
\n" "")
- (if label (format "id=\"%s\" " label) "")))
+ (if label (format "id=\"%s\" " (org-solidify-link-text label)) "")))
(format "
"
src
(if (string-match "\\
%s" (or caption "")) html)
- (when label (push (format "" label label)
+ (when label (push (format "" (org-solidify-link-text label) (org-solidify-link-text label))
html))
(push html-table-tag html))
(setq html (mapcar
@@ -2327,7 +2327,8 @@ When TITLE is nil, just close all open levels."
(setq extra-targets (remove (or preferred target) extra-targets))
(setq extra-targets
(mapconcat (lambda (x)
- (if (org-uuidgen-p x) (setq x (concat "ID-" x)))
+ (setq x (org-solidify-link-text
+ (if (org-uuidgen-p x) (concat "ID-" x) x)))
(format ""
x x))
extra-targets
@@ -2363,13 +2364,13 @@ When TITLE is nil, just close all open levels."
(progn
(org-close-li)
(if target
- (insert (format "" (or preferred target))
+ (insert (format "" (org-solidify-link-text (or preferred target)))
extra-targets title "
\n")
(insert "" title "
\n")))
(aset org-levels-open (1- level) t)
(org-close-par-maybe)
(if target
- (insert (format "\n- " (or preferred target))
+ (insert (format "
\n- " (org-solidify-link-text (or preferred target)))
extra-targets title "
\n")
(insert "\n- " title "
\n"))))
(aset org-levels-open (1- level) t)
@@ -2383,8 +2384,8 @@ When TITLE is nil, just close all open levels."
" " title)))
(unless (= head-count 1) (insert "\n
\n"))
(setq href (cdr (assoc (concat "sec-" snu) org-export-preferred-target-alist)))
- (setq suffix (or href snu))
- (setq href (or href (concat "sec-" snu)))
+ (setq suffix (org-solidify-link-text (or href snu)))
+ (setq href (org-solidify-link-text (or href (concat "sec-" snu))))
(insert (format "\n