summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-12-01 15:42:06 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2011-12-01 15:42:06 +0100
commit816f60b0c76c9b9713d3155fd0ac280116ef50fb (patch)
treeb7b700465d7f9c765e57a2a9298deb7deb054221
parentb1f2903392b9e1682dead2a78764d11a50354a51 (diff)
downloadorg-mode-816f60b0c76c9b9713d3155fd0ac280116ef50fb.tar.gz
contrib/lisp/org-element: Re-order a function within the file
-rw-r--r--contrib/lisp/org-element.el16
1 files changed, 10 insertions, 6 deletions
diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el
index f748908..9b4d0b0 100644
--- a/contrib/lisp/org-element.el
+++ b/contrib/lisp/org-element.el
@@ -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.