mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-15 17:00:45 +00:00
Code

LaTeX export: Don't protect too many characters when converting quotes

Browse Source
This commit is contained in:
Carsten Dominik 2009-10-26 20:15:48 +01:00
parent 4904b833cd
commit e47ba8487c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-latex.el
View File

@ -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