tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-latex: Properly escape ~ for export 

* lisp/ox-latex.el:
(org-latex-plain-text): Properly escape ~ for LaTeX export

In LaTeX, \~ gives a tilde diacritic (as in ã).  \textasciitilde{} is
the correct escape for a tilde.
This commit is contained in:
Aaron Ecay 2013-03-31 22:21:09 -04:00 committed by Nicolas Goaziou
parent 6caddbca05
commit fa3b4830b8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ox-latex.el
View File

@ -2031,18 +2031,22 @@ TEXT is the string to transcode. INFO is a plist holding
contextual information."
(let ((specialp (plist-get info :with-special-strings))
(output text))
;; Protect %, #, &, $, ~, ^, _, { and }.
(while (string-match "\\([^\\]\\|^\\)\\([%$#&{}~^_]\\)" output)
;; Protect %, #, &, $, ^, _, { and }.
(while (string-match "\\([^\\]\\|^\\)\\([%$#&{}^_]\\)" output)
(setq output
(replace-match
(format "\\%s" (match-string 2 output)) nil t output 2)))
;; Protect \. If special strings are used, be careful not to
;; protect "\" in "\-" constructs.
(let ((symbols (if specialp "-%$#&{}~^_\\" "%$#&{}~^_\\")))
(let ((symbols (if specialp "-%$#&{}^_\\" "%$#&{}^_\\")))
(setq output
(replace-regexp-in-string
(format "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%s]\\|$\\)" symbols)
"$\\backslash$" output nil t 1)))
;; Protect ~.
(setq output
(replace-regexp-in-string
"\\([^\\]\\|^\\)\\(~\\)" "\\textasciitilde{}" output nil t 2))
;; Activate smart quotes. Be sure to provide original TEXT string
;; since OUTPUT may have been modified.
(when (plist-get info :with-smart-quotes)