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

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

6
local/lib/org-x/org-x-dag.el
View File

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