remove comments

This commit is contained in:
petrucci4prez 2018-05-04 22:13:32 -04:00
parent a2925e5549
commit 01cc350a49
1 changed files with 0 additions and 3 deletions

View File

@ -616,8 +616,6 @@ Returns t if heading has certain relationship to other headings
(defun nd/heading-has-children (heading-test)
"returns t if heading has subheadings that return t when assessed with
heading-test function"
;; TODO make this more efficient (and accurate) by only testing
;; the level immediately below (if it exists)
(let ((has-children)
(subtree-end (save-excursion (org-end-of-subtree t)))
(previous-point))
@ -630,7 +628,6 @@ Returns t if heading has certain relationship to other headings
(setq has-children t))
(setq previous-point (point))
(org-forward-heading-same-level 1 t)))
;; (outline-next-heading)))
has-children))
(defun nd/heading-has-parent (heading-test)