mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-13 01:10:04 +00:00
LaTeX export: Don't protect too many characters when converting quotes
This commit is contained in:
parent
4904b833cd
commit
e47ba8487c
|
@ -1172,8 +1172,9 @@ links, keywords, lists, tables, fixed-width"
|
||||||
("\\(\\s-\\|(\\)'" "`")))))
|
("\\(\\s-\\|(\\)'" "`")))))
|
||||||
(mapc (lambda(l) (goto-char (point-min))
|
(mapc (lambda(l) (goto-char (point-min))
|
||||||
(while (re-search-forward (car l) nil t)
|
(while (re-search-forward (car l) nil t)
|
||||||
(let ((rpl (concat (match-string 1) (cadr l))))
|
(let ((rpl (concat (match-string 1)
|
||||||
(org-export-latex-protect-string rpl)
|
(org-export-latex-protect-string
|
||||||
|
(copy-sequence (cadr l))))))
|
||||||
(org-if-unprotected-1
|
(org-if-unprotected-1
|
||||||
(replace-match rpl t t))))) quote-rpl)))
|
(replace-match rpl t t))))) quote-rpl)))
|
||||||
|
|
||||||
|
@ -1468,7 +1469,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
|
||||||
(unless emph
|
(unless emph
|
||||||
(message "`org-export-latex-emphasis-alist' has no entry for formatting triggered by \"%s\""
|
(message "`org-export-latex-emphasis-alist' has no entry for formatting triggered by \"%s\""
|
||||||
(match-string 3)))
|
(match-string 3)))
|
||||||
(unless (or (get-text-property (1- (point)) 'org-protected)
|
(unless (or (get-text-property (- (point) 2) 'org-protected)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (match-beginning 1))
|
(goto-char (match-beginning 1))
|
||||||
(save-match-data
|
(save-match-data
|
||||||
|
|
Loading…
Reference in a new issue