From e47ba8487c9a3fabf303bfa1479f74ed0ba5acad Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 26 Oct 2009 20:15:48 +0100 Subject: [PATCH] LaTeX export: Don't protect too many characters when converting quotes --- lisp/org-latex.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-latex.el b/lisp/org-latex.el index dbc7f4a30..c053043b9 100644 --- a/lisp/org-latex.el +++ b/lisp/org-latex.el @@ -1172,8 +1172,9 @@ links, keywords, lists, tables, fixed-width" ("\\(\\s-\\|(\\)'" "`"))))) (mapc (lambda(l) (goto-char (point-min)) (while (re-search-forward (car l) nil t) - (let ((rpl (concat (match-string 1) (cadr l)))) - (org-export-latex-protect-string rpl) + (let ((rpl (concat (match-string 1) + (org-export-latex-protect-string + (copy-sequence (cadr l)))))) (org-if-unprotected-1 (replace-match rpl t t))))) quote-rpl))) @@ -1468,7 +1469,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." (unless emph (message "`org-export-latex-emphasis-alist' has no entry for formatting triggered by \"%s\"" (match-string 3))) - (unless (or (get-text-property (1- (point)) 'org-protected) + (unless (or (get-text-property (- (point) 2) 'org-protected) (save-excursion (goto-char (match-beginning 1)) (save-match-data