ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LaTeX export: Remove bug in table export. 

A `save-excursion' around a call to org-table-align make point end up
*before* the table.  The reason is that a table align replaces the
entire table, including the newline before it.  When the table is
removed in order to be replaced, the marker created by
`save-excursion' slips.  `org-table-align' has it's own, built-in
`save-excursion' by remembering the line and column where the cursor
was before the align.
This commit is contained in:
Carsten Dominik 2009-08-11 07:51:12 +02:00
parent bd8e4e248a
commit 59370b6a83
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-08-11 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-tables): Remove save-excursion
around `org-table-align'.
2009-08-10 Carsten Dominik <carsten.dominik@gmail.com> 2009-08-10 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-export-html-special-string-regexps): Definition * org.el (org-export-html-special-string-regexps): Definition

3
lisp/org-latex.el
View File

@ -1309,8 +1309,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
"Convert tables to LaTeX and INSERT it." "Convert tables to LaTeX and INSERT it."
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "^\\([ \t]*\\)|" nil t) (while (re-search-forward "^\\([ \t]*\\)|" nil t)
;; FIXME really need to save-excursion? (org-table-align)
(save-excursion (org-table-align))
(let* ((beg (org-table-begin)) (let* ((beg (org-table-begin))
(end (org-table-end)) (end (org-table-end))
(raw-table (buffer-substring beg end)) (raw-table (buffer-substring beg end))