FIX ignore 'nodes' that don't have property drawers at all

This commit is contained in:
Nathan Dwarshuis 2022-06-07 17:49:37 -04:00
parent bd40a9bbf9
commit 94cefaa250
1 changed files with 4 additions and 4 deletions

View File

@ -590,10 +590,10 @@ used for optimization."
;; its parent is a node or none of its parents are nodes
(cond
((and this-todo
(setq this-pblock (org-x-dag-property-block next-pos)
pbeg (nth 1 this-pblock)
(when (setq this-pblock (org-x-dag-property-block next-pos))
(setq pbeg (nth 1 this-pblock)
pend (nth 2 this-pblock)
this-id (org-x-dag-get-local-property pbeg pend id-prop)))
this-id (org-x-dag-get-local-property pbeg pend id-prop))))
(setq bury-level nil
this-buffer-parent (nth 2 (car node-stack))
this-links (or (org-x-dag-get-parent-links (nth 3 this-pblock)