summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAaron Ecay <aaronecay@gmail.com>2013-05-02 04:36:44 (GMT)
committer Aaron Ecay <aaronecay@gmail.com>2013-05-03 08:16:07 (GMT)
commitc36435b44072e12173b3035543096298f5aea284 (patch)
treeefc0e2146910fcfada54e6a377738c6d9b578744
parent1e32d7bf252f997661ead0d95c0b9423a7cbb559 (diff)
parent76349b98a2aa2c4ad6451cbc38067492c2cfddfa (diff)
downloadorg-mode-c36435b44072e12173b3035543096298f5aea284.zip
org-mode-c36435b44072e12173b3035543096298f5aea284.tar.gz
Merge branch 'maint'
-rw-r--r--lisp/ox-latex.el4
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