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

Merge branch 'maint'

This commit is contained in:
Aaron Ecay 2013-05-02 00:36:44 -04:00
parent 1e32d7bf25 76349b98a2
commit c36435b440
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ox-latex.el
View File

@ -1435,7 +1435,8 @@ holding contextual information."
(format "\n\\\\end{%s}" (if numberedp 'enumerate 'itemize)) (format "\n\\\\end{%s}" (if numberedp 'enumerate 'itemize))
low-level-body))) low-level-body)))
;; This is a standard headline. Export it as a section. Add ;; This is a standard headline. Export it as a section. Add
;; an alternative heading when possible. ;; an alternative heading when possible, and when this is not
;; identical to the usual heading.
(let ((opt-title (let ((opt-title
(funcall org-latex-format-headline-function (funcall org-latex-format-headline-function
todo todo-type priority todo todo-type priority
@ -1443,6 +1444,7 @@ holding contextual information."
(org-export-get-alt-title headline info) info) (org-export-get-alt-title headline info) info)
(and (eq (plist-get info :with-tags) t) tags)))) (and (eq (plist-get info :with-tags) t) tags))))
(if (and numberedp opt-title (if (and numberedp opt-title
(not (equal opt-title full-text))
(string-match "\\`\\\\\\(.*?[^*]\\){" section-fmt)) (string-match "\\`\\\\\\(.*?[^*]\\){" section-fmt))
(format (replace-match "\\1[%s]" nil nil section-fmt 1) (format (replace-match "\\1[%s]" nil nil section-fmt 1)
;; Replace square brackets with parenthesis ;; Replace square brackets with parenthesis