mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

HTML export: Fix export bug with ID links

Browse Source
This commit is contained in:
Carsten Dominik 2009-06-27 13:59:59 +02:00
parent 9cd0dd793d
commit 7bc578c6ad
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/org-html.el
View File

@ -1012,16 +1012,17 @@ lang=\"%s\" xml:lang=\"%s\">
(setq id-file (org-id-find-id-file path)))
;; This is an id: link to another file (if it was the same file,
;; it would have become an internal link...)
(setq id-file (file-relative-name
id-file (file-name-directory org-current-export-file)))
(setq id-file (concat (file-name-sans-extension id-file)
"." html-extension))
(setq rpl (concat "<a href=\"" id-file "#"
(if (org-uuidgen-p path) "ID-")
path "\""
attr ">"
(org-export-html-format-desc desc)
"</a>")))
(save-match-data
(setq id-file (file-relative-name
id-file (file-name-directory org-current-export-file)))
(setq id-file (concat (file-name-sans-extension id-file)
"." html-extension))
(setq rpl (concat "<a href=\"" id-file "#"
(if (org-uuidgen-p path) "ID-")
path "\""
attr ">"
(org-export-html-format-desc desc)
"</a>"))))
((member type '("http" "https"))
;; standard URL, just check if we need to inline an image
(if (and (or (eq t org-export-html-inline-images)