FIX bound the search for links at the beginning of org buffers

This commit is contained in:
Nathan Dwarshuis 2022-03-26 17:39:32 -04:00
parent 43a2ac7ebd
commit 6209ad9733
1 changed files with 4 additions and 4 deletions

View File

@ -1309,15 +1309,15 @@ used for optimization."
(org-x-dag-node i ps ,form))) (org-x-dag-node i ps ,form)))
(defun org-x-dag-get-buffer-nodes (file-meta kws target-props) (defun org-x-dag-get-buffer-nodes (file-meta kws target-props)
(let ((more t) (let ((line-re (org-x-dag-line-regexp kws))
(line-re (org-x-dag-line-regexp kws))
cur-path this-point this-key this-level this-todo has-todo this-parent cur-path this-point this-key this-level this-todo has-todo this-parent
this-tags this-meta all-tags this-file-links this-links this-parent-key acc) this-tags this-meta all-tags this-file-links this-links this-parent-key acc)
;; TODO add org-mode sanity check
(goto-char (point-min)) (goto-char (point-min))
;; If not on a headline, check for a property drawer with links in it ;; If not on a headline, check for a property drawer with links in it
(unless (= ?* (following-char)) (unless (= ?* (following-char))
(setq this-file-links (org-x-dag-get-parent-links))) (->> (org-x-dag-next-headline)
(org-x-dag-get-parent-links nil)
(setq this-file-links)))
;; loop through all headlines ;; loop through all headlines
(while (re-search-forward line-re nil t) (while (re-search-forward line-re nil t)
;; Keep track of how 'deep' we are in a given org-tree using a stack. The ;; Keep track of how 'deep' we are in a given org-tree using a stack. The