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")) ) )