mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-19 21:48:44 +00:00
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:
parent
36def959ab
commit
7d117bd981
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue