forked from mirrors/org-mode
org.el: Fix names I forgot to change in the previous patch.
This commit is contained in:
parent
9dfbb39d11
commit
12101efc2f
|
@ -18661,6 +18661,7 @@ this function returns t, nil otherwise."
|
|||
|
||||
(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))
|
||||
|
@ -18686,7 +18687,7 @@ for more information."
|
|||
((org-at-table-p) (org-call-with-arg 'org-table-move-row 'up))
|
||||
((org-at-heading-p) (call-interactively 'org-move-subtree-up))
|
||||
((org-at-item-p) (call-interactively 'org-move-item-up))
|
||||
(t (org-element-drag-backward))))
|
||||
(t (org-drag-element-backward))))
|
||||
|
||||
(defun org-metadown (&optional arg)
|
||||
"Move subtree down or move table row down.
|
||||
|
@ -18708,7 +18709,7 @@ commands for more information."
|
|||
((org-at-table-p) (call-interactively 'org-table-move-row))
|
||||
((org-at-heading-p) (call-interactively 'org-move-subtree-down))
|
||||
((org-at-item-p) (call-interactively 'org-move-item-down))
|
||||
(t (org-element-drag-forward))))
|
||||
(t (org-drag-element-forward))))
|
||||
|
||||
(defun org-shiftup (&optional arg)
|
||||
"Increase item in timestamp or increase priority of current headline.
|
||||
|
@ -19400,7 +19401,7 @@ stars to add."
|
|||
|
||||
(when (and current-prefix-arg (org-at-item-p))
|
||||
(if (equal current-prefix-arg '(4)) (setq current-prefix-arg 1))
|
||||
(org-element-mark-element))
|
||||
(org-mark-element))
|
||||
|
||||
(if (org-region-active-p)
|
||||
(setq beg (funcall skip-blanks (region-beginning))
|
||||
|
@ -21921,7 +21922,7 @@ Point is moved after both elements."
|
|||
(interactive)
|
||||
(org-skip-whitespace)
|
||||
(let ((end (org-element-property :end (org-element-at-point))))
|
||||
(org-element-drag-backward)
|
||||
(org-drag-element-backward)
|
||||
(goto-char end)))
|
||||
|
||||
;;;###autoload
|
||||
|
|
Loading…
Reference in New Issue