Parcourir la source

ox-latex.el (org-latex-headline): Don’t insert alternate title if identical to regular one

* lisp/ox-latex.el (org-latex-headline): Don’t insert alternate title if
  identical to regular one.
Aaron Ecay il y a 12 ans
Parent
commit
76349b98a2
1 fichiers modifiés avec 3 ajouts et 1 suppressions
  1. 3 1
      lisp/ox-latex.el

+ 3 - 1
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