contrib/lisp/org-element: Re-order a function within the file
authorNicolas Goaziou <n.goaziou@gmail.com>
Thu, 1 Dec 2011 14:42:06 +0000 (15:42 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Thu, 1 Dec 2011 14:42:06 +0000 (15:42 +0100)
contrib/lisp/org-element.el

index f748908..9b4d0b0 100644 (file)
@@ -254,6 +254,7 @@ CONTENTS is the contents of the element."
           contents))
 
 ;;;; Footnote Definition
+
 (defun org-element-footnote-definition-parser ()
   "Parse a footnote definition.
 
@@ -283,6 +284,12 @@ a plist containing `:label', `:begin' `:end', `:contents-begin',
                      :post-blank ,(count-lines contents-end end)
                      ,@(cadr keywords))))))
 
+(defun org-element-footnote-definition-interpreter (footnote-definition contents)
+  "Interpret FOOTNOTE-DEFINITION element as Org syntax.
+CONTENTS is the contents of the footnote-definition."
+  (concat (format "[%s]" (org-element-get-property :label footnote-definition))
+          " "
+          contents))
 
 
 ;;;; Headline
@@ -1555,6 +1562,7 @@ its beginning position."
           (throw 'exit (cons 'export-snippet (match-beginning 0))))))))
 
 ;;;; Footnote Reference
+
 (defun org-element-footnote-reference-parser ()
   "Parse footnote reference at point.
 
@@ -1581,12 +1589,7 @@ with `:label', `:type', `:definition', `:begin', `:end' and
                      :post-blank ,post-blank
                      :raw-definition ,raw-def)))))
 
-(defun org-element-footnote-definition-interpreter (footnote-definition contents)
-  "Interpret FOOTNOTE-DEFINITION element as Org syntax.
-CONTENTS is the contents of the footnote-definition."
-  (concat (format "[%s]" (org-element-get-property :label footnote-definition))
-          " "
-          contents))(defun org-element-footnote-reference-interpreter (footnote-reference contents)
+(defun org-element-footnote-reference-interpreter (footnote-reference contents)
   "Interpret FOOTNOTE-REFERENCE object as Org syntax.
 CONTENTS is nil."
   (let ((label (or (org-element-get-property :label footnote-reference)
@@ -1608,6 +1611,7 @@ cdr is beginning position."
      (when (setq fn-ref (org-footnote-get-next-reference nil nil limit))
        (cons 'footnote-reference (nth 1 fn-ref)))))
 
+
 ;;;; Inline Babel Call
 (defun org-element-inline-babel-call-parser ()
   "Parse inline babel call at point.