ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
conf.org
View File

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