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

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

5
conf.org
View File

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