From 6a92dd424353e513f5c9266d22c8d5be7db8a14d Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Wed, 15 Sep 2010 07:37:58 +0000 Subject: [PATCH] Add org-goto-first-child * lisp/org.el (org-goto-first-child): New command. Completes existing set of org tree traversal functions. TINYCHANGE. --- lisp/org.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 49b04f401..f82e16b80 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19150,6 +19150,18 @@ move point." (while (org-goto-sibling 'previous) (org-flag-heading nil)))) +(defun org-goto-first-child () + "Goto the first child, even if it is invisible. +Return t when a child was found. Otherwise don't move point and +return nil." + (let (level (pos (point)) (re (concat "^" outline-regexp))) + (when (condition-case nil (org-back-to-heading t) (error nil)) + (setq level (outline-level)) + (forward-char 1) + (if (and (re-search-forward re nil t) (> (outline-level) level)) + (progn (goto-char (match-beginning 0)) t) + (goto-char pos) nil)))) + (defun org-show-hidden-entry () "Show an entry where even the heading is hidden." (save-excursion -- 2.11.4.GIT