better syntax for let
This commit is contained in:
parent
01cc350a49
commit
1598b536e6
5
conf.org
5
conf.org
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue