From ddf013644ae7bc2f0883e752ca99f1109a1cac8d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 2 Jul 2009 09:54:33 +0200 Subject: [PATCH] LaTeX export: Fix problem with internal links --- lisp/ChangeLog | 1 + lisp/org-latex.el | 7 ++++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d7449ff7..33b123678 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,7 @@ * org-latex.el (org-export-latex-quotation-marks): Fix export of quotation makrs in parenthesis. + (org-remove-initial-hash): New function. * org-table.el (org-table-get-remote-range): Find #+TBLNAME also when indented. diff --git a/lisp/org-latex.el b/lisp/org-latex.el index 4949151b9..394208347 100644 --- a/lisp/org-latex.el +++ b/lisp/org-latex.el @@ -1517,10 +1517,15 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." (org-solidify-link-text raw-path) desc))) ((not type) (insert (format "\\hyperref[%s]{%s}" - (org-solidify-link-text raw-path) desc))) + (org-remove-initial-hash + (org-solidify-link-text raw-path)) desc))) (path (insert (format "\\href{%s}{%s}" path desc))) (t (insert "\\texttt{" desc "}"))))))) +(defun org-remove-initial-hash (s) + (if (string-match "\\`#" s) + (substring s 1) + s)) (defvar org-latex-entities) ; defined below (defvar org-latex-entities-regexp) ; defined below (defvar org-latex-entities-exceptions) ; defined below -- 2.11.4.GIT