From 61c9996cf06e174031c4ef7060ad8993f23a1f02 Mon Sep 17 00:00:00 2001 From: Luis Anaya Date: Fri, 3 Aug 2012 07:42:38 -0400 Subject: [PATCH] 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. --- contrib/lisp/org-e-groff.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/org-e-groff.el b/contrib/lisp/org-e-groff.el index 3c3ad7a6a..f477837c6 100644 --- a/contrib/lisp/org-e-groff.el +++ b/contrib/lisp/org-e-groff.el @@ -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")) ) )