From 42a2f2299c6fff6be1562907884731bfa99302d7 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 30 Nov 2009 15:29:07 +0100 Subject: [PATCH] HTML Export: Fix link creation for hashed LaTeX snippet images Patch by Eric Schulte, bug reported by Hsiu-Khuern --- lisp/ChangeLog | 5 +++++ lisp/org.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 499a58f9d..bb5b47307 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-30 Carsten Dominik + + * org.el (org-format-latex): Fix link creation for processed latex + snippets. + 2009-11-29 Carsten Dominik * org-footnote.el (org-footnote-normalize): Protect replacement diff --git a/lisp/org.el b/lisp/org.el index 26c991101..5f3040737 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14616,8 +14616,7 @@ Some of the options can be changed using the variable 'org-latex-overlay)))) (setq txt (match-string n) beg (match-beginning n) end (match-end n) - cnt (1+ cnt) - link (concat block "[[file:" linkfile "]]" block)) + cnt (1+ cnt)) (let (print-length print-level) ; make sure full list is printed (setq hash (sha1 (prin1-to-string (list org-format-latex-header @@ -14626,6 +14625,7 @@ Some of the options can be changed using the variable forbuffer txt))) linkfile (format "%s_%s.png" prefix hash) movefile (format "%s_%s.png" absprefix hash))) + (setq link (concat block "[[file:" linkfile "]]" block)) (if msg (message msg cnt)) (goto-char beg) (unless checkdir ; make sure the directory exists -- 2.11.4.GIT