فهرست منبع

org.el: Fix names I forgot to change in the previous patch.

Bastien Guerry 12 سال پیش
والد
کامیت
12101efc2f
1فایلهای تغییر یافته به همراه5 افزوده شده و 4 حذف شده
  1. 5 4
      lisp/org.el

+ 5 - 4
lisp/org.el

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