mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00
Code Releases Activity

ox-texinfo: Remove left-over LaTeXism

Browse source 
* lisp/ox-texinfo.el (org-texinfo-headline): Remove LaTeXism (optional
  arguments within square brackets).
This commit is contained in:
Nicolas Goaziou 2014-08-11 13:55:11 +02:00
parent dcf5510053
commit 9f81c11d71
1 changed files with 6 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/ox-texinfo.el
View file

@ -813,7 +813,7 @@ holding contextual information."
(when priority (format "@emph{#%c} " priority))
text)))
(pre-blanks
(make-string (org-element-property :pre-blank headline) 10)))
(make-string (org-element-property :pre-blank headline) ?\n)))
(cond
;; Case 1: This is a footnote section: ignore it.
((org-element-property :footnote-section-p headline) nil)
@ -855,32 +855,11 @@ holding contextual information."
(t
(concat
node
(cond
((not (and tags (eq (plist-get info :with-tags) 'not-in-toc)))
;; Regular section. Use specified format string.
(format (replace-regexp-in-string "%]" "%%]" section-fmt) full-text
(concat pre-blanks contents)))
((string-match "\\`@\\(.*?\\){" section-fmt)
;; If tags should be removed from table of contents, insert
;; title without tags as an alternative heading in sectioning
;; command.
(format (replace-match (concat (match-string 1 section-fmt) "[%s]")
nil nil section-fmt 1)
;; Replace square brackets with parenthesis since
;; square brackets are not supported in optional
;; arguments.
(replace-regexp-in-string
"\\[" "("
(replace-regexp-in-string
"\\]" ")"
full-text-no-tag))
full-text
(concat pre-blanks contents)))
(t
;; Impossible to add an alternative heading. Fallback to
;; regular sectioning format string.
(format (replace-regexp-in-string "%]" "%%]" section-fmt) full-text
(concat pre-blanks contents)))))))))
(format section-fmt
(if (eq (plist-get info :with-tags) 'not-in-toc) full-text-no-tag
full-text))
pre-blanks
contents)))))
;;;; Inline Src Block