diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-08-20 04:36:38 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-08-20 04:36:38 +0200 |
| commit | 7d117bd9810e4a01ac6055744c0ae4dec3c36964 (patch) | |
| tree | c6669401da9b6bf63c0270df065920513571f28b | |
| parent | 36def959abb610ed461423a22811bde576fbc805 (diff) | |
| download | org-mode-7d117bd9810e4a01ac6055744c0ae4dec3c36964.tar.gz | |
org.el: Add (require 'org-element) for more org-element commands
* org.el (org-mark-element, org-narrow-to-element)
(org-transpose-element): Require org-element.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el index 94c2de0..e86abcd 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -21977,6 +21977,7 @@ 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 (or (and (eq last-command this-command) (mark t)) (and transient-mark-mode mark-active)) @@ -21993,6 +21994,7 @@ 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) @@ -22013,6 +22015,7 @@ 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) @@ -22026,6 +22029,7 @@ 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 |