diff --git a/lisp/org-element.el b/lisp/org-element.el index 5dfe67e33..2788a8b70 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -72,7 +72,6 @@ (declare-function org-at-heading-p "org" (&optional _)) (declare-function org-end-of-subtree "org" (&optional invisible-ok to-heading)) (declare-function org-escape-code-in-string "org-src" (s)) -(declare-function org-find-visible "org" ()) (declare-function org-macro-escape-arguments "org-macro" (&rest args)) (declare-function org-macro-extract-arguments "org-macro" (s)) (declare-function org-reduced-level "org" (l)) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 46ee7eee9..4a40765e0 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -1092,6 +1092,18 @@ move it back by one char before doing this check." (backward-char 1)) (org-invisible-p))) +(defun org-find-visible () + "Return closest visible buffer position, or `point-max'" + (if (org-invisible-p) + (next-single-char-property-change (point) 'invisible) + (point))) + +(defun org-find-invisible () + "Return closest invisible buffer position, or `point-max'" + (if (org-invisible-p) + (point) + (next-single-char-property-change (point) 'invisible))) + ;;; Time diff --git a/lisp/org.el b/lisp/org.el index 2b3721f58..808d60022 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17622,18 +17622,6 @@ this numeric value." ((org-at-table-p) (call-interactively 'org-table-hline-and-move)) (t (call-interactively 'org-insert-heading)))) -(defun org-find-visible () - "Return closest visible buffer position, or `point-max'" - (if (org-invisible-p) - (next-single-char-property-change (point) 'invisible) - (point))) - -(defun org-find-invisible () - "Return closest invisible buffer position, or `point-max'" - (if (org-invisible-p) - (point) - (next-single-char-property-change (point) 'invisible))) - (defun org-copy-visible (beg end) "Copy the visible parts of the region." (interactive "r")