better syntax for let

This commit is contained in:
petrucci4prez 2018-05-04 22:18:04 -04:00
parent 01cc350a49
commit 1598b536e6
1 changed files with 2 additions and 3 deletions

View File

@ -616,9 +616,8 @@ 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"
(let ((has-children)
(subtree-end (save-excursion (org-end-of-subtree t)))
(previous-point))
(let ((subtree-end (save-excursion (org-end-of-subtree t)))
has-children previous-point)
(save-excursion
(setq previous-point (point))
(outline-next-heading)