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

Fix caption processing in LaTeX export

This commit is contained in:
Carsten Dominik 2010-04-07 16:10:28 +02:00
parent 007c7bc64b
commit f3a25f4d34
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -5,6 +5,8 @@
(org-export-latex-special-chars): Post-process entity replacement. (org-export-latex-special-chars): Post-process entity replacement.
(org-export-latex-fontify-headline): Do not yet protect defined (org-export-latex-fontify-headline): Do not yet protect defined
entities - these will be taken care of later. entities - these will be taken care of later.
(org-export-latex-tables, org-export-latex-links): Format the
caption properly.
* org-entities.el (org-entities-user): Fix typo. * org-entities.el (org-entities-user): Fix typo.

4
lisp/org-latex.el
View File

@ -1589,7 +1589,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
(string-match "\\<align=\\([^ \t\n\r,]+\\)" attr) (string-match "\\<align=\\([^ \t\n\r,]+\\)" attr)
(match-string 1 attr)) (match-string 1 attr))
floatp (or caption label)) floatp (or caption label))
(setq caption (and caption (org-export-latex-content caption))) (setq caption (and caption (org-export-latex-fontify-headline caption)))
(setq lines (org-split-string raw-table "\n")) (setq lines (org-split-string raw-table "\n"))
(apply 'delete-region (list beg end)) (apply 'delete-region (list beg end))
(when org-export-table-remove-special-lines (when org-export-table-remove-special-lines
@ -1846,7 +1846,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
raw-path)))))))) raw-path))))))))
;; process with link inserting ;; process with link inserting
(apply 'delete-region remove) (apply 'delete-region remove)
(setq caption (and caption (org-export-latex-content caption))) (setq caption (and caption (org-export-latex-fontify-headline caption)))
(cond ((and imgp (cond ((and imgp
(plist-get org-export-latex-options-plist :inline-images)) (plist-get org-export-latex-options-plist :inline-images))
;; OK, we need to inline an image ;; OK, we need to inline an image