ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Bastien Guerry 2012-08-20 04:36:38 +02:00
parent 36def959ab
commit 7d117bd981
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -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