summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-08-20 13:30:43 +0200
committerBastien Guerry <bzg@altern.org>2012-08-20 13:31:22 +0200
commitd6db2566d90c237d62006ac988eebce759b9afc1 (patch)
tree797218de2522e7466aa24fdaee7f67f9ca1a0d88
parent49905a566970541de76b6d49004c62e50c625a98 (diff)
downloadorg-mode-d6db2566d90c237d62006ac988eebce759b9afc1.tar.gz
org.el: Autoload `org-element-at-point' instead of requiring org-element it in some commands
* org.el (org-element-at-point): Autoload. (org-element-up): Remove useless declaration. (org-fill-context-prefix, org-fill-paragraph) (org-mark-element, org-narrow-to-element) (org-transpose-element, org-unindent-buffer): Do not require org-element.
-rw-r--r--lisp/org.el11
1 files changed, 2 insertions, 9 deletions
diff --git a/lisp/org.el b/lisp/org.el
index eeda156..2e438e0 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -18719,13 +18719,14 @@ this function returns t, nil otherwise."
(throw 'exit t))))
nil))))
+(autoload 'org-element-at-point "org-element")
+
(declare-function org-element-at-point "org-element" (&optional keep-trail))
(declare-function org-element-type "org-element" (element))
(declare-function org-element-contents "org-element" (element))
(declare-function org-element-property "org-element" (property element))
(declare-function org-element-paragraph-parser "org-element" (limit))
(declare-function org-element-map "org-element" (data types fun &optional info first-match no-recursion))
-(declare-function org-element-up "org-element" ())
(declare-function org-element-nested-p "org-element" (elem-a elem-b))
(declare-function org-element-swap-A-B "org-element" (elem-a elem-b))
(declare-function org-element--parse-objects "org-element" (beg end acc restriction))
@@ -20961,9 +20962,6 @@ Return fill prefix, as a string, or nil if current line isn't
meant to be filled."
(org-with-wide-buffer
(unless (and (derived-mode-p 'message-mode) (not (message-in-body-p)))
- ;; FIXME: Prevent an error for users who forgot to make autoloads?
- ;; See also `org-fill-paragraph', which has the same.
- (require 'org-element)
;; FIXME: This is really the job of orgstruct++-mode
(goto-char p)
(beginning-of-line)
@@ -21038,7 +21036,6 @@ a footnote definition, try to fill the first paragraph within."
(save-excursion
;; Move to end of line in order to get the first paragraph within
;; a plain list or a footnote definition.
- (require 'org-element)
(end-of-line)
(let ((element (org-element-at-point)))
;; First check if point is in a blank line at the beginning of the
@@ -21980,7 +21977,6 @@ Interactively, if this command is repeated or (in Transient Mark
mode) if the mark is active, it marks the next element after the
ones already marked."
(interactive)
- (require 'org-element)
(let (deactivate-mark)
(if (and (org-called-interactively-p 'any)
(or (and (eq last-command this-command) (mark t))
@@ -21998,7 +21994,6 @@ ones already marked."
(defun org-narrow-to-element ()
"Narrow buffer to current element."
(interactive)
- (require 'org-element)
(let ((elem (org-element-at-point)))
(cond
((eq (car elem) 'headline)
@@ -22019,7 +22014,6 @@ ones already marked."
"Transpose current and previous elements, keeping blank lines between.
Point is moved after both elements."
(interactive)
- (require 'org-element)
(org-skip-whitespace)
(let ((end (org-element-property :end (org-element-at-point))))
(org-drag-element-backward)
@@ -22033,7 +22027,6 @@ modified."
(interactive)
(unless (eq major-mode 'org-mode)
(error "Cannot un-indent a buffer not in Org mode"))
- (require 'org-element)
(let* ((parse-tree (org-element-parse-buffer 'greater-element))
unindent-tree ; For byte-compiler.
(unindent-tree