Forráskód Böngészése

Performed changes to meet the new org-export.el API.

	* contrib/lisp/org-e-man.el (org-e-man-headline): Fixed call to org-export-first-sibling-p and org-export-last-sibling-p
	(org-e-man-table-cell): Fixed call to org-export-get-next-element
Luis Anaya 12 éve
szülő
commit
d69de79e4a
1 módosított fájl, 8 hozzáadás és 10 törlés
  1. 8 10
      contrib/lisp/org-e-man.el

+ 8 - 10
contrib/lisp/org-e-man.el

@@ -137,7 +137,6 @@ structure of the values.")
   :type 'boolean)
 
 
-
 (defcustom org-e-man-table-scientific-notation "%sE%s"
   "Format string to display numbers in scientific notation.
 The format should have \"%s\" twice, for mantissa and exponent
@@ -489,9 +488,8 @@ information."
   (org-e-man--wrap-label
    example-block
    (format ".RS\n.nf\n%s\n.fi\n.RE"
-           (org-export-format-code-default example-block info))))
-
-
+           (org-export-format-code-default example-block info))
+))
 ;;;; Export Block
 
 (defun org-e-man-export-block (export-block contents info)
@@ -560,7 +558,7 @@ 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" ".RS"))
 			  ;; Itemize headline
 			  ".TP\n.ft I\n" text "\n.ft\n" 
@@ -568,7 +566,7 @@ holding contextual information."
 		;; 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]*\\'" ""
 		   low-level-body))))
@@ -770,14 +768,14 @@ INFO is a plist holding contextual information.  See
                 (t raw-path)))
          protocol)
     (cond
-     ;; Coderef: replace link with the reference name or the
-     ;; equivalent line number.
      ;; External link with a description part.
      ((and path desc) (format "%s \\fBat\\fP \\fI%s\\fP" path desc))
      ;; External link without a description part.
      (path (format "\\fI%s\\fP" path))
      ;; No path, only description.  Try to do something useful.
-     (t (format "\\fI%s\\fP" desc)))))
+     (t (format "\\fI%s\\fP" desc))
+     )
+    ))
 
 
 ;;;; Macro
@@ -1221,7 +1219,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 ")))
 
 
 ;;;; Table Row