mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-29 11:02:33 +00:00
Code

Quote special characters in tables for LaTeX export.

Browse Source 
Text inside tables did not receive the full treatment of handling sub-
and superscripts, and of special character quoting like %, &, and {}.
This patch does fix this, but I am worried that I am overlooking the
true reason why Bastien did switch off these conversions.  We'll see
if and what this will break.
This commit is contained in:
Carsten Dominik 2008-12-16 07:44:13 +01:00
parent 0ea9fb46c5
commit e4ed09207d
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-12-16 Carsten Dominik <carsten.dominik@gmail.com> 2008-12-16 Carsten Dominik <carsten.dominik@gmail.com>
* org-export-latex.el (org-export-latex-special-chars): Replace
special characters also in tables.
* org-agenda.el (org-agenda-change-all-lines): New argument * org-agenda.el (org-agenda-change-all-lines): New argument
FORCE-TAGS. FORCE-TAGS.
(org-agenda-set-tags): Cet the new tags and pas them to (org-agenda-set-tags): Cet the new tags and pas them to

5
lisp/org-export-latex.el
View File

@ -877,8 +877,9 @@ See the `org-export-latex.el' code for a complete conversion table."
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward c nil t) (while (re-search-forward c nil t)
;; Put the point where to check for org-protected ;; Put the point where to check for org-protected
(unless (or (get-text-property (match-beginning 2) 'org-protected) ; (unless (or (get-text-property (match-beginning 2) 'org-protected);
(org-at-table-p)) ; (org-at-table-p))
(unless (get-text-property (match-beginning 2) 'org-protected)
(cond ((member (match-string 2) '("\\$" "$")) (cond ((member (match-string 2) '("\\$" "$"))
(if (equal (match-string 2) "\\$") (if (equal (match-string 2) "\\$")
(replace-match (concat (match-string 1) "$" (replace-match (concat (match-string 1) "$"