ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

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