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

Process index entries 

* lisp/org-latex.el (org-export-latex-preprocess): Pipe index entries
through org-export-latex-fontify-headline.
This commit is contained in:
Carsten Dominik 2011-05-05 10:23:32 +02:00
parent e98237927f
commit cb6425e6a0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-latex.el
View File

@ -2324,11 +2324,14 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
;; Convert #+INDEX to LaTeX \\index. ;; Convert #+INDEX to LaTeX \\index.
(goto-char (point-min)) (goto-char (point-min))
(let ((case-fold-search t)) (let ((case-fold-search t) entry)
(while (re-search-forward (while (re-search-forward
"^[ \t]*#\\+index:[ \t]*\\([^ \t\r\n].*?\\)[ \t]*$" "^[ \t]*#\\+index:[ \t]*\\([^ \t\r\n].*?\\)[ \t]*$"
nil t) nil t)
(replace-match (format "\\index{%s}" (match-string 1)) t t))) (setq entry
(save-match-data
(org-export-latex-fontify-headline (match-string 1))))
(replace-match (format "\\index{%s}" entry) t t)))
;; Convert center ;; Convert center
(goto-char (point-min)) (goto-char (point-min))