ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Docbook export: Fix export bug related to ID links

This commit is contained in:
Carsten Dominik 2009-06-27 14:00:47 +02:00
parent 7bc578c6ad
commit 148ab8c8d0
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-docbook.el
View File

@ -793,12 +793,13 @@ publishing directory."
(setq id-file (org-id-find-id-file path))) (setq id-file (org-id-find-id-file path)))
;; This is an id: link to another file (if it was the same file, ;; This is an id: link to another file (if it was the same file,
;; it would have become an internal link...) ;; it would have become an internal link...)
(save-match-data
(setq id-file (file-relative-name (setq id-file (file-relative-name
id-file (file-name-directory org-current-export-file))) id-file (file-name-directory org-current-export-file)))
(setq id-file (concat (file-name-sans-extension id-file) (setq id-file (concat (file-name-sans-extension id-file)
org-export-docbook-extension)) org-export-docbook-extension))
(setq rpl (format "<link xlink:href=\"%s#%s\">%s</link>" (setq rpl (format "<link xlink:href=\"%s#%s\">%s</link>"
id-file path (org-export-docbook-format-desc desc)))) id-file path (org-export-docbook-format-desc desc)))))
((member type '("http" "https")) ((member type '("http" "https"))
;; Standard URL, just check if we need to inline an image ;; Standard URL, just check if we need to inline an image
(if (and (or (eq t org-export-docbook-inline-images) (if (and (or (eq t org-export-docbook-inline-images)