Browse Source

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.

Luis Anaya 12 years ago
parent
commit
61c9996cf0
1 changed files with 3 additions and 3 deletions
  1. 3 3
      contrib/lisp/org-e-groff.el

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