mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 04:02:51 +00:00
Code Releases Activity

org-goto-first-child: Switch to org-element API

Browse source
This commit is contained in:
Ihor Radchenko 2023-05-07 12:13:23 +02:00
parent 6266197bbd
commit 6938857369
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 15 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
lisp/org.el
View file

@ -20647,29 +20647,21 @@ move point."
"Goto the first child, even if it is invisible.
Return t when a child was found. Otherwise don't move point and
return nil."
(if (org-element--cache-active-p)
(let ((heading (org-element-lineage
(or element (org-element-at-point))
'(headline inlinetask org-data)
t)))
(when heading
(unless (or (org-element-type-p heading 'inlinetask)
(not (org-element-contents-begin heading)))
(let ((pos (point)))
(goto-char (org-element-contents-begin heading))
(if (re-search-forward
org-outline-regexp-bol
(org-element-end heading)
t)
(progn (goto-char (match-beginning 0)) t)
(goto-char pos) nil)))))
(let (level (pos (point)) (re org-outline-regexp-bol))
(when (org-back-to-heading-or-point-min t)
(setq level (org-outline-level))
(forward-char 1)
(if (and (re-search-forward re nil t) (> (org-outline-level) level))
(progn (goto-char (match-beginning 0)) t)
(goto-char pos) nil)))))
(let ((heading (org-element-lineage
(or element (org-element-at-point))
'(headline inlinetask org-data)
'with-self)))
(when heading
(unless (or (org-element-type-p heading 'inlinetask)
(not (org-element-contents-begin heading)))
(let ((pos (point)))
(goto-char (org-element-contents-begin heading))
(if (re-search-forward
org-outline-regexp-bol
(org-element-end heading)
t)
(progn (goto-char (match-beginning 0)) t)
(goto-char pos) nil))))))
(defun org-get-next-sibling ()
"Move to next heading of the same level, and return point.