From 148ab8c8d01b1386708417418dbafad8f6739a2f Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 27 Jun 2009 14:00:47 +0200 Subject: [PATCH] Docbook export: Fix export bug related to ID links --- lisp/org-docbook.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el index 3064165d4..795531875 100644 --- a/lisp/org-docbook.el +++ b/lisp/org-docbook.el @@ -793,12 +793,13 @@ publishing directory." (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) - org-export-docbook-extension)) - (setq rpl (format "%s" - id-file path (org-export-docbook-format-desc desc)))) + (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) + org-export-docbook-extension)) + (setq rpl (format "%s" + id-file path (org-export-docbook-format-desc desc))))) ((member type '("http" "https")) ;; Standard URL, just check if we need to inline an image (if (and (or (eq t org-export-docbook-inline-images)