ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add org-goto-first-child 

* lisp/org.el (org-goto-first-child): New command.

Completes existing set of org tree traversal functions.

TINYCHANGE.
This commit is contained in:
Jambunathan K 2010-09-15 07:37:58 +00:00 committed by Carsten Dominik
parent 8631f55d71
commit 6a92dd4243
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

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