Fix some compilation problem

* lisp/org-element.el (org-element-nested-p): Do not inline function.
* lisp/org.el: Do not autoload functions.
This commit is contained in:
Nicolas Goaziou 2013-02-10 14:47:57 +01:00
parent 02002a7651
commit 6b7101b910
2 changed files with 2 additions and 6 deletions

View File

@ -4789,7 +4789,7 @@ Providing it allows for quicker computation."
end cend))))))) end cend)))))))
parent)))))) parent))))))
(defsubst org-element-nested-p (elem-A elem-B) (defun org-element-nested-p (elem-A elem-B)
"Non-nil when elements ELEM-A and ELEM-B are nested." "Non-nil when elements ELEM-A and ELEM-B are nested."
(let ((beg-A (org-element-property :begin elem-A)) (let ((beg-A (org-element-property :begin elem-A))
(beg-B (org-element-property :begin elem-B)) (beg-B (org-element-property :begin elem-B))

View File

@ -137,9 +137,6 @@ Stars are put in group 1 and the trimmed body in group 2.")
(declare-function org-table-maybe-eval-formula "org-table" ()) (declare-function org-table-maybe-eval-formula "org-table" ())
(declare-function org-table-maybe-recalculate-line "org-table" ()) (declare-function org-table-maybe-recalculate-line "org-table" ())
(autoload 'org-element-at-point "org-element")
(autoload 'org-element-type "org-element")
(declare-function org-element--parse-objects "org-element" (declare-function org-element--parse-objects "org-element"
(beg end acc restriction)) (beg end acc restriction))
(declare-function org-element-at-point "org-element" (&optional keep-trail)) (declare-function org-element-at-point "org-element" (&optional keep-trail))
@ -160,8 +157,7 @@ Stars are put in group 1 and the trimmed body in group 2.")
(beg end acc restriction)) (beg end acc restriction))
(declare-function org-element-parse-buffer "org-element" (declare-function org-element-parse-buffer "org-element"
(&optional granularity visible-only)) (&optional granularity visible-only))
(declare-function org-element-interpret-data "org-element" (declare-function org-element-type "org-element" (element))
(data &optional parent))
;; load languages based on value of `org-babel-load-languages' ;; load languages based on value of `org-babel-load-languages'
(defvar org-babel-load-languages) (defvar org-babel-load-languages)