tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Perform changes in org-e-groff-headline and org-e-groff-table-cell calls to

Browse source 
meet changed org-export.el API calls.

	* contrib/lisp/org-e-groff.el (org-e-groff-headline): Fixed call to org-export-last-sibling-p

	* contrib/lisp/org-e-groff.el (org-e-groff-headline): Fixed call to org-export-first-sibling-p

	* contrib/lisp/org-e-groff.el (org-e-groff-table-cell): Fixed call to org-export-get-next-element.
This commit is contained in:
Luis Anaya 2012-08-03 07:42:38 -04:00
parent 4732f153f9
commit 61c9996cf0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
contrib/lisp/org-e-groff.el
View file

@ -1015,14 +1015,14 @@ holding contextual information."
(let ((low-level-body
(concat
;; If the headline is the first sibling, start a list.
(when (org-export-first-sibling-p headline)
(when (org-export-first-sibling-p headline info)
(format "%s\n" (if numberedp ".AL 1\n" ".DL \n")))
;; Itemize headline
".LI\n" full-text "\n" headline-label pre-blanks contents)))
;; If headline is not the last sibling simply return
;; LOW-LEVEL-BODY. Otherwise, also close the list, before any
;; blank line.
(if (not (org-export-last-sibling-p headline)) low-level-body
(if (not (org-export-last-sibling-p headline info)) low-level-body
(replace-regexp-in-string
"[ \t\n]*\\'"
(concat "\n.LE" )
@ -1929,7 +1929,7 @@ a communication channel."
(match-string 1 contents)
(match-string 2 contents))
contents )
(when (org-export-get-next-element table-cell) "\t"))
(when (org-export-get-next-element table-cell info) "\t"))
)
)