diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2013-05-02 00:36:44 -0400 |
---|---|---|
committer | Aaron Ecay <aaronecay@gmail.com> | 2013-05-03 04:16:07 -0400 |
commit | c36435b44072e12173b3035543096298f5aea284 (patch) | |
tree | efc0e2146910fcfada54e6a377738c6d9b578744 | |
parent | 1e32d7bf252f997661ead0d95c0b9423a7cbb559 (diff) | |
parent | 76349b98a2aa2c4ad6451cbc38067492c2cfddfa (diff) | |
download | org-mode-c36435b44072e12173b3035543096298f5aea284.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/ox-latex.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 2a315ef..66eefa1 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1435,7 +1435,8 @@ holding contextual information." (format "\n\\\\end{%s}" (if numberedp 'enumerate 'itemize)) low-level-body))) ;; 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 (funcall org-latex-format-headline-function todo todo-type priority @@ -1443,6 +1444,7 @@ holding contextual information." (org-export-get-alt-title headline info) info) (and (eq (plist-get info :with-tags) t) tags)))) (if (and numberedp opt-title + (not (equal opt-title full-text)) (string-match "\\`\\\\\\(.*?[^*]\\){" section-fmt)) (format (replace-match "\\1[%s]" nil nil section-fmt 1) ;; Replace square brackets with parenthesis |